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

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

  • FACTURE.xlsm
    143.8 KB · Affichages: 23
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, _...

Jacky67

XLDnaute Barbatruc
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
 

Discussions similaires

Statistiques des forums

Discussions
311 709
Messages
2 081 779
Membres
101 816
dernier inscrit
Jfrcs