Discussion :

[bart64]

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 :

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

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.

[preverse]

Pour travailler sur un fichier fermer tu peux utiliser ceci :

Code :

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

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

[romrai]

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 :

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

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

[bart64]

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

Code :

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

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 .
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

[bart64]

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

[romrai]

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 :

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

set wbExcel=nothing

[bart64]

Merci

[illight]

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

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