XL 2013 bouton pdf excel

[Black punch]

bonjour, voila je galère sur comment creer un bouton pdf dans excel qui me permettra d'enregistrer une feuille excel en pdf, dans l'emplacement du fichier même avec un nom defini contenant la date et l'heure actuelle, c'est a dire la fonction "Now", afin de différencier le noms a chaque enregistrement.

j'ai essayer plusieurs methodes que j'ai d'ailleurs trouver dans le site mais ca m'affiche ce message d'erreur: "Document nom enregistrer"

pouvez-vous m'aider svp!
cordialement
merci

voici mon code:

Sub pdf_tach()
'
' pdf_tach Macro
'


'
Dim chemin, lnow, nom, nomfichier As String
lnow = Now
nom = "Tache sauvegarde" & lnow
chemin = ActiveWorkbook.Path
nomfichier = chemin & "\" & nom & ".pdf"


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

 

[sylvanu]

Bonjour Black punch,
Vous n'étiez pas loin.
Le problème est lnow = Now, car si vous faites du pas à pas vous obtenez pour le nom de fichier :

"C:\Users\PC_PAPA\Desktop\Tache sauvegarde09/03/2021 15:52:11.pdf"

et les "/" ou ":" Windows n'aime pas dans les noms de fichiers.
Essayez :

lnow = Format(Now, "dd-mm-yyyy hh-ss")

et vous obtenez :

"C:\Users\PC_PAPA\Desktop\Tache sauvegarde09-03-2021 15-35.pdf"

et ça, il aime bien.
( évidemment vous pouvez changer le format, mais sans caractères interdits )

 

[Black punch]

Bonjour Black punch,
Vous n'étiez pas loin.
Le problème est lnow = Now, car si vous faites du pas à pas vous obtenez pour le nom de fichier :

"C:\Users\PC_PAPA\Desktop\Tache sauvegarde09/03/2021 15:52:11.pdf"

et les "/" ou ":" Windows n'aime pas dans les noms de fichiers.
Essayez :

lnow = Format(Now, "dd-mm-yyyy hh-ss")

et vous obtenez :

"C:\Users\PC_PAPA\Desktop\Tache sauvegarde09-03-2021 15-35.pdf"

et ça, il aime bien.
( évidemment vous pouvez changer le format, mais sans caractères interdits )

Ça marche super bien. Merci beaucoup pour votre spontanéité #sulvanu