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?