sauvegarder au format PDF et nommer avec la date du document

[la fifine]

bonjour le forum
je cherche le moyen de sauvegarder une feuille de classeur qui est nommé "BON DE DELEGATION" en la transformant au format PDF*ça, grace à l'enregistreur de macros, ça c'est bon
j'aimerais que le document PDF soit renommer avec la date contenue dans la cellule B10
le top étant par exemple: "Bon de Délégation du " & date de la cellule B10
en macro je n'arrive pas à faire cette chose toute simple
merci de votre aide

Sub formatPDF()
' formatPDF Macro

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\pascal\Dropbox\Documents Pascal\Pointages \année 2016\Bon de délégation\BON DE DELEGATION .pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
End Sub

 

[Eric 45]

Bonjour à tous
Bonjour la fifine

Je n'ai pas testé mais peux tu essayer :

"C:\Users\pascal\Dropbox\Documents Pascal\Pointages \année 2016\Bon de délégation\BON DE DELEGATION du " & [B10 ] & ".pdf" _.....

A te lire
Eric

 

[la fifine]

bonjour et merci pour ton aide
le syntaxe n'est pas bonne
moi j'avais essayé
& range("b10").value.pdf
mais ça marche pas

 

[Dranreb]

Bonjour.
C'est plutôt la votre qui n'est surement pas bonne
Au pire : … & Range("B10").Value & ".pdf" _
Sans doute mieux : … & Format(Range("B10").Value,"dd-mm-yyyy") & ".pdf" _
Ou : … & Format([B10].Value,"dd-mm-yyyy") & ".pdf" _

 

[la fifine]

bonjour
je n'avais aucune doute sur le fait que la mienne n'était pas bonne
je viens d'essayer les deux versions que vous m'avez donné et j'ai "erreur de syntaxe" et tout le code se met en rouge
doit manquer une ( ou un " quelque part

 

[Dranreb]

Il ne manque rien dans les parties qu'on vous indique, les syntaxes sont correctes.
Ça doit donc être dans une autre partie de votre instruction que ça ne va pas.

 

[Chris401]

Bonjour
Si l'enregistrement doit se faire dans le même dossier que le fichier BON DE DELEGATION, essaye :

Sub EnregistreSousPDF()

With ActiveSheet
Rep = ThisWorkbook.Path
nom = "BON DE DELEGATION du"
LaDate = Format(.[B10].Value, "dd-mm-yyyy")

.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
   Rep & "\" & nom & "-" & LaDate & ".pdf"
   
End With
End Sub

 

[la fifine]

merci Chris ça fonctionne parfaitement
je vais rajouter une ligne pour l'inserer dans le dossier que je veux et c'est fini