Enregister un doc Excel en PDF et ajout d'une valeur de cellule dans titre

Bonjour à tous,

Je souhaiterais exporter une feuille excel en version PDF dans un dossier précis et en ajoutant une valeur chiffrée de cellule dans le titre.

J' ai entré le code ci-dessous mais le titre du document apparait sous la forme : Commande magasin & Nom

Sub ExportPDF()

Nom = Range("D1")

Worksheets("Mod?le2").ExportAsFixedFormat Type:=xlTypePDF, _

Filename:="P:\COMMANDE MAGASIN\HIVER\Hiver 2018-2019/Commande magasin & Nom.pdf", _

Quality:=xlQualityStandard, _

IncludeDocProperties:=True, _

IgnorePrintAreas:=False, _

OpenAfterPublish:=True

End Sub

Quelqu'un pourrait-il m'aider ?

Merci d'avance

Bonjour LG73, le forum,

le titre du document apparait sous la forme : Commande magasin & Nom

Normal, c'est ce que tu lui demande...

Filename:="P:\COMMANDE MAGASIN\HIVER\Hiver 2018-2019/Commande magasin & Nom.pdf

Si tu ne souhaite que le nom, enlève Commande magasin & .

Filename:="P:\COMMANDE MAGASIN\HIVER\Hiver 2018-2019\Nom.pdf

Cordialement,

Merci pour votre réponse.

Cependant je souhaite conserver dans le titre l'appellation "Commande magasin" à la suite de laquelle il faudrait que la valeur de la cellule H1 apparaisse.

Par exemple le titre pourrait être Commande magasin 3846 ( 3846 étant la valeur de ma cellule "H1" donc de la variable nom)

Re,

Alors essaies:

Nom = "Commande magasin "& range("H1")

Filename:="P:\COMMANDE MAGASIN\HIVER\Hiver 2018-2019\Nom.pdf

Cordialement,

Ca ne fonctionne toujours pas …

Le fichier se nomme maintenant Nom. Il ne reconnait pas Nom comme une variable …

Désolé je débute vraiment en macro et je n'arrive pas à trouver une solution

Re,

Essaie de déclarer la variable alors....

Dim Nom as string

Cordialement,

A tester:

Sub EnregistrerenPDF()

Dim nompdf As String
Dim dossier As String

   ' dossier = ThisWorkbook.Path
   dossier = "P:\COMMANDE MAGASIN\HIVER\Hiver 2018-2019\"

    nompdf = "Commande magasin " & Range("H1")
    chemin = dossier & nompdf

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

Merci beaucoup pour les différentes solutions mais rien n'y fait. Avec la dernière mon document s'appelle seulement commande magasin mais toujours pas la valeur de la cellule H1 . . .

Peut être que c'est lié au fait que la valeur de la cellule H1 concernée s'incrémente à chaque ouverture du document. Ce n'est donc pas une valeur fixe.

Cela aurait-il des conséquences sur le non fonctionnement de la macro ?

Cordialement,

Re,

Je ne comprends pas....chez moi (excel 2010 ), cela fonctionne....j'ai bien un pdf intitulé" Commande magasin" avec la valeur de la cellule H1.

si je change la valeur de H1, je crée bien un autre pdf avec "Commande magasin" et la nouvelle valeur....

Merci encore pour votre réactivité et votre aide précieuse !

En fait le problème était tout simple, je n'ai juste pas mis la bonne cellule …

Désolé pour cette erreur d'inattention ...

Cordialement