L

Nouveau venu

Inscrit le :22/12/2019
Dernière activité :22/12/2019 à 19:27
Version d'Excel :2002 (10.2614.2625)
Messages
1
Votes
0
Fichiers
0
Téléchargements
0
SujetsMessagesStatistiquesVotes reçus

Messages postés par Loop68100

DateAuteur du sujetSujetExtrait du message
22/12/2019 à 19:02Fabdu57100Récupérer nom des fichiers présent dans un dossier ?J'ai utilisé le code de Theze qui fonctionne à merveille, Sub Recup() Dim Tbl() As String Dim I As Integer Dim Chemin As String Chemin = Dossier Tbl = EnumFichiers(Chemin) 'en colonne "A" et "B" de la feuille active si pas vide If Not (Not Tbl) Then For I = 1 To UBound(Tbl) Cells(I, 1) = Left(Tbl(I)...