XL 2019 macro enregistrement pdf avec l'enregistreur

pascal21

XLDnaute Barbatruc
bonjour à tous
j'ai un document que j'aimerais sauvegarder en pdf avec comme titre "feuille d'atelier" et le contenu de la cellule E9
VB:
Sub feuillepdf()
' feuillepdf Macro
'
    ChDir _
        "C:\Users\Utilisateur\Dropbox\Documents Pascal\Pointages\Feuilles d'atelier"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Utilisateur\Dropbox\Documents Pascal\Pointages\Feuilles d'atelier\FEUILLE ATELIER modèle.pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
End Sub
cette macro enregistre bien en pdf mais avec le nom du document excel
ici "feuille d'atelier modèle"
il faudrait remplacer modèle par le contenu de la cellule E9
pouvez vous m'aider?
merci
 

vgendron

XLDnaute Barbatruc
bonjour
il te suffit de créer le nom du fichier de sauvegarde
NomSauvegarde="C:\Users\Utilisateur\Dropbox\Documents Pascal\Pointages\Feuilles d'atelier\" &E9 &".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= NomSauvegarde _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
 

Staple1600

XLDnaute Barbatruc
Bonjour


Ca devrait mieux marcher avec
(je me suis permis vgendron de répondre ;) )
NomSauvegarde="C:\Users\Utilisateur\Dropbox\Documents Pascal\Pointages\Feuilles d'atelier\" & [E9] &".pdf"
En étant sur la feuille ou E9 contient le nom du fichier
 

Staple1600

XLDnaute Barbatruc
Pourtant cela fonctionne

Voir ce petit test
Code:
Sub test()
NomSauvegarde = Application.Path & "\" & [E9] & ".pdf"
MsgBox NomSauvegarde
End Sub

Qui renvoie un chemin valide en se basant sur la valeur de E9

Est-ce que ton chemin est valide ?
 

Discussions similaires

Statistiques des forums

Discussions
312 215
Messages
2 086 316
Membres
103 176
dernier inscrit
jean.yvesjean.yves