Code pour envoyer une feuille par Email

[patb12]

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

Code: Tout sélectionner


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

 

[Singelaid]

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.

[patb12]

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.

[Singelaid]

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

Sub Ta_Procédure()
On Error Resume Next
Suite du code
End Sub

[patb12]

Merci..

[tahitybob01]

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