Macro enregistre en pdf
Résolu
maho45
Messages postés
180
Date d'inscription
Statut
Membre
Dernière intervention
-
maho45 Messages postés 180 Date d'inscription Statut Membre Dernière intervention -
maho45 Messages postés 180 Date d'inscription Statut Membre Dernière intervention -
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.
A voir également:
- Macro enregistre en pdf
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Save as pdf office 2007 - Télécharger - Bureautique
- Télécharger dictionnaire larousse pdf gratuit - Télécharger - Dictionnaires & Langues
- Enregistrer en pdf - Guide
3 réponses
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
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
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.
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
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