Donnez alors un fichier
représentatif. Difficile d'imaginer.
Utilisez la macro événementielle Workbook_BeforeSave.
Voir ceci :
Lien
Mon doc est confidentiel, c'est le problème.
J'ai réussi avec le code suivant :
Sub Export PDF
Columns("F:L").Hidden = True
Sheets(Array("Feuil1", "Annexe1", "Annexe2", "Annexe3")).Select
Sheets("Feuil1").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"X:\\....." _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub