sauvegarder au format PDF et nommer avec la date du document

la fifine · 27 Novembre 2016

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

Code:

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 · 27 Novembre 2016

Bonjour à tous
Bonjour la fifine

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

Code:

"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 · 27 Novembre 2016

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 · 27 Novembre 2016

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 · 27 Novembre 2016

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 · 27 Novembre 2016

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 · 27 Novembre 2016

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

VB:

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 · 27 Novembre 2016

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

sauvegarder au format PDF et nommer avec la date du document

la fifine

XLDnaute Occasionnel

Eric 45

XLDnaute Occasionnel

la fifine

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

la fifine

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Chris401

XLDnaute Accro

la fifine

XLDnaute Occasionnel

Discussions similaires