Tuau THeme,
T'es super.... Merciiiiiii mille fois
J'ai resoudre le blèm avec ta proposition que j'ai modifier.
En effet déclarer un variable publique était simple.
1. J'ai fait Plublic NE as interger
2. Puisque le filtre que je réalise se fait a partir d'une autre feuille "FiltrerContact"... Alors je suis aller la bas récupérer le combre d'enregistrement : NE = Application.CountA(Sheets("FilterContact").Range("A:A"))
3. De retour dasn le module 5 dans ma fonction SendMail3 je fait ce code :
Sub SendEmail3(sujet As String, corps_message As String)
Dim olApp As Outlook.Application
Dim olMail As Outlook.MailItem
MsgBox NE ' Pour voir quel est la valeur qu'il contient
For i = 2 To NE
Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)
With olMail
.BodyFormat = olFormatHTML
.Display
.To = Feuil2.Range("U" & i).Value
.Subject = sujet
.HTMLBody = corps_message & .HTMLBody
'.Attachments.Add fichier_join
'.Send
End With
Next i
End Sub
C'est cool merci...
Je pourrai l'améliorer par la suite; Bravo a toi