XL 2013 bouton pdf excel

  • Initiateur de la discussion Initiateur de la discussion Black punch
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Black punch

XLDnaute Nouveau
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
 
Solution
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 :
VB:
"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 :
Code:
lnow = Format(Now, "dd-mm-yyyy hh-ss")
et vous obtenez :
Code:
"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 )
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 :
VB:
"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 :
Code:
lnow = Format(Now, "dd-mm-yyyy hh-ss")
et vous obtenez :
Code:
"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 )
 
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 :
VB:
"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 :
Code:
lnow = Format(Now, "dd-mm-yyyy hh-ss")
et vous obtenez :
Code:
"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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Problème macro
Réponses
4
Affichages
245
Réponses
3
Affichages
885
Réponses
3
Affichages
672
Retour