XL 2019 macro enregistrement pdf avec l'enregistreur

  • Initiateur de la discussion Initiateur de la discussion pascal21
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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
 
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
 
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 ?
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
819
Réponses
3
Affichages
534
Réponses
10
Affichages
477
Retour