Discussion :

[Roln1k]

je pensais que le fichier texte correspondait pas, me disant qu'il ne pouvait remplir le tableau, d'où l'erreur, mais on dirait que le chemin est bien le bon. En regardant sur le net, la plupart des temps cette erreur est lié à la dimension des tableaux, alors est-ce lié à la déclaration du tableau ou autre ?

[Oliv-]

Sauf que dans le code tu as
"C:\Users\YKaratekin\Dropbox\Domaine-Cial.txt"

et pas
"C:\Users\YKaratekin\Domaine-Cial.txt"

[Roln1k]

Sauf que dans le code tu as
"C:\Users\YKaratekin\Dropbox\Domaine-Cial.txt"

et pas
"C:\Users\YKaratekin\Domaine-Cial.txt"

oui pardon, j'ai changé de dossier entre-temps, j'ai reédité le code. Mais l'erreur persiste, je suis loin d'être un pro mais la boucle qui remplie le tableau, elle me semble correcte, le chemin du fichier est le bon, je vois pas ce qui cause cette erreur

[Oliv-]

J'ai testé le code chez moi il va très bien.
cela vient du contenu de ton fichier texte Domaine-cial.txt
il doit débuter directement avec les lignes de correspondances (sans saut de ligne)
il ne doit effectivement pas y avoir de @ dans la première partie

domaine1.fr;cial1@test.fr
domaine2.fr;cial2@test.fr
exemple1.fr;cial3@test.fr

ps :tu peux lire ceci

[Roln1k]

Je n'ai laissé qu'une ligne dans mon fichier texte, afin de déjà tester s'il parvient à entrer dedans mais toujours la même erreur

Code :

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

viacesi.fr;icewolve@hotmail.fr

ci dessus le contenu du mon .txt

J'ai ensuite mis un prompt dans le sub Alimente_liste et j'ai pu remarquer que le prompt ne s'est pas executé. Je suis loin d'être un pro en VBA mais c'est un peu comme si le script ne fait pas appel à Alimente_iste

[Oliv-]

Écris

Code :

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

stop

au début de la procédure
Tu testes cela va faire un arrêt et tu appuis sur f8 pour passer à l instruction suivante

Il faut que tu utilises le mode pas à pas F8 où que tu mettes un point d'arrêt (cliques dans le colonne à gauche de l'instruction o^tu veux ton arrêt) ou un espion;

un peu de lecture (c'est pareil pour outlook)
http://cafeine.developpez.com/access...el/debugprint/
http://www.tomshardware.fr/forum/id-...-debogage.html

[Roln1k]

Salut,
Le code s’exécute, puis à la ligne

Code :

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

cci = Get_Cial(sDomain)

on entre dans la fonction Get_Cial et sDomain est égal à exemple.fr toutefois dans la fonction get_cial,

Code :

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

For i = 0 To UBound(MyArray)

je retrouve la même erreur "erreur d'execution 9 : l'indice n'appartient pas à la sélection" au niveau de cette ligne.

Edit : J'ai simplement rajouté l'appel à la fonction Alimente_Liste, on dirait que l'origine du soucis était betement que j'avais omis d'y faire appel et donc le tableau était vide. Voici donc le code (fonctionnel) que j'ai. Merci beaucoup pour toute l'aide !

ThisoutlookSession

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
 
'By Oliv' 29/06/2007 pour Outlook 2003
'Modifié par D. Schneider le 30/03/2015
    
    If Not Item.Class = olMail Then GoTo fin
 
    Dim prompt As String
 
    '########################correspondance CC selon destinataire##############################
 
 
    Dim recip As Outlook.Recipient
    Dim sDomain As String
    Dim arTemp As Variant
    Alimente_Liste
    
    Set recip = Item.Recipients(1)
    arTemp = Split(recip.Address, "@", , vbTextCompare)
    sDomain = arTemp(1)
    
    cci = Get_Cial(sDomain)
 
    '########################Option CC##############################
 
    prompt = "Ajouter le cc " & cci & " à " & Item.Subject & "?"
 
    If MsgBox(prompt, vbYesNo + vbQuestion, "Sample") = vbYes Then
 
        Set myRecipient = Item.Recipients.Add(cci)
 
        myRecipient.Type = olCC
 
        myRecipient.Resolve
 
        If myRecipient.Resolved = False Then
 
            MsgBox "L'adresse Email n'est pas correcte !", vbCritical, "Erreur"
 
            Cancel = True
        End If
 
    End If
 
    '#######################FIN#####################################
 
fin:

End Sub

Le module1

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
27
28
29
30
31
32
33
34
35
36
Public MyArray()
Sub Test_Get_Cial()
Call Alimente_Liste
    MsgBox Get_Cial("exemple1.fr")
End Sub
 
Sub Alimente_Liste()
 
    Dim intFic As Integer
    Dim strLigne As String
    Dim i As Integer
 
    i = 0
    intFic = FreeFile
    Open "C:\Users\YKaratekin\Dropbox\Domaine-Cial.txt" For Input As intFic
    i = 0
    While Not EOF(intFic)
        Line Input #intFic, strLigne
        ReDim Preserve MyArray(i)
        MyArray(i) = strLigne
        i = i + 1
    Wend
Close intFic
End Sub
 
 
Function Get_Cial(Email) As String
    Get_Cial = ""
    For i = 0 To UBound(MyArray)
        If Split(MyArray(i), ";", , vbTextCompare)(0) = Email Then
            Get_Cial = Split(MyArray(i), ";", , vbTextCompare)(1)
            Exit For
        End If
    Next i
 
End Function