Discussion :

[cafeine]

Hello,

juste pour info, pour gagner du temps la méthode la plus rapide consolider des données sur des classeurs fermés est d'utiliser DAO ou ADO. Il faut ensuite définir une requête SQL sur une plage délimitée de données.
J'ai un cas sur 120 fichiers excel avec environ 1 seconde par fichier.

[Blop le bricoleur]

Ha... On m'avait dit qu'utiliser ADO ça transformerait mon fichier en usine à gaz plutôt qu'autre chose .

Enfin je vais tester quand même de toute façon qui ne tente rien n'a rien !

Merci du conseil ^^.

[LeForestier]

L'erreur intervient là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(lig, 4) = Sheets("Feuil1(2)").Range("C15")

Je vois pas d'où ça provient...

Comme tu l'indique c'est une copie de feuille.. il faut un espace entre le 1 et la (

Feuil1 ICI (2)
A+

[Blop le bricoleur]

Merci ça marche ^^.

Par contre ça me colle pas les données sur le classeur censé les recevoirs mais sur le classeur sur lequel je prend les données.

Faudrait lui spécifier le nom du classeur sur lequel copier les donnée mais comment faire ?

[LeForestier]

Quel est le nom de la feuille de données ?
quel est le nom de la feuille qui "doit les recevoir" ?
Edit:
Les classeurs que tu ouvre sont tous dans le même répertoir ?
Ils doivent tous êtres ouvert quel que soit leur nom.?

[Blop le bricoleur]

La feuille de donnée ici se nomme "tableau" et la feuille recevant les données se nomme "classeur".

[LeForestier]

Je suppose que la feuille Tableau est dans le classeur que tu viens d'ouvrir et la feuille Classeur dans le classeur de base...!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim Wks as workSheet
Set Wks = Workboos("LeClasseurAvecLaFeuilleTableau").sheets("Tableau")
with Sheets("Classeur")
    .Cells(lig, 4) = Wks.Range("C15")
end with

Sans plus de renseignements...

[Blop le bricoleur]

mea culpa, j'avais pas précisé les classeurs.

Alors il y à le classeur reception.xls avec la feuille "classeur" (classeur qui recoit les données) et le classeur base.xls avec la feuille "tableau" (classeur avec les données de base).

Ils ne sont pas dans le même répertoire.
Comment ça il doivent tous êtres ouvert ?

Y'a le classeur "reception" qui est ouvert c'est tout. Puis quand je lance la macro ça m'ouvre le classeur "base", copie les cellules demandées et ferme ce classeur.

En éspérant avoir été assez précis .
Merci

[aalex_38]

Comme mis en exemple par LeForestier, il te faut préciser sur quel classeur et sur quelles feuille tu travaille.

Tu peux faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Wk1 as workbook, Wk2 as workbook
Dim F1 as worksheet, F2 as worksheet ....
 
Set Wk1 = Thisworkbook
Set Wk2 = workbooks("base.xls")
 
Set F1 = wk1.worksheets("classeur")
Set F2 = wk2.worksheets("Tableau")
 
' Un exemple à adapter
with F1
    .Cells(lig, 4) = F2.Range("C15")
end with

[LeForestier]

Je dispose d'une macro permettant d'aller chercher le contenu de diverses cellules dans des classeurs fermés. J'aimerais la modifier pour qu'a la place elle ouvre les classeurs, pioche les données et referme les classeurs. mais je n'ai pas la moindre idée de comment faire...

[Blop le bricoleur]

LeForestier -->

nan mais ça c'était au début^^.

Comme tout le monde me faisait des propositions différentes (et je remercie de s'être penchés sur mon problème) mon code finissait par ne plus ressembler à rien au final donc maintenant j'essaye de partir d'un code plus simple que j'adapterais au final à mon énnonçé du début.

Donc là je cherche à ouvrir 1 classeur depuis un autre, à copier 1 cellule de ce classeur puis la copier dans l'autre puis le fermer pour finir.

Une fois celà fait ce sera plus simple d'adapter le code pour plusieurs fichiers et pour plusieurs cellules .

Voilà :p.

aalex_38 ---->

Merci ça fonctionne .

Je vais pouvoir m'atteler à la tâche pour me rapprocher de mon code d'origine.

[LeForestier]

Re,
Il n'est pas nécessaire d'instancier tout ces objets...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim Wks As Worksheet
Set Wks = Workboos("base.xls ").Sheets("Tableau")
 
'puisque ta macto est dans ce classeur, la feuille est disponnible directement.
With Sheets("Classeur") 
    .Cells(Lig, 4) = Wks.Range("C15")
End With

Suffira amplement.
A+

[Blop le bricoleur]

Merci LeForestier !

Bon bha voilà, j'ai réussi à adapter ce bout de code pour finalement ouvrir tout les fichiers de mon dossier les uns après les autres et extraire ce qui m'interesse avec en prime une petite liste déroulante pour ne prendre les données que de certains de ces fichiers.

Au lieu de mettre 27min avec l'ancienne version pour extraire les donnée d'environ 20 fichiers je met maintenant que 40 secondes.

Je verrais pour l'optimisation, voir si je peux encore grapiller quelques secondes mais là ça me va parfaitement .


Merci beaucoup de m'avoir aidés ! J'en ai chié mais bon, ça valais le coup ^^.
Bonne continuation et bonnes vacances