Bonjour,
J'ai dans un dossier dans lequel, j'ai une centaine de fichier mp3, je
souhaite les lister dans une feuille Excel, mais , je ne sais pas comment
m'y prendre.
Je vous remercie
Alain
--
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
JB
Bonjour,
Sub ListeFichiers() repertoire = ThisWorkbook.Path i = 2 nf = Dir(repertoire & "*.xls") Do While nf <> "" Cells(i, 1) = nf nf = Dir i = i + 1 Loop End Sub
JB http://boisgontierjacques.free.fr/
On 3 jan, 17:55, "alain Lebayle" wrote:
Bonjour, J'ai dans un dossier dans lequel, j'ai une centaine de fichier mp3, je souhaite les lister dans une feuille Excel, mais , je ne sais pas comment m'y prendre. Je vous remercie Alain --
Bonjour,
Sub ListeFichiers()
repertoire = ThisWorkbook.Path
i = 2
nf = Dir(repertoire & "*.xls")
Do While nf <> ""
Cells(i, 1) = nf
nf = Dir
i = i + 1
Loop
End Sub
JB
http://boisgontierjacques.free.fr/
On 3 jan, 17:55, "alain Lebayle" <alain.leba...@club-internet.fr>
wrote:
Bonjour,
J'ai dans un dossier dans lequel, j'ai une centaine de fichier mp3, je
souhaite les lister dans une feuille Excel, mais , je ne sais pas comment
m'y prendre.
Je vous remercie
Alain
--
Sub ListeFichiers() repertoire = ThisWorkbook.Path i = 2 nf = Dir(repertoire & "*.xls") Do While nf <> "" Cells(i, 1) = nf nf = Dir i = i + 1 Loop End Sub
JB http://boisgontierjacques.free.fr/
On 3 jan, 17:55, "alain Lebayle" wrote:
Bonjour, J'ai dans un dossier dans lequel, j'ai une centaine de fichier mp3, je souhaite les lister dans une feuille Excel, mais , je ne sais pas comment m'y prendre. Je vous remercie Alain --
alain Lebayle
Ok, parfait merci beaucoup Alain
"JB" a écrit dans le message de news:
Bonjour,
Sub ListeFichiers() repertoire = ThisWorkbook.Path i = 2 nf = Dir(repertoire & "*.xls") Do While nf <> "" Cells(i, 1) = nf nf = Dir i = i + 1 Loop End Sub
JB http://boisgontierjacques.free.fr/
On 3 jan, 17:55, "alain Lebayle" wrote:
Bonjour, J'ai dans un dossier dans lequel, j'ai une centaine de fichier mp3, je souhaite les lister dans une feuille Excel, mais , je ne sais pas comment m'y prendre. Je vous remercie Alain --
Ok, parfait merci beaucoup
Alain
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
a0123b77-754f-4d70-813b-9526f0b6c270@g1g2000pra.googlegroups.com...
Bonjour,
Sub ListeFichiers()
repertoire = ThisWorkbook.Path
i = 2
nf = Dir(repertoire & "*.xls")
Do While nf <> ""
Cells(i, 1) = nf
nf = Dir
i = i + 1
Loop
End Sub
JB
http://boisgontierjacques.free.fr/
On 3 jan, 17:55, "alain Lebayle" <alain.leba...@club-internet.fr>
wrote:
Bonjour,
J'ai dans un dossier dans lequel, j'ai une centaine de fichier mp3, je
souhaite les lister dans une feuille Excel, mais , je ne sais pas comment
m'y prendre.
Je vous remercie
Alain
--
Sub ListeFichiers() repertoire = ThisWorkbook.Path i = 2 nf = Dir(repertoire & "*.xls") Do While nf <> "" Cells(i, 1) = nf nf = Dir i = i + 1 Loop End Sub
JB http://boisgontierjacques.free.fr/
On 3 jan, 17:55, "alain Lebayle" wrote:
Bonjour, J'ai dans un dossier dans lequel, j'ai une centaine de fichier mp3, je souhaite les lister dans une feuille Excel, mais , je ne sais pas comment m'y prendre. Je vous remercie Alain --