Comment inclure cette condition dans mon code

Salut le forum

Avant tout je tiens à vous présenter mes voeux les meilleurs pour cette année 2013:

• beaucoup de santé à vous et à vos proches,
• beaucoup d'inspirations pour trouver toujours des solutions à nos soucis

J'ai un code qui me permet de faire des impressions.

La fin de l'impression est suivi d'un appel de macro.

Je souhaite ajouter une condition qui quand elle est vérifiée, que cela entraine l'appel de la macro (Envoi_mail) sinon pas d'appel de la macro.

Voici le code:

ElseIf valeur_donne_H20 = "1" Then
Sheets("PS").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
Sheets("doute").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
Sheets("pro").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
If Range("C31") = "" Or Range("C31") = "NEANT" Then Exit Sub
Call Envoi_Mail

Voici la partie du code ou je souhaite qu'on intervienne:

If Range("C31") = "" Or Range("C31") = "NEANT" Then Exit Sub
Call Envoi_Mail

[/code]

Je préfère que si dans la cellule C31 de la feuille DONNEE, il y'a le symbole @ qu'il y'ait appel de la macro Envoi_Mail sinon exit sub.

Merci

Salut Zombe,

A tester

On Error Resume Next
m = WorksheetFunction.Search("@", Range("C31"))
If m > 0 Then Call Envoi_Mail

Cordialement

Salut Yvouille

Merci pour le feedback.

Je teste et vous reviens.

Cdlt

Salut Zombe,

Les tests sont-ils concluants ?

Cordialement.

Salut Yvouille

Excuse du temps mis pour la confirmation.

C'est peace.

Merci à toi