XL 2013 Creer bouton pdf excel + vba

Black punch · 9 Mars 2021

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:

VB:

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 · 9 Mars 2021

Bonjour Black Punch

A tester:

VB:

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

XL 2013 Creer bouton pdf excel + vba

Black punch

XLDnaute Nouveau

pierrejean

XLDnaute Barbatruc

Discussions similaires