"with" ou "selectcase" ou "array" pour envoyer un mail SVP

[asmol]

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).

asmol selectcase.zip

(88.37 Kio) Téléchargé 15 fois

En vous remerciant

Amicalement

Bonne soirée

[Banzai64]

Bonsoir

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

Pour le reste à voir

[asmol]

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

[Banzai64]

Bonjour

Pour avoir tous les messages

1) Mets en remarque

Code: Tout sélectionner

'      Msg = ""
'      dest = ""


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

Code: Tout sélectionner

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

Bonne journée

[asmol]

Re-bonjour Banzai64 ,

.......

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


Amicalement:bien:


A bientôt