Discussion :

[m0urad]

Bonjour,

Mon problème est que ma macro censé lister les fichiers .xls d'un dossier ne m'indique rien alors que le dossier n'est pas vide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub BoucleFichiers()
    Dim Chemin As String, Fichier As String
 
    'le répertoire contenant les fichiers
    Chemin = "T:\....\Produits"
 
 
    Fichier = Dir(Chemin & "*.xls", vbDirectory)
 
    Do While Len(Fichier) > 0
        Worksheets(Sheet1).Range("A1").Value = Fichier
        Fichier = Dir()
    Loop
End Sub

Merci a celui ou celle qui pourra me dire ou est le problème

[ucfoutu]

Bonjour,

chemin doit se terminer par un \

EDIT :
Et tu écrases à chaque fois ta cellule A1 ? ===>> elle ne contiendra alors que le dernier

[m0urad]

Merci pour ta réponse.

Pourrait tu m'eclairer tant a la facon de faire en sorte que les données s'ecrive les unes apres les autres dans la colonne A ???

[ucfoutu]

Tu plaisantes, j'espère ...
Utilise donc une variable lig, par exemple, dans ta boucle...
incrémente-la de 1 unité à chaque tour et mets à jour Range("A" & lig)

[Abed_H]

Bonjour
j'ai légèrement retouché ton code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub BoucleFichiers()
Dim Chemin As String, Fichier As String, i As Integer
    'le répertoire contenant les fichiers
    Chemin = "D:\Doc2009\"  ' à adapter
Fichier = Dir(Chemin & "*.xls", vbDirectory)
    i = 1
    Do While Len(Fichier) > 0
        Sheets("Feuil1").Cells(i, 1).Value = Fichier
        Fichier = Dir()
        i = i + 1
    Loop
End Sub

Bonne journée

[m0urad]

Merci pour votre aide

Est il possible de rajouter une condition pour qu'il n'inscrive que le nom du fichier sans l'extension ??

C'est bon j'ai trouvé grace a la formule Replace