Macro pour copie du classeur en fichier PDF
tofleveque
-
Theo.R Messages postés 585 Statut Membre -
Theo.R Messages postés 585 Statut Membre -
Bonjour,
Bonjour,
J'aimerai une macro qui, à chaque sauvegarde de mon classeur, crée une copie de ce classeur dans un autre répertoire au format PDF.
Est ce possible ? Pouvez vous m'aider ?
Merci
Christophe
Bonjour,
J'aimerai une macro qui, à chaque sauvegarde de mon classeur, crée une copie de ce classeur dans un autre répertoire au format PDF.
Est ce possible ? Pouvez vous m'aider ?
Merci
Christophe
1 réponse
-
Tu peux essayer ce code VBA :
N.B: tu dois la mettre dans Thisworkbook - AfterSave
Le PDF s'enregistre sous répertoire "Dossier" de celui contenant le classeur
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Dim LaDate As String, LeRep As String
LaDate = Format(Date, "yyyymmdd")
LeRep = ThisWorkbook.Path & "\Dossier\" ' répertoire d'enregistrement à adapter
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
LeRep & LaDate & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
End Sub
Bonne continuation :-)
PS: j'ai repris la solution de ce forum : https://forum.excel-pratique.com/viewtopic.php?forum_uri=excel&t=24447&start=
