Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Re : Recup tout les noms d'un dossier dans une feuille
Bonjour,
Code:
Sub ExplorerRépertoire()
unRép = Dir("c:\excel\*.*", vbDirectory) // Extrait la première entrée
Do While unRép <> "" ' Commence la boucle.
i = i + 1
Cells(i, 1) = unRép
unRép = Dir
Loop
End Sub
Re : Recup tout les noms d'un dossier dans une feuille
Bonjour,
Normal car j'ai fait un Copie/Coller et la ligne
unRép = Dir("c:\excel\*.*", vbDirectory) // Extrait la première entrée
doit être corrigée comme suit :
unRép = Dir("c:\excel\*.*", vbDirectory) '// Extrait la première entrée
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.