Sub RécupDonnées()
Dim Fichier As Range, FichTemp As Workbook, Col As Long, Param As Range, TrouveParam As Range, Concac As String
Application.DisplayAlerts = False
Col = 1
'pour chaque fichier colonne B feuille test de ce classeur
For Each Fichier In Range("B2", Range("B65536").End(xlUp))
'on récupère le fichier serveur dans la variable objet "FichTemp"
Set FichTemp = GetObject(Fichier.Offset(0, -1).Value & Fichier.Value)
Col = Col + 1
'dans la feuille "Données brutes"
With Sheets("Données brutes")
'on récupère le nom du fichier
.Cells(2, Col).Value = Fichier.Value
'on écrit la version en fonction de la valeur D9 du classeur "FichTemp"
.Cells(3, Col).Value = IIf(FichTemp.Sheets(1).Range("D9").Value = "Client :", "Version 1", "Version 2")
'on récupère les paramètres "objet de la demande", "date de la demande", etc...
'en recherchant chacun de ces paramètres dans le fichier "FichTemp".
'Il faut que le nom soit exactement le même dans les 2 fichiers, ce qui n'est pas le cas pour Marque/Modèle
'écrit dans les fichiers serveurs alors que ces 2 données sont séparés dans ce classeur. Dans le cas contraire,
'il faudra revoir cette partie du code.
For Each Param In .Range("A4:A15")
Set TrouveParam = FichTemp.Sheets(1).Columns("A:E").Find(Param.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not TrouveParam Is Nothing Then .Cells(Param.Row, Col).Value = TrouveParam.Offset(0, 1).Value
Next
End With
FichTemp.Close
Next
Application.DisplayAlerts = True
End Sub