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

[LEIYAZ]

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 :

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

 

[Jacky67]

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 :

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

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

 

[LEIYAZ]

@Jacky67, une réactivité sans pareille, doublé d'une solution !

Merci infiniment !