Discussion :

[ftr33]

Bonjour,

J'ai besoin de votre expertise concernant ma problématique.

Pour faire simple, je cherche à envoyer un mail à deux personnes (accompagnant et accompagné), les adresses mail de ces personnes sont dans 2 colonnes différentes.

En suivant les tutos ici et sur internet, voici mon 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
 
 
Sub envoimail()
 
Dim lemail As Variant
Dim ligne As Integer
 
Set lemail = CreateObject("Outlook.Application")
For ligne = 2 To 4
 
With lemail.createitem(olMailItem)
 
.To = Range("C" & ligne) & ";" & Range("I" & ligne)
.display
 
End With
 
Next ligne
 
End Sub

Pas de soucis , cela s'exécute et fonctionne.

J'aimerai optimiser ce code en n'ayant plus à saisir

For ligne = 2 To X

Si le code pouvez identifier de lui même le nombre de ligne avec une adresse sur les colonnes C et I , cela serait parfait !

Pouvez-vous m'apporter votre aide ?

J'ai essayé pas mal de chose sur internet mais je n'arrive jamais à une solution optimale.

Par avance, merci !
Pas en PJ mon fichier