Macro pour copie du classeur en fichier PDF
Fermé
tofleveque
-
20 janv. 2015 à 15:07
Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 - 20 janv. 2015 à 15:33
Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 - 20 janv. 2015 à 15:33
A voir également:
- Macro pour copie du classeur en fichier PDF
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Fichier rar - Guide
- Comment faire un fichier pdf - Guide
- Comment compresser un fichier pdf - Guide
- Fichier host - Guide
1 réponse
Theo.R
Messages postés
575
Date d'inscription
vendredi 11 juillet 2014
Statut
Membre
Dernière intervention
30 mars 2016
31
20 janv. 2015 à 15:33
20 janv. 2015 à 15:33
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=