Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
lSteph
Re,Damien,
Dans le code du 2nd exemple que je t'ai donné sur le précédent fil , il y a réponse à cette question.
Dim myd '... myd = Dir("*.", vbDirectory) [a2:A65536].ClearContents [a1].Select Do While Len(myd) > 0 If myd <> "." And myd <> ".." Then ActiveCell.Offset(1, 0).Select ActiveCell = myd End If myd = Dir Loop
'Cordialement 'lSteph
"damgui" a écrit dans le message de news: 44e88723$0$19178$
bonjour tous le monde
voila mon pb
dans une feuille excel de la cellule A2à A........... je veux recuperer tous les nom des dossiers du chemin C:gestiondossiers....
exemple : dans le repertoire : C:gestiondossiers.... j ai par exemple 3 dossiers D1 D2 et D3
donc à l'ouverture du FICHIER XLS en feuil1 dans la cellule A2j ai le nom D1 A3j ai le nom D2 A4j ai le nom D3
merci de votre aide
DAMIEN
Re,Damien,
Dans le code du 2nd exemple que je t'ai donné sur le précédent fil , il y a
réponse à cette question.
Dim myd
'...
myd = Dir("*.", vbDirectory)
[a2:A65536].ClearContents
[a1].Select
Do While Len(myd) > 0
If myd <> "." And myd <> ".." Then
ActiveCell.Offset(1, 0).Select
ActiveCell = myd
End If
myd = Dir
Loop
'Cordialement
'lSteph
"damgui" <damienguilbert@free.fr> a écrit dans le message de news:
44e88723$0$19178$626a54ce@news.free.fr...
bonjour tous le monde
voila mon pb
dans une feuille excel
de la cellule A2à A...........
je veux recuperer tous les nom des dossiers du chemin
C:gestiondossiers....
exemple :
dans le repertoire :
C:gestiondossiers....
j ai par exemple 3 dossiers
D1 D2 et D3
donc à l'ouverture du FICHIER XLS
en feuil1
dans la cellule
A2j ai le nom D1
A3j ai le nom D2
A4j ai le nom D3
Dans le code du 2nd exemple que je t'ai donné sur le précédent fil , il y a réponse à cette question.
Dim myd '... myd = Dir("*.", vbDirectory) [a2:A65536].ClearContents [a1].Select Do While Len(myd) > 0 If myd <> "." And myd <> ".." Then ActiveCell.Offset(1, 0).Select ActiveCell = myd End If myd = Dir Loop
'Cordialement 'lSteph
"damgui" a écrit dans le message de news: 44e88723$0$19178$
bonjour tous le monde
voila mon pb
dans une feuille excel de la cellule A2à A........... je veux recuperer tous les nom des dossiers du chemin C:gestiondossiers....
exemple : dans le repertoire : C:gestiondossiers.... j ai par exemple 3 dossiers D1 D2 et D3
donc à l'ouverture du FICHIER XLS en feuil1 dans la cellule A2j ai le nom D1 A3j ai le nom D2 A4j ai le nom D3
