[VBA-E]Importer des données de fichiers excel fermés

Bonjour,

Je dois consolider des données de plusieurs fichiers excel stockés dans un même dossier. J'ai testé ce code mais il semble fonctionner seulement si tous les fichiers sont ouverts :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Range("A1").Select Windows("test1.xls").Activate Application.CutCopyMode = False Range("A1").Copy Windows("conso.xls").Activate Range("A1").Select ActiveSheet.Paste Windows("test2.xls").Activate Application.CutCopyMode = False Range("A1").Copy Windows("conso.xls").Activate Range("A2").Select ActiveSheet.Paste

---

Si les fichiers sont fermés, la ligne Windows("test1.xls").Activate
provoque l'erreur "L'indice n'appartient pas à la sélection".


Y a-t-il une solution pour rappatrier des données de fichiers fermés ?
Enfin, est-il possible de lister les fichiers du dossier courant ?


Merci d'avance.

Pour travailler sur un fichier fermer tu peux utiliser ceci :

Code:

---

1 2 3 4 5 6 7 8

' Init Dim appExcel As Excel.Application Dim wbExcel As Excel.Workbook   ' Ouverture du fichier Excel Set appExcel = CreateObject("Excel.Application") Set wbExcel = appExcel.Workbooks.Open(fileToOpen) Set wsExcel = wbExcel.Worksheets(1)

---

...

Pour les lister le contenu d'un fichier, utilise la commande dir

P.R

Dit Preverse t'es sûre de ta méthode pour le travail sur un fichier sans l'ouvrir? parce que j'utilise le même code pour mon programme, et à chaque fois il m'ouvre le fichier!

sinon non dans ta déclaration tu peux également rajouter

Code:

---

Dim wsExcel As Excel.WorkSheet

---

Par contre bart64 je te déconseille l'utilisation du .activate, il marche une fois sur deux. Et pour le meilleur focntionnement de ton programme et la bonne lisibilité, c'est bien de faire des déclarations objet comme te suggère Preverse

Merci pour ces réponses. Je m'en suis tiré avec ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

For i = 1 To 2 ' Ouverture du fichier Excel   Dim appExcel As Excel.Application Dim wbExcel As Excel.Workbook Dim wsExcel As Excel.Worksheet   Set appExcel = CreateObject("Excel.Application") Set wbExcel = appExcel.Workbooks.Open("C:\Documents and Settings\xxx\Bureau\xxxx\" _ & fichiers(i)) Set wsExcel = wbExcel.Worksheets(1)   Application.CutCopyMode = False wsExcel.Range("A1").Copy Windows("conso.xls").Activate Range("A" & i).Select ActiveSheet.Paste   appExcel.Quit Next

---

Je vais alors trouver un moyen de supprimer le dernier Activate et de fermer plus proprement les appExcel :lol:.
En revanche, les autres fichiers ne s'ouvrent pas avec la méthode de preverse.

Peut-être faut-il que tu empêches de l'afficher en utilisant la propriété
appExcel.Visible = False ?

Merci à vous

Je trouve plus la balise résolu depuis le nouveau design... :resolu:

oui t'a peut être raison, j'utilisais pas le appexcel.visible=false.

Juste une dernière chose, c'est également bien de vider ta mémoire avec

Code:

---

set wbExcel=nothing

---

Merci

Citation:

---

Envoyé par bart64

Je trouve plus la balise résolu depuis le nouveau design... :resolu:

---

il est en haut dans le lien "outils de la discussion" en faut de ton post :) c'est une zone de liste :)