Code pour envoyer une feuille par Email

Bonjour,

J'ai un code pour envoyer une feuille par E mail qui fonctionne.

Mon problème c'est que si je clique sur non (au moment de valider l'autorisation) j'ai une erreur 1004 et tout ce bloque je suis obliger de refermer Excel.

Si vous avez une idée.

Merci

Private Sub CommandButton4_Click()
ThisWorkbook.Sheets(1).Copy
With ActiveWorkbook
.SendMail Recipients:=Array("test@orange.fr", "testmail@orange.fr"), Subject:="la feuille" & Format(Date, "dd/mmm/yy")
.Close SaveChanges:=False
End With

    Application.WindowState = xlNormal

End Sub

Thisworkbook et activeworkbook ne vont pas bien ensemble et je t'y refers au guide de l'aide à ce sujet.

On Error Resume Next au début de la Procédure règlera ton problème. J'en ai fait le test avant de répondre.

Désolé j'avais pas vue ta réponse,

Je ne comprend pas tres bien ce que tu veux dire, peux tu reposter le code avec la modification

Merci.

À la première ligne du code tu ajoutes comme par exemple

Sub Ta_Procédure()

On Error Resume Next

Suite du code

End Sub

Merci..

Bonjour à tous

Super cette macro, ça fonctionne et ça va beaucoup m’aider.

Par contre j’ai la message box qui s’affiche et me demande d’accepter ou de refuser l’envoi du mail. (voir pièce jointe)

Serait-il possible de ne pas l’afficher et d’envoyer l’email sans passer par ce message.

Merci d’avance pour vos réponses