Sujet Précédent Sujet Suivant

Aide sur feuille Récapitulative Sur Excel 2007.

Fermé
TATA - 29 août 2013 à 16:29
 foo - 1 sept. 2013 à 22:09
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*


A voir également:

6 réponses

Réponse 1 / 6
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
30 août 2013 à 18:43
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
0
Réponse 2 / 6
TATA
1 sept. 2013 à 00:15
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
0
Réponse 3 / 6
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
1 sept. 2013 à 07:38
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
0
Réponse 4 / 6
TATA
1 sept. 2013 à 12:20
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

@ +
0
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
1 sept. 2013 à 19:55
bonsoir
Tu oublies un \ après le C:
remplace C:Essai_Reca_TATA1 par C:\Essai_Reca_TATA1
là, ça devrait aller mieux
cdlt
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
cumpa100. Messages postés 6 Date d'inscription jeudi 29 août 2013 Statut Membre Dernière intervention 3 mai 2017
1 sept. 2013 à 20:09
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
0
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
1 sept. 2013 à 20:27
Désolé, je ne comprends pas les sens de la question. et quel est le message?
0
cumpa100. Messages postés 6 Date d'inscription jeudi 29 août 2013 Statut Membre Dernière intervention 3 mai 2017
1 sept. 2013 à 20:48
Salut

Voila, je faits toute les changements indique, en suite je lance la procédure avec le bouton et une message apparia comme quoi le chemins de fichiers il ne sont pas juste, écoute pour ce soir ce ok, je vais demain tout contrôler et je te redis

Bonne soirée

@ +

Merci
0
Réponse 6 / 6
foo
1 sept. 2013 à 22:09
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
0