Bonjour,
Je cherche une macro pour enregistrer la feuille nommée "GAM" en pdf et qu'elle soit enregistrée avec le nom d'une cellule qui contient une formule pour faire apparaître le nom du fichier souhaité en pdf
J'ai trouvé une macro qui fait presque tout, SAUF que le fichier pdf ne se nomme pas en fonction de ma cellule (dans mon fichier cellule "AB5")
Quelqu'un pourrait-il m'aider car la je sèche.
Ci-joint mon fichier et ci-dessous la macro.
Sub EnrPDF()
'
' EnrPDF Macro
' Sauvegarder la feuille en PDF
Dim a$
'a$ = ActiveSheet.Name
a$ = Range("AB5").Value
ChDir ThisWorkbook.Path
ActiveSheet.Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\Fichier_" & a$ & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub
Je cherche une macro pour enregistrer la feuille nommée "GAM" en pdf et qu'elle soit enregistrée avec le nom d'une cellule qui contient une formule pour faire apparaître le nom du fichier souhaité en pdf
J'ai trouvé une macro qui fait presque tout, SAUF que le fichier pdf ne se nomme pas en fonction de ma cellule (dans mon fichier cellule "AB5")
Quelqu'un pourrait-il m'aider car la je sèche.
Ci-joint mon fichier et ci-dessous la macro.
Sub EnrPDF()
'
' EnrPDF Macro
' Sauvegarder la feuille en PDF
Dim a$
'a$ = ActiveSheet.Name
a$ = Range("AB5").Value
ChDir ThisWorkbook.Path
ActiveSheet.Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\Fichier_" & a$ & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub