Macro enregistrer en pdf feuille excel avec nom d'une cellule contenant formule

[OIiv109]

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

 

[don_pets]

adapte le au niveau des variables mais ça devrait correspondre à ton besoin

 

[Staple1600]

Bonsoir

Oliv109
Tu n'as pas vu le message#7?
Ou mon hygiène laisse à ce point à désirer que tu ne prends ni le temps de me saluer, ni le temps de faire un retour sur le code VBA proposé dans ce même message#7 ?


[précision]
Message rédigé en mode humour désabusé
(donc inutile de prendre la mouche)
[/précision]

 

[don_pets]

sorry about that staple...

 

[Staple1600]

Bonsoir

Merci don_pets
Mais mon message était d'abord à destination du demandeur...
Si jamais il revient dans son fil, qu'il sache que j'ai bien pris une douche ce jour et que brossées sont mes dents.
Mais pas sur que ces considérations hygiénistes me rendent plus visible à ses yeux pour autant

 

[OIiv109]

Bonsoir Staple1600

Désolé de mon retour tardif mais beaucoup de taf, et après des vacances bien méritées.

Je tiens pas la présente à te remercier de ton retour et m'excuse si je n'ai pas répondu plus tôt.

Merci à tous de votre aide sur ce dossier qui m'a permis de faire fonctionner à la perfection mon fichier.

 

[Staple1600]

Bonsoir le fil,

Oliv109
Mieux vaut tard que jamais