With ou selectcase ou array pour envoyer un mail

Bonjour tout le monde ,

Après plusieurs recherches j'ai réussi a trouvé un code que j'ai adapté a mes besoins mais je bloque au niveau de select case, je ne sais pas si je l'ai bien placé dans le code.

en faite ce code me permet d'envoyer 1 seul mail a un collègue ; le corps de mail vient de trois feuilles et selon conditions(récupère les dates qui sont équivalent a la date du jour) ;

Le code fonctionne parfaitement quand je me déplace sur feuilles en utilisant

"With ActiveSheet" et suivie par Select Case ActiveSheet.Name

Case "..."

Case "..."

Case "..."

End Select

ce que je veux c'est de ne pas me déplacer a chaque fois sur les feuilles concerné et de lancer le code directement via mon usf, j'ai essayé : Sheets(Array("...", "...", "...")).Select mais ca rien donnée , quelqu'un a une idée s'il vous plait ?

je vous joins mon fichier si ca peut vous aider ?(codes réparti dans usf4 et module 1).

En vous remerciant

Amicalement

Bonne soirée

Bonsoir

Je n'ai pas outlook alors je ne peux pas t'aider à son sujet

Pour le reste à voir

tout le monde ,

Banzai64 ,

de t'avoir investi sur mon souci et pour ton aide ça fonctionne très bien, il fallait utiliser les 3 procédures

Connais tu un moyen s'il te plais pour regrouper tous les messages (venant des 3 feuilles ) sur un seul message , d'ailleurs les messages que t'as rajouté est super car ça me permettrais de vérifier avant d'envoyer.... ?

car j'envoie tout a une seul personne

pour out-look ça fonctionne ; pas de souci..

Amicalement

Bonne journée

Bonjour

Pour avoir tous les messages

1) Mets en remarque

'      Msg = ""
'      dest = ""

2) déplaces ce code après le Next Ws juste avant le End Sub

  If dest <> "" Then    ' contrôle si il y a bien une adresse mail
    Call EnvoiMailSimple(dest, Msg)
  End If

Bonne journée

Re-bonjour Banzai64 ,

.......

J'adore ta simplicité ainsi que ta performance de programmer

Amicalement:bien:

A bientôt