Aide sur feuille Récapitulative Sur Excel 2007.

Bonjour
Si j'ai bien compris
On veut récupérer les données de 20 classeurs, dont chacun à 1 feuille unique nommée "Recensement 2014" . les données sont réparties sur 150 lignes et 20 colonnes avec un début en A9.
Voici donc un fichier composé de 2 feuille, sur la première "Liste" saisissez en colonne A les chemins de chaque classeur, en colonne B le nom des classeurs avec l'extension ".xlsx" comprise.
https://www.cjoint.com/c/CHEsQsTyBqr
il n'y a plus qu'à essayer
cdlt

Salut Frenchie83

Je vient de tester ton fichier, petite problème pour la récupération de données, je crée une dossier sur C: appelle Essai_Reca_TATA_1

Impossible d'importé le classeur avec le bouton de récupération.

Message d'erreur 1004

PS: Je nomme dans la feuille Excel de la manière suivant:

"Emplacements (chemin complet,
ne pas mettre le dernier ""\"")"

C:\Essai_Reca_TATA1
C:\Essai\Reca\TATA1

Le nom de dossier dans la conne "B"

DM 1 MartelOutil recensement DSO septembre 2013 .xlsx

Merci de ton aide car je ne comprend pas la suite.

Merci d'avance

Bonjour TATA
En ce qui concerne l'erreur 1004.
Est-tu sûr que les chemins sont bien corrects, ils terminent tous par "TATA1" (et non pas "TATA2" puis "TATA3" etc).
Le noms des fichiers "DM 1 MartelOutil recensement DSO septembre 2013 .xlsx ", l'espace après 2013, est-il volontaire ou est-ce une erreur? à vérifier.
J'ai refait tourner sur mon PC, ça marche très bien.
je me suis seulement trompé sur un décalage que je t'invite à rectifier toi-même. Dans l'avant dernière ligne avant le next i , dans la ligne ActiveCell.Offset(150, 1).Select remplace le 1 par 0 ce qui donne ActiveCell.Offset(150, 0).Select.
j'attends ta réponse
cdlt

Salut Frenchie83

Désole de t'es dérange encore, je t'explique, dans le C: j'ai crée une dossier qui s'appelle C:Essai_Reca_TATA1.

Dans ce dossier je place le 3 fichiers Excel:

DM 1 MartelOutil recensement DSO septembre 2013.xlsx
DM HH MCote Outil recensement DSO septembre 2013(1).xlsx
DCILM ENDJ E RoyRecensement formation 2014 END.xlsx

J'essai avec C:Essai_Reca_TATA1 au C:Essai\Resa\TATA1, avec aucune il fonctionne.

Le code est corrige comment tu m'à signale dans mon message précèdent.

Merci pour ton Aide

@ +

Salut Frenchi83

Je vient de faire le changement, il me donne une message que porte sur ton code VB: dans le WORKBOOKS.

Meri de ton aide

<Sub RecupDonnees()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ClasseurSynthese = ThisWorkbook.Name
Sheets("Synthese").Select
Cells.ClearContents
Range("A1").Select
'Relevé des emplacements des classeurs à importer **************
Sheets("Liste").Select
DerLig = Range("A1").End(xlDown).Row

ReDim Emplacement(DerLig - 1) As String
ReDim Classeur(DerLig - 1) As String
For i = 1 To DerLig - 1
Emplacement(i) = Cells(i + 1, 1)
Classeur(i) = Cells(i + 1, 2)
Next i
Sheets("Synthese").Select
For i = 1 To DerLig - 1

Workbooks.Open Filename:=Emplacement(i) & "/" & Classeur(i)

Sheets("recensement 2014").Select
Cells(9, 1).Resize(150, 20).Select
Selection.Copy
Windows(ClasseurSynthese).Activate
ActiveSheet.Paste
ActiveCell.Offset(150, 0).Select
Windows(Classeur(i)).Close
Next i

Bonjour

Voila un model de recape de compte de banque

http://cjoint.com/?3IbwgFOYtv1

A toi de modifier le range et mettre les bon chemin

A+
Maurice