Discussion :

[arnest]

Bonjour

Lire divers fichiers Excel est possible via *.xls.
Je n'arrive pas à faire pareil avec des fichiers qui sont sur divers répertoires via \*\*.xls avez vous svp une idée ?

Cordialement

[PhunkyBob]

Bonjour,

Vous pouvez simplement boucler sur tous les sous-répertoire d'un répertoire pour connaitre leur contenu.

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
// Liste de tous les fichiers QV sur le disque.
sub DoDir (Root)
    for each Ext in 'qvw', 'qva', 'qvo', 'qvs'
        for each File in filelist (Root & '\*.' & Ext)
            Load '$(File)' as Name, FileSize( '$(File)' ) as Size, FileTime( '$(File)' ) as FileTime
            autogenerate 1;
        next File
    next Ext
 
    for each Dir in dirlist (Root&' \*' )
        call DoDir (Dir)
    next Dir
end sub
 
 
call DoDir ('C:')

Il faut adapter ce script avec les noms de vos fichiers.

[arnest]

Merci beaucoup.
La solution que vous proposez je n'arrive pas à l'adapter et Je suis confus ne sais pas comment faire.

[PhunkyBob]

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
// Charge tous les fichiers Excel d'un répertoire.
sub DoDir (Root)
	for each File in filelist (Root & '\*.xlsx')
 
		// Remplir ici par le script de chargement.
		// Le nom du fichier est dans la variable "File".
 
	next File
 
	for each Dir in dirlist (Root & '\*')
		call DoDir (Dir)
	next Dir
 
end sub
 
 
call DoDir ('C:\data')