Sub Bouton2_QuandClic(ByVal Magasin As Long, ByVal AdrMail As String, ClientEtFact() As Variant)
Dim Te(), Le As Long, NivRup As Byte, MagCou As Long, LeDéb As Long, _
AdrCou As String, dL As Long, Ts(), Ls As Long, C As Long
Te = Feuil1.[A2].Resize(Feuil1.[A60000].End(xlUp).Row - 1, 4)
Le = 1: NivRup = 0
Do: 'Début magasin
MagCou = Te(Le, 3): LeDéb = Le
Do: ' Début adresse E-Mail
AdrCou = Te(Le, 4): dL = Le - 1 ' le-(le-1)=1
Do: 'Détail
Le = Le + 1: If Le > UBound(Te) Then NivRup = 0: Exit Do
If Te(Le, 3) <> MagCou Then NivRup = 1: Exit Do
If Te(Le, 4) <> AdrCou Then NivRup = 2: Exit Do
Loop
Rem — Fin adresse E-Mail
ReDim Ts(1 To Le - LeDéb, 1 To 2)
For Ls = 1 To UBound(Ts): For C = 1 To 2: Ts(Ls, C) = Te(Le - dL, C): Next C, Ls
Envoyer MagCou, AdrCou, Ts
Loop Until NivRup <= 1
Rem — Fin magasin
Loop Until NivRup = 0
Rem — Envoi d'un Mail au magasin et adresse Mail spécifiés
Dim L As Long
' If Workbooks("Mail.xls").Sheets("Feuil1").Cells(i, 4).Value <> "" Then
Dim NomDestinataire
Dim strHTML As String
Dim y As Byte, j As Byte
Set oOutlook = CreateObject("Outlook.Application")
Set oNewMail = oOutlook.CreateItem(olMailItem)
NomDestinataire = Workbooks("Mail.xls").Sheets("Feuil2").Cells(i, 4).Value
For L = 1 To UBound(ClientEtFact)
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
strHTML = ""
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "Bonjour,<BR><BR>"
strHTML = strHTML & "Voici la liste des écarts constatés sur les factures concernant votre magasin : <BR><BR>"
strHTML = strHTML & "<TABLE BORDER>"
For y = 1 To L 'nombre de lignes (exemple plage A1:B5)
strHTML = strHTML & "<TR halign='middle'nowrap>"
For j = 1 To 3 'nombre de colonnes qui est fixe
strHTML = strHTML & "<TD bgcolor='none'align='center'><FONT COLOR='blue'SIZE=3>" _
& Workbooks("Mail.xls").Sheets("Feuil2").Cells(y, j) & "</FONT></TD>"
Next j
strHTML = strHTML & "</TR>"
Next y
strHTML = strHTML & "</TABLE>"
strHTML = strHTML & "<BR><BR>Je reste à votre disposition en cas de besoin<BR>"
strHTML = strHTML & "<BR><BR>Merci de ne pas répondre à cet email, il s'agit d'un traitement automatique<BR>"
strHTML = strHTML & "<BR>Cordialement,"
strHTML = strHTML & "</BODY>"
strHTML = strHTML & ""
With oNewMail
.Recipients.Add NomDestinataire
.Subject = "ECARTS FACTURES " & Format(Date, "ddmmyyyy ")
.HTMLBody = strHTML
.send
End With
Next L
' End If
End Sub