Bonjour,
Soit une macro avec un bouton qui ouvre OE pour écrire un message.
Les destinataires sont trouvés dans la plage D10:E100 de la feuille.
Comment faire pour que le code sélectionne non plus toutes les adresse de la pages, mais seulement les adresses filtrés par le filtre automatique ?
le code :
Je voudrais donc la même chose mais au lieu de prendre la plage D10:E100,
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26 --------------- Private Sub CommandButton1_Click() Dim k As Integer Dim nb As Integer Dim Dest As String Dim Sujt As String Dim Msg As String For Each Une_adresse In Range("D10:E100") k = k + 1 If Une_adresse = "" And k = 1 Then ' la boucle fait une concaténation des Dest = Dest ' adresses mails trouvées dans les cellules ElseIf Une_adresse <> "" And k = 1 Then ' si vide, on passe au suivant Dest = Dest + Une_adresse ' sinon on concatène et on ajoute un ; nb = nb + 1 ' k est le nbr de cellules ElseIf Une_adresse <> "" Then ' nb est le nombre d'adresses à la fin Dest = Dest + ";" + Une_adresse nb = nb + 1 End If Next Sujt = "à liste ERS" Msg = "Message adressé à toutes les écoles ERS77" & " (" & nb & " adresses)" Shell "C:\Program Files\Outlook Express\msimn.exe " & _ "/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & "" 'SendKeys "%s" End Sub --------------
prendre la plage filtré par le filtre automatique ...
Merci de vos conseils
Partager