Recherche entre fichier
m
Bonjour,
Je me trompe peut être, mais tu pourrais utiliser Query?,
Qu'elle version excel as tu?,
Cordialement,
v
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