Message erreur "1004"

Bonjour a tous

j'avais cette macro qui fonctionne tres bien et soudain j'ai le message suivant (voir image) sur la ligne " ActiveWorkbook.EnvelopeVisible = True"

alors je sollicite votre aide en vous basant sur la macro en question.

Merci

Message erreur"" la methode 'envelopeVisible'de l'objet'_workbook a echoué""

Private Sub CommandButton1_Click()
Dim Ws As Worksheet
Set Ws = Sheets("Anomalies")

    Dim OLmail As Object
    Dim Dest As String
    Dim I As Long
    Dim Signature As String
    Dim Texte As String

    Dim OL As New Outlook.Application
    Set OLmail = OL.CreateItem(0)

     ActiveSheet.range("C4:O20").Select ' la plage de cellules à envoyer
[b]ActiveWorkbook.EnvelopeVisible = True[/b]

With ActiveSheet.MailEnvelope

       .Introduction = "bonjour , ci joint les données ..."
    .Item.To = TextBox2
    .Item.Subject = "Cons vide"
    .Item.send

    End With

End Sub

bonsoir,

pas de problème avec ton code.

je vois bien des instructions inutiles, mais je ne pense pas que ce soit le problème.

Private Sub CommandButton1_Click()
    Dim Ws As Worksheet
    Set Ws = Sheets("Anomalies")
    Dim Dest As String
    Dim I As Long
    Dim Signature As String
    Dim Texte As String

    ActiveSheet.Range("C4:O20").Select    ' la plage de cellules à envoyer
    ActiveWorkbook.EnvelopeVisible = True
    With ActiveSheet.MailEnvelope
        .Introduction = "bonjour , ci joint les données ..."
        .Item.To = TextBox2
        .Item.Subject = "Cons vide"
        .Item.send
    End With
End Sub

Je te remercie pour l’explication.

Bonne soirée