Envoi email à partir d'un modèle

Bonjour,

Je souhaite envoyer un email avec une feuille en pj, et en utilisant un modèle outlook. (l'idée est qu'un utilisateur ny connaissant rien à vba puisse modifier le message)

bref voici mon code:

Sub EnvoiMailavecPJ()

'copie la feuille active dans un nouveau classeur et sauvegarde
Dim Nom As String, chemin As String, fichier As String
Nom = ActiveSheet.Name
ActiveSheet.Copy
chemin = ThisWorkbook.Path
fichier = chemin & "\" & Nom & ".xlsx"
ActiveWorkbook.SaveAs Filename:=fichier

'envoi de l'email à partir d'un modèle avec feuille en pj
Dim MonMessage As Outlook.MailItem
    Set MonMessage = Outlook.Application.CreateItemFromTemplate("C:\Users\cec\Desktop\PROFESSIONNEL\PROJETS\LISTES LOGES.MaJListe.oft")
        MonMessage.To = ActiveSheet.Range("EMAIL_REF")
        MonMessage.Attachments.Add ActiveWorkbook.FullName
        MonMessage.Display
    ActiveWorkbook.Close
    Set MonOutlook = Nothing
End Sub

mais quand je lance la macro j'ai le message d'erreur suivant:

j'ai bien entendu vérifier que j'avais les autorisations pour ouvrir le fichier (ce qui est la cas) et que ce dernier n'était pas déjà ouvert.

Mais le problème demeure, que puis-je faire?

Bonjour,

est ce que Outlook est ouvert lorsque tu exécute la macro ?

Non pas forcément

tu penses que ça vient de là?

Je viens de vérifier.

J'ai le même bug, que Outlook soit ouvert ou pas

re,

peux-tu faire une copie dans le répertoire de modele et faire un essai avec celui-ci

C:\Users\user\AppData\Roaming\Microsoft\Templates\

Bon, j'ai trouvé la solution c'était vraiment tout bête.

dans le chemin d'accès, à la fin, j'ai mis un point au lieu d'un tiret. Une bêtise vriament.

Désolé d'avoir ouvert une discussion pour si peu:

C:\Users\cec\Desktop\PROFESSIONNEL\PROJETS\LISTES LOGES\MaJListe.oft