chemin = "I:\Google Drive\KANDRA\2019\FD PDF\" 'à adapter
Normalement si l'enregistrement au format PDF échoue il doit y avoir un message d'erreur.Désolé de te déranger Job75 mais rien ne se passe.
chemin = "I:\Google Drive\KANDRA\2019\FD PDF\" 'à adapter
MsgBox "Le chemin indiqué " & IIf(Dir(chemin, vbDirectory) = "", "n'existe pas", "existe")
Je ne sais pas car chez moi (Excel 2013) le message s'affiche.Aucun message n'apparaît. Est-ce ma version d'excel 2016 qui pose problème ?
Sub ActiveEvenements()
Application.EnableEvents = True 'réactive les évènements
End Sub