Re : Enregistrer en PDF
Bonjour à tous,
J'ai enfin réussi avec
' toto1.xlsm!PDF
'Dim NomFic$, Chemin$
Chemin = "D:\ASIA\planning individuel_"
NomFic = InputBox("Saisir le nom du PDF désiré" & Chr(13) & "(extension comprise)", _
"EXPORT PDF", Replace(ActiveWorkbook.Name, ".xlsm"...