kernaleguen
XLDnaute Nouveau
Bonjour,
J'utilise un fichier excel pour des bons de commande et je souhaite sauvegarder ce fichier au format XLS mais également au format PDF. J'ai une macro qui me permet de sauvegarder mon fichier au format XLS selon un chemin déterminé mais je ne parviens pas à sauvegarder ce fichier au format PDF dans la même macro. Ci-dessous la macro que j'utilise pour la sauvegarde du fichier excel (comment la compléter par une macro qui sauvegarderait en PDF) ? :
Sub Sauvegarde_bibliotheque()
'
' Sauvegarde bibliotheque Macro
'
'
Dim chemin As String, fichier As String
chemin = "y:\XX1\XX2\XX3\"
'Ajoute la date du jour et l'heure dans le nom du fichier
fichier = "bibiliotheque-photocopie_" & Range("g9") & "_" & Range("e17") & "_" & Range("f17") & "_" & Format(Date, "ddmmyyyy") & "_" & Format(Time, "hhmmss") & "_" & ".xls"
ActiveWorkbook.SaveCopyAs chemin & fichier
Pouvez-vous m'aider
Bien cordialement
J'utilise un fichier excel pour des bons de commande et je souhaite sauvegarder ce fichier au format XLS mais également au format PDF. J'ai une macro qui me permet de sauvegarder mon fichier au format XLS selon un chemin déterminé mais je ne parviens pas à sauvegarder ce fichier au format PDF dans la même macro. Ci-dessous la macro que j'utilise pour la sauvegarde du fichier excel (comment la compléter par une macro qui sauvegarderait en PDF) ? :
Sub Sauvegarde_bibliotheque()
'
' Sauvegarde bibliotheque Macro
'
'
Dim chemin As String, fichier As String
chemin = "y:\XX1\XX2\XX3\"
'Ajoute la date du jour et l'heure dans le nom du fichier
fichier = "bibiliotheque-photocopie_" & Range("g9") & "_" & Range("e17") & "_" & Range("f17") & "_" & Format(Date, "ddmmyyyy") & "_" & Format(Time, "hhmmss") & "_" & ".xls"
ActiveWorkbook.SaveCopyAs chemin & fichier
Pouvez-vous m'aider
Bien cordialement