Bonjour,
Effectivement, mais le problème semble venir de lignes rajoutées
Vous avez ces lignes
'------------------
Chemin = sDossier
Fich = strPDFName
NomFiche = Chemin & Fich
'Call EditionPDF(NomFiche)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=NomFiche, _
Quality:=xlQualityMinimum, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
En mode débogage (F8) NomFiche donne ceci
Supprimez donc ces lignes et restructurez correctement votre code avec les bonnes variables
Et toutes ces variables objet et autre, déclarées pour un simple envoi de mail
A+