Discussion :

[Denis_67]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[riaolle]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Denis_67]

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