Macro enregistre en pdf [Résolu/Fermé]

Signaler
Messages postés
180
Date d'inscription
jeudi 5 mars 2009
Statut
Membre
Dernière intervention
23 août 2018
-
Messages postés
180
Date d'inscription
jeudi 5 mars 2009
Statut
Membre
Dernière intervention
23 août 2018
-
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.







3 réponses

Messages postés
12489
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
13 août 2020
1 967
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
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 58212 internautes nous ont dit merci ce mois-ci

Messages postés
180
Date d'inscription
jeudi 5 mars 2009
Statut
Membre
Dernière intervention
23 août 2018
21
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.
Messages postés
12489
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
13 août 2020
1 967
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
Messages postés
180
Date d'inscription
jeudi 5 mars 2009
Statut
Membre
Dernière intervention
23 août 2018
21
Tres bien,

Merci beaucoup.

Bonne journée.