Copier le cntenu de plusieurs fichier dans un

Salut Houledef,

toujours dans de sacrés problèmes à ce que je vois

on pourrait faire un truc dans ce style (dernier message)
http://www.commentcamarche.net/forum/affich 8614224 liaison classeur du meme repertoire

bien sûr en adaptant à ton contexte: ce qui veut dire qu'il faudra que tu donnes des renseignements précis! suivant ceux-ci, ce sera peut-^tre par une autre méthode dite "ADO"

a demain

bonjour,
merci pour la réponse.
j'ai essayé ce code ça marche bien mais je veux copier le contenu de la plage suvante $A$11:$E$11 pour chaque fichier dans le fichier maitre comment puis je faire?

Sub extraire()
Dim chemin As String, fichier As String
Dim cptr As Byte

Application.ScreenUpdating = False
Sheets(1).Columns(1).ClearContents
Sheets(2).Columns(1).ClearContents

chemin = ThisWorkbook.Path
ChDir chemin
fichier = Dir("*.xls")

cptr = 1
While fichier <> ""
If fichier <> "maitre.xls" Then
' utilisation macro "walkenbach": extraire sans ouvrir donnée fichier fermé
Sheets(1).Cells(cptr, 1) = ExecuteExcel4Macro("'" & chemin & "\[" & fichier & "]Feuil1'!R3C3")
Sheets(2).Cells(cptr, 1) = ExecuteExcel4Macro("'" & chemin & "\[" & fichier & "]Feuil2'!R4C2")
cptr = cptr + 1
End If
fichier = Dir
Wend

End Sub

Bonjour,

Tu as juste la plage A11:E11?
Quel est le nom de l'onglet ?
Tes classeurs sont -ils bien appelés 1970, 1971, 1972... car la collecte se fera dans l'ordre alphab^tique.

Si oui et si XL<2007, tu pourrais peut-être utiliser cette appli (technologie ADO). elle ne doit pas être dans le m^me répertoire.
https://www.cjoint.com/?kbjVoaEadR

on pourrait aussi personnaliser pour ton cas (c'est du boulot!)

Dans l'attente

ça marche bien merci pour tout..
bon courage.