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

[Samaraxa]

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...???

 

[kiki29]

Salut, comme disait Boileau : "Ce que l'on conçoit bien s'énonce clairement", de la lecture
Pour le reste peut-être via Environ("Username") ?

 

[Samaraxa]

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]

Re,

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

 

[Staple1600]

Bonjour le fil

Samaraxa
Un exemple

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