Aide sur feuille Récapitulative Sur Excel 2007.
TATA
-
foo -
foo -
Bonjour,
Je voudrais créer une feuille Excel que puisse réunir tout les donnes de 20 classeurs. Dans le 20 classeur le seul onglet avec des donnes est nomme *recensement 2014*, la feuille est compose de 150 ligne et 20 colonnes.
Le but de récolte l'information de tout le classeur sur une feuille Excel, je cherche une code VB que puisse faire l'affaire.
Merci de votre aide
PS: Le code il doit commencer à la colonne *A* ligne *9*
Je voudrais créer une feuille Excel que puisse réunir tout les donnes de 20 classeurs. Dans le 20 classeur le seul onglet avec des donnes est nomme *recensement 2014*, la feuille est compose de 150 ligne et 20 colonnes.
Le but de récolte l'information de tout le classeur sur une feuille Excel, je cherche une code VB que puisse faire l'affaire.
Merci de votre aide
PS: Le code il doit commencer à la colonne *A* ligne *9*
A voir également:
- Aide sur feuille Récapitulative Sur Excel 2007.
- Save as pdf office 2007 - Télécharger - Bureautique
- Liste déroulante excel - Guide
- Comment trier par ordre alphabétique sur excel - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Comment calculer la moyenne sur excel - Guide
6 réponses
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
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
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
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
@ +
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
@ +
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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
