Discussion :

[LP-mpascolo]

Salut a tous,

J'ai cree un fichier excel dans un repertoire ou il y a d'autres fichiers...
J'aimerais recuperer le nom des fichiers qui se trouvent dans ce repertoire dans un tableau (je parle d'un tableau en VB).
Existe t-il une methode simple en VBA pour faire cela ?



Merci d'avance pour vos conseils .

Mario

[ouskel'n'or]

Une petite recherche sur le forum et tu aurais trouvé ça

Pour le tableau, tu le déclares as variant et tu le redimensionnes pour chaque fichier trouvé
A l'adresse que je t'ai passée, tu remplaces cette ligne

.......If fso.GetExtensionName(Wk) = "xls" Then _
...........ListBox1.AddItem Wk

par

Code :

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

1
2
3
4
5
6
Dim LeTableau() as variant
If fso.GetExtensionName(Wk) = "xls" Then
     i = i + 1
     Redim Preserve LeTableau(i)
     LeTableau(i) = Wk
Endif

Ensuite, pour afficher les noms :

Code :

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

1
2
3
For i = 1 to Ubound(LeTableau)
     msgbox LeTableau(i)
Next

[LP-mpascolo]

Est ce que je recupere tous les fichiers du Current Directory (oû se trouve le fichier Excel...) ?

J'ai essaye de ton code mais je n'ai pas l'impression que mes references VB soit les bonnes. Quelles sont les references qui doivent etre activé ?

[ouskel'n'or]

Si le fichier contenant la macro est dans le répertoire en question, pour avoir le chemin, tu mets

Code :

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

Chemin = ThisWorkbook.path & "\"

et tu utilises le code se trouvant à l'adresse que je t'ai passée, corrigé de celui que je t'ai mis.
S'il se trouve "ailleurs", tu dis

[LP-mpascolo]

Le probleme est qu'il ne reconnait pas ceci :

Code :

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

1
2
3
Dim fso As New FileSystemObject
Dim fich As File
Dim Rep As Folder

Erreur : Used-defined Type not defined...

Je ne dois pas avoir les references requises activés...

[ouskel'n'or]

C'est bien pb de référence. Tu dois valider la référence "Microsoft Scripting runtime"