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.