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 :
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
--------------
Je voudrais donc la même chose mais au lieu de prendre la plage D10:E100,
prendre la plage filtré par le filtre automatique ...
Merci de vos conseils