XL 2010 Renommer PDF crée par Macro avec le contenu d'une cellule

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 !

LEIYAZ

XLDnaute Nouveau
Bonjour,

J'ai créer une facture sur Excel et on m'a demandé d'y incorporer un bouton permettant de le transformer en PDF. J'ai trouvé une macro qui me permet de l'enregistrer directement sur le bureau mais je ne peux lui donner qu'un nom de fichier.

Voici le code :

VB:
Sub CreatePDF()
       Dim FilePath As String

       FilePath = CreateObject("WScript.Shell").specialfolders("Desktop")

       Debug.Print FilePath

       ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                       Filename:=FilePath & "\" & "FACTURE", _
                       Quality:=xlQualityStandard, _
                       IncludeDocProperties:=True, _
                       IgnorePrintAreas:=False, _
                       OpenAfterPublish:=True

End Sub

Est ce qu'il est possible d'enregistrer le PDF sous un nom différent ? En l'occurrence le contenu de la cellule avec le numéro de la facture ?

Je vous joins le fichier en PJ.

Merci par avance pour votre aide.

LEIYAZ
 

Pièces jointes

Solution
Bonjour,

J'ai créer une facture sur Excel et on m'a demandé d'y incorporer un bouton permettant de le transformer en PDF. J'ai trouvé une macro qui me permet de l'enregistrer directement sur le bureau mais je ne peux lui donner qu'un nom de fichier.

Voici le code :

VB:
Sub CreatePDF()
       Dim FilePath As String

       FilePath = CreateObject("WScript.Shell").specialfolders("Desktop")

       Debug.Print FilePath

       ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                       Filename:=FilePath & "\" & "FACTURE", _
                       Quality:=xlQualityStandard, _
                       IncludeDocProperties:=True, _
                       IgnorePrintAreas:=False, _...
Bonjour,

J'ai créer une facture sur Excel et on m'a demandé d'y incorporer un bouton permettant de le transformer en PDF. J'ai trouvé une macro qui me permet de l'enregistrer directement sur le bureau mais je ne peux lui donner qu'un nom de fichier.

Voici le code :

VB:
Sub CreatePDF()
       Dim FilePath As String

       FilePath = CreateObject("WScript.Shell").specialfolders("Desktop")

       Debug.Print FilePath

       ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                       Filename:=FilePath & "\" & "FACTURE", _
                       Quality:=xlQualityStandard, _
                       IncludeDocProperties:=True, _
                       IgnorePrintAreas:=False, _
                       OpenAfterPublish:=True

End Sub

Est ce qu'il est possible d'enregistrer le PDF sous un nom différent ? En l'occurrence le contenu de la cellule avec le numéro de la facture ?

Je vous joins le fichier en PJ.

Merci par avance pour votre aide.

LEIYAZ
Bonjour,
Essaye comme ceci
VB:
Sub CreatePDF()
       Dim FilePath As String
       FilePath = CreateObject("WScript.Shell").specialfolders("Desktop")
       Debug.Print FilePath
       ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FilePath & "\" & [f12], OpenAfterPublish:=True
End Sub
 
- 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

  • Question Question
Microsoft 365 Problème macro
Réponses
4
Affichages
245
Réponses
3
Affichages
885
Réponses
3
Affichages
672
Réponses
10
Affichages
547
Retour