XL 2013 Creer bouton pdf excel + vba

[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

 

[pierrejean]

Bonjour Black Punch

A tester:

Sub pdf_tach()
'
' pdf_tach Macro
'


'
Dim chemin, lnow, nom, nomfichier As String
lnow = Replace(Replace(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