Sujet Précédent Sujet Suivant

Macro enregistre en pdf

Résolu/Fermé
maho45 Messages postés 180 Date d'inscription jeudi 5 mars 2009 Statut Membre Dernière intervention 23 août 2018 - 25 mars 2013 à 10:51
maho45 Messages postés 180 Date d'inscription jeudi 5 mars 2009 Statut Membre Dernière intervention 23 août 2018 - 25 mars 2013 à 14:09
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.







A voir également:

3 réponses

Réponse 1 / 3
via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
25 mars 2013 à 11:30
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
Réponse 2 / 3
maho45 Messages postés 180 Date d'inscription jeudi 5 mars 2009 Statut Membre Dernière intervention 23 août 2018 23
25 mars 2013 à 12:19
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.
0
via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
25 mars 2013 à 13:15
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
0
Réponse 3 / 3
maho45 Messages postés 180 Date d'inscription jeudi 5 mars 2009 Statut Membre Dernière intervention 23 août 2018 23
25 mars 2013 à 14:09
Tres bien,

Merci beaucoup.

Bonne journée.
0