XL 2013 Créer un bouton sur une feuille pour Export PDF d'une autre feuille...

Samaraxa

XLDnaute Nouveau
Bonjour, voilà,
serait-il possible de créer un bouton qui exporterait en PDF une certaine feuille, avec en référence des données de cette même feuille...

Plus simplement voici le bouton qui exporte sous PDF la feuille sur laquelle je travaille :
Sub PDF_HCP_1()

Dim nompdf As String
Dim dossier As String

dossier = "C:\Users\walte\OneDrive\Heures\"
nompdf = Range("B19") & Range("C19") & Range("D19") & "_" & Range("M2") & Range("M3") & "_" & Range("D1") & "_" & Range("M1") & ".pdf"
MsgBox nompdf
With ActiveWorkbook
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
dossier & nompdf, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False _

End With
End Sub

je voudrais qu'il se place sur une autre feuille...
D'autre part, mon fichier est censé se retrouver dans d'autre ordi, comment faire pour donner un nom de chemin adéquat qui pourrait réussir l'exportation sur n'importe quelle machine, voir proposer l'impression... ou l'enregistrement du fichier nommé dans un ordi sans donné de chemin...???
 
Solution
Merci KiKi29...je m'attèle à la lecture...
je crois avoir presque trouvé, en changeant Range par Feuil2.Range et ActiveSheet par Feuil2
Merci

Un autre problème s'est presenté à moi, la Feuil2 est masquée , et là c'est le bug...!!!

Samaraxa

XLDnaute Nouveau
Merci KiKi29...je m'attèle à la lecture...
je crois avoir presque trouvé, en changeant Range par Feuil2.Range et ActiveSheet par Feuil2
Merci

Un autre problème s'est presenté à moi, la Feuil2 est masquée , et là c'est le bug...!!!
 

kiki29

XLDnaute Barbatruc
Re,
VB:
Option Explicit

Feuil2.Visible = True
'.....
Feuil2.Visible = False

Après il y a aussi :
Feuil2.Visible=xlSheetHidden ou Feuil2.Visible=xlSheetVeryHidden et F1

Pour la Lecture et faciliter la navigation dans le bazar il y a Liste_Contributions.zip disponible ici
 
Dernière édition:

Staple1600

XLDnaute Barbatruc
Bonjour le fil

Samaraxa
Un exemple
VB:
Sub Test_EXPORT_PDF()
Dim objSFolders As Object, Dossier_Export$, Fichier_PDF$
Set objSFolders = CreateObject("WScript.Shell").SpecialFolders
Dossier_Export = objSFolders("mydocuments") & "\"
Fichier_PDF = Dossier_Export & "totest.pdf"
'ici export de la feuille Feuil2 NB: j'utilise le codename
Export_PDF Feuil2, Fichier_PDF
End Sub
Private Sub Export_PDF(F As Worksheet, Nom_PDF As String)
Dim rng As Range
Set rng = F.Range("A1:G51") ' à adapter
'NB: Sur mon PC, A1:G51 correspond à une page A4
rng.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Nom_PDF, Quality:=xlQualityStandard, From:=1, To:=1
End Sub

NB: Il existe de nombreux fils de discussions qui traitent de ce sujet
Ils sont accessibles en utilisant le moteur de recherche du forum.

EDITION: Bonsoir kiki29
 

Discussions similaires

Réponses
2
Affichages
252

Statistiques des forums

Discussions
311 723
Messages
2 081 934
Membres
101 844
dernier inscrit
pktla