Bonjour,
Lorsque je lance mon code j'ai une erreur de compilation mais je ne comprends pas pourquoi.
Le but est de faire des comparaisons de fichiers sur plusieurs mois et si une valeur n’apparaît pas dans le fichier de la veille on ajoute un date.
J'ai mis en pj un exemple de fichier (les fichiers comparés sont de même nature sauf qu'il y a des enregistrements en plus ou en moins).
Voici une partie de mon code, l'erreur survient sur la dernière ligne surlignée et en gras sur la variable "resultat". Merci d'avance pour votre aide
Dim chemin As String
Dim fichier As String, j As Integer, i As Integer
Dim MyFiles() As String
Dim resultat As String
Dim valeur As String
Dim feujour As String
Dim feuveille As Range
Dim dateorange As Range
Dim datevert As Range
Set wo = ThisWorkbook
fichier2 = wo.Worksheets("Feuil1").Range("B3").Value
Workbooks.Open "D:\Test" & Application.PathSeparator & fichier2
Set wk0 = ActiveWorkbook
chemin = "D:\Test\Test2" & Application.PathSeparator 'Chemin du trimestre actuel
fichier = Dir(chemin)
Do While fichier <> ""
ReDim Preserve MyFiles(j)
MyFiles(j) = fichier
j = j + 1
fichier = Dir()
Loop
Workbooks.Open chemin & MyFiles(0)
Windows(MyFiles(0)).Activate
Range("A4").Select
Selection.End(xlDown).Select
fin = ActiveCell.Row
For i = 4 To fin
valeur = Range("A" & i).Value
feujour = Range("G" & i).Value
Orange = "H" & i 'Orange servira à aller sur la case H4 à H"fin"
Vert = "I" & i 'Vert servira à aller sur la case I4 à I"fin"
Windows(fichier2).Activate
resultat = Windows(fichier2).Columns(1).Find(What:=valeur, LookAt:=xlWhole, MatchCase:=False)
Set feuveille = Windows(fichier2).Cells(i, 7) 'on récupère la valeur de la case G4 à G"fin"
Set dateorange = Windows(frichier2).Cells(i, 8) 'on récupère la valeur de la case H4 à H"fin"
Set datevert = Windows(fichier2).Cells(i, 9) 'on récupère la valeur de la case I4 à I"fin"
If resultat Is Nothing And feujour = "Feu orange Arrivée" Then