Recherche entre fichier

Bonjour,

Je me trompe peut être, mais tu pourrais utiliser Query?,

Qu'elle version excel as tu?,

Cordialement,

Voilà j'ai fais ce que je pouvais faire mais sans fichier de donnée supplémentaire je ne peux pas tester après l'ouverture du fichier.

Sub test()
    Dim a
    For i = 2 To Range("A2:A" & Range("A65000").End(xlUp).Row).Row
        jour = Cells(i, 1).Value
        poste = Cells(i, 2).Value
        semaine = Cells(i, 7).Value
        Select Case poste
            Case "Broche MPH SBG"
                poste = "Broche"
                file = Cells(2, 17).Value
            Case "Coupe - SBG"
                poste = "Coupe"
                file = Cells(2, 18).Value
            Case "Montage 52 MPH SBG"
                poste = "Montage 2"
                file = Cells(2, 19).Value
            Case "Montage 53 MPH SBG"
                poste = "Montage 3"
                file = Cells(2, 20).Value
            Case "Piqûre MPH SBG"
                poste = "Piqûre"
                file = Cells(2, 21).Value
            Case "Préparation piqûre MPH SBG"
                poste = "Prépa"
                file = Cells(2, 22).Value
            Case Else
                MsgBox "Erreur ligne n°" & i
        End Select

        Workbooks.Open file  'A partir d'ici je ne sais pas si ça fonctionne

        a = Sheets(semaine).Find(jour).Column

        For j = 3 To Range("A1:A" & Range("A65000").End(xlUp).Row).Row
            If Cells(j, 1).Value = "CUMUL" Then
                resultat = Cells(j, 2).Value
                Exit For
            End If
        Next j

        ActiveWorkbook.Close

        Cells(i, 9).Value = resultat
    Next i
End Sub