bonjour Jph
j'espere que cette adaptation pourra t'aider ( j'ai supposé que toutes les données récupérées dans plusieurs classeurs s'affichaient à la suite dans les colonne B et C )
dans cet exemple les onglets de classuers fermés doivent imperativement etre nommés Feuil1 , Feuil2 et Feuil3
Sub chercheFichiersFermesV04()
Dim X As Integer, nbFichiers As Integer, Y As Integer
Dim j As Byte
Dim Tableau() As String
Dim Direction As String
Application.ScreenUpdating = False
Direction = Dir("C:\Documents and Settings\michel\dossier\*.xls") 'adapter chemin repertoire
Do While Len(Direction) > 0
nbFichiers = nbFichiers + 1
ReDim Preserve Tableau(1 To nbFichiers)
Tableau(nbFichiers) = Direction
Direction = Dir()
Loop
If nbFichiers > 0 Then
For X = 1 To nbFichiers
For j = 1 To 3 'les noms de feuilles doivent imperativement etre du stye Feuil1,Feuil2...)
If Tableau(X) <> ThisWorkbook.Name Then
Y = Y + 1
With ActiveSheet.Cells(Y, 2)
.Formula = "='C:\Documents and Settings\michel\dossier\[" & Tableau(X) & "]Feuil" & j & "'!" & "C4"
.Value = .Value
End With
With ActiveSheet.Cells(Y, 3)
.Formula = "='C:\Documents and Settings\michel\dossier\[" & Tableau(X) & "]Feuil" & j & "'!" & "B3"
.Value = .Value
End With
End If
Next j
Next X
End If
Application.ScreenUpdating = True
End Sub
bon apres midi
MichelXld