Macro pour copie du classeur en fichier PDF
tofleveque
-
Theo.R Messages postés 575 Date d'inscription Statut Membre Dernière intervention -
Theo.R Messages postés 575 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Macro pour copie du classeur en fichier PDF
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Fichier bin - Guide
- Fichier epub - Guide
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
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=
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=