Charger des adresses mail dans une array

Bonjour,

Je suis cloche, malgré la lecture de la doc sur les arrays
http://didier-gonard.developpez.com/...s-tableau-vba/
je n'arrive pas à charger ma vairable pour ennvoyer des mails Lotus à une liste de personnes.

En effet ma séquence:

Code:

---

1 2 3 4 5 6 7

Dim Recipient As Variant Recipient = Array("denis.Nom@organisation.com", "marc.Nom@organisation") ... With docMail .Form = "Memo" .SendTo = Recipient

---

Envoie bien aux deux personnes

Par contre je n'arrive pas à remplir le tableau d'après une liste.
En plus je me suis rrendu compte que ça envoyait le mail à plein de gens ;).

Code:

---

1 2 3 4 5 6 7 8

Recipient = Range("J2").Value & "@organisation.com"   ActiveSheet.Range("J3").Select Do While Not IsEmpty(ActiveCell) Recipient = Recipient & "," & ActiveCell.Value & "@organisation.com" Selection.Offset(1, 0).Select Loop

---

Comment faut il faire pour charger et surout utiliser "recipient" j'ai beau avoir essayé de comprendre les deux dimensions des tableaux et essayé de pêcher "recipient(i,1), ça ne marche pas.
MErci pour votre aide
Denis

Bonjour,

Attention, tu as l'air de considérer que Array("denis.Nom@organisation.com", "marc.Nom@organisation") est une chaîne de caractères. Une chaîne de caractères se situe toujours entre guillemets. Array("denis.Nom@organisation.com", "marc.Nom@organisation") est une collection. Ex.:

Code:

---

1 2	toto = Array("plus tard, tu comprendras") titi = Array("plus tard", "tu comprendras")

---

Les Array toto et titi ne sont pas les mêmes !
Or toi, tu fais ceci :

Code:

---

1 2 3

chaine = "plus tard" chaine = chaine & "," & "tu comprendras" tutu = Array(chaine)

---

tutu est identique à titi.
Je sais pas si je suis bien claire ?

Tu pourrais procéder avec des tableaux (pas testé) :

Code:

---

1 2 3 4 5 6 7

Dim adresses() As String Dim i As Long, n As Long n = Range("J3").End(xlDown).Row 'dernier ligne non vide (ligne de la dernière adresse) Redim adresses(n) 'on redimensionne adresses pour qu'il ait autant d'éléments que d'adresses. For i = 3 To n adresses(i - 4) = Range("J" & i).Value & "@organisation.com" 'l'élément i du tableau adresses vaut ... Next i

---

Merci Riaolle !!

Bien sûr ! ça doit être la chaleur, quand on mélange on a de la soupe.

Grâce à toi, j'ai repris ton code et corrigé et cela fonctionne.
Merci