Bonjour,

J'ai ajouté dans un premier dictionnaire les valeurs de la colonne A de mon onglet Data

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
	Set Dico1 = New Collection
    	DernLigne = Worksheets("Data").Range("A" & Rows.Count).End(xlUp).Row
    	For i = 2 To DernLigne
    	Dico1.Add Item:=Worksheets("Data").Cells(i, 1)
    	Next i
Je crée un second dictionnaire dans lequel je veux mettre uniquement les valeurs du fichier texte et qui sont présentes dans le dico1

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
 	MonFichier = "C:\.......\...txt"
 
 
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	Set objFile = objFSO.OpenTextFile(MonFichier, 1, -2)
 
	Set Dico2 = New Collection
 
 
    	Do Until objFile.AtEndOfStream
    	row = objFile.ReadLine
	Split_Txt = split_function (row) 'fonction qui découpe mon fichier texte
        Key = Field5 'Field1 est déterminé à partir de la fonction split_function  (Field5 = Mid(row, 14, 3))
            If Dico1.Exists(Key) Then
            Dico2.Add Item:=Split_Txt
            End If
    	Loop
En utilisant la focntion "Exists" j'ai un message d'erreur. Pouvez vous m'aider?

Merci d'avance