Envoi de mail, PB avec Envelopevisible

[croco40]

Bonjour à tous,
Mercredi dernier, j'ai créé une macro en suivant les explications trouvées à : http://maitrise-excel.com/excel-outlook-envoi-mail-macro-excel-envoi-email-tableau-corps-du-message/.

Mercredi, ça fonctionnait très bien, j'ai pu envoyer mes mails.

Aujourd'hui, j'essaie de la relancer et j'ai toujours un débogage sur le Activeworkbook.EnvelopeVisible = True

"Erreur d'exécution 1004, la méthode Envelopevisible de l'objet Workbook a échoué."

J'ai recherché sur le forum et sur le web, visiblement je ne suis pas le seul a rencontré ce problème, mais je n'arrive pas à comprendre (et surtout à corriger) l'erreur.

Pourriez-vous m'aider ?

Suerte
Croco.

Voici mon code :
Sub AAB_Envoyer_Relance()
Dim OutlookApp As Outlook.Application
Dim MItem As Outlook.MailItem
Dim cell As Range
Dim Projet, EmailAddr, EmailAddrCC, Msg, Subj As String
Dim TEXTE_AVANT As String

fin = ActiveSheet.Range("A65536").End(xlUp).Row

TEXTE_AVANT = Sheets("Config").Range("B1")
Subj = Sheets("Config").Range("B5")
EmailAddr = ActiveSheet.Cells(fin, 1).Value
EmailAddrCC = ActiveSheet.Cells(fin, 2).Value

Set OutlookApp = New Outlook.Application

Msg = Msg & TEXTE_AVANT

ActiveSheet.Range(Cells(1, 1), Cells(fin - 3, 11)).Select
ActiveWorkbook.EnvelopeVisible = True c'est ici le débogage
Selection.Copy

Msg = Msg & vbCrLf

With ActiveSheet.MailEnvelope

.Introduction = Msg
.Item.To = EmailAddr
.Item.CC = EmailAddrCC
.Item.Subject = Subj
.Item.Display
.Item.Send
End With
Set MItem = OutlookApp.CreateItem(olMailItem)

TEXTE_AVANT = Empty
Objett = Empty
signa = Empty
EmailAddr = Empty
EmailAddrCC = Empty
Subj = Empty
Msg = Empty
End Sub

 

[croco40]

Re bonjour à tous.
J'ai fermé le fichier et relancé et visiblement ça refonctionne.
J'ai rien compris car je l'avais déjà fait.
Suerte
Croco.