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