Macro enregistre en pdf
Résolu
Bonjour,
J'ai un fichier Excel que j'aimerais enregistrer sous pdf juste en cliquant sur un bouton qui se trouve sur la feuille Excel.
J'ai en partie réussi à réaliser ce que je voulais mais le truc c'est que j'aimerais appliquer cette macro à plusieurs fichiers Excel si possible donc lorsque j'essaye sur un autre fichier, la macro enregistre le fichier en PDF mais avec le nom du fichier initial.
Il me faudrait juste la syntaxe qui permet de récupérer le titre du fichier sur lequel je travaille. Comme ca je n'aurais pas à changer le nom de mon fichier PDF à chaque fois.
Voici la macro que j'ai fait :
Sub Macro2()
'
' Macro2 Macro
' Macro refaite pour enregistrer automatiquement dans le dossier spécifié en PDF
'
'
ChDir "H:\Production\Converting\Fiches specifications produits finis\L34"
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"H:\Production\Converting\Fiches specifications produits finis\L34\L34 - T122314 - 6R 3P - LABELL - Aloe Vera.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:= False
End Sub
Merci d'avance à celui ou celle qui pourra m'éclairer.
Cordialement.
J'ai un fichier Excel que j'aimerais enregistrer sous pdf juste en cliquant sur un bouton qui se trouve sur la feuille Excel.
J'ai en partie réussi à réaliser ce que je voulais mais le truc c'est que j'aimerais appliquer cette macro à plusieurs fichiers Excel si possible donc lorsque j'essaye sur un autre fichier, la macro enregistre le fichier en PDF mais avec le nom du fichier initial.
Il me faudrait juste la syntaxe qui permet de récupérer le titre du fichier sur lequel je travaille. Comme ca je n'aurais pas à changer le nom de mon fichier PDF à chaque fois.
Voici la macro que j'ai fait :
Sub Macro2()
'
' Macro2 Macro
' Macro refaite pour enregistrer automatiquement dans le dossier spécifié en PDF
'
'
ChDir "H:\Production\Converting\Fiches specifications produits finis\L34"
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"H:\Production\Converting\Fiches specifications produits finis\L34\L34 - T122314 - 6R 3P - LABELL - Aloe Vera.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:= False
End Sub
Merci d'avance à celui ou celle qui pourra m'éclairer.
Cordialement.
3 réponses
-
Tres bien,
Merci beaucoup.
Bonne journée. -
Bonjour via55,
Merci pour la rapidité de ta réponse.
Donc si je veux faire directement
Filename:= _ & nom & ".pdf"
Ca peut fonctionner?
Bien evidemment sans oublier de declarer la variable nom au debut.
Merci.-
Je pense que
Filename:="H:\Production\Converting\Fiches specifications produits finis\L34\" & activeworkbook.name & ".pdf" est aussi bon
Je ne peux pas essayer , mon PC est en panne, je suis sur un portable sur lequel je n'ai qu'open officetu peux aussi faire :
chemin="H:\Production\Converting\Fiches specifications produits finis\L34\" & activeworkbook.name & ".pdf"
puis plus loin
Filename:=chemin
-
-
Bonjour
nom=activeworkbook.name recupere le nom du classeur dans la variable nom
ensuite :
Filename:= _
"H:\Production\Converting\Fiches specifications produits finis\L34\" & nom & ".pdf"
Cdlmnt
