Importer la liste des documents d'un dossier dans une feuille Excel.
2 réponses
Bernard
Bonjour à tous et à toutes,
Est-il possible d'importer la liste des noms des fichiers d'un dossier dans
une feuille Excel ? Ex: Dans l'Explorateur de document, Mon_Dossier
contient 80 documents Excel. J'aimerais importer cette liste dans une
feuille Excel.
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
Daniel
Bonjour. Essaie :
Sub test() Dim Fich As String Fich = Dir("c:Mon_Dossier*.xls") Do While Fich <> "" MsgBox Fich Fich = Dir Loop End Sub
en remplaçant les MsgBox par le traitement de ton choix. Cordialement. Daniel "Bernard" a écrit dans le message de news:
Bonjour à tous et à toutes, Est-il possible d'importer la liste des noms des fichiers d'un dossier dans une feuille Excel ? Ex: Dans l'Explorateur de document, Mon_Dossier contient 80 documents Excel. J'aimerais importer cette liste dans une feuille Excel.
Merci de votre aide.
Bernard.
Bonjour.
Essaie :
Sub test()
Dim Fich As String
Fich = Dir("c:Mon_Dossier*.xls")
Do While Fich <> ""
MsgBox Fich
Fich = Dir
Loop
End Sub
en remplaçant les MsgBox par le traitement de ton choix.
Cordialement.
Daniel
"Bernard" <canuel.bernard@qcmines.com> a écrit dans le message de news:
uSfoRHOqFHA.4056@TK2MSFTNGP09.phx.gbl...
Bonjour à tous et à toutes,
Est-il possible d'importer la liste des noms des fichiers d'un dossier
dans
une feuille Excel ? Ex: Dans l'Explorateur de document, Mon_Dossier
contient 80 documents Excel. J'aimerais importer cette liste dans une
feuille Excel.
Sub test() Dim Fich As String Fich = Dir("c:Mon_Dossier*.xls") Do While Fich <> "" MsgBox Fich Fich = Dir Loop End Sub
en remplaçant les MsgBox par le traitement de ton choix. Cordialement. Daniel "Bernard" a écrit dans le message de news:
Bonjour à tous et à toutes, Est-il possible d'importer la liste des noms des fichiers d'un dossier dans une feuille Excel ? Ex: Dans l'Explorateur de document, Mon_Dossier contient 80 documents Excel. J'aimerais importer cette liste dans une feuille Excel.
Merci de votre aide.
Bernard.
Bernard
Tout fonctionne parfaitement Merci Daniel Bonne journée.
"Daniel" a écrit dans le message de news:%
Bonjour. Essaie :
Sub test() Dim Fich As String Fich = Dir("c:Mon_Dossier*.xls") Do While Fich <> "" MsgBox Fich Fich = Dir Loop End Sub
en remplaçant les MsgBox par le traitement de ton choix. Cordialement. Daniel "Bernard" a écrit dans le message de news:
Bonjour à tous et à toutes, Est-il possible d'importer la liste des noms des fichiers d'un dossier dans une feuille Excel ? Ex: Dans l'Explorateur de document, Mon_Dossier contient 80 documents Excel. J'aimerais importer cette liste dans une feuille Excel.
Merci de votre aide.
Bernard.
Tout fonctionne parfaitement
Merci Daniel
Bonne journée.
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de
news:%23xrbsTOqFHA.3800@TK2MSFTNGP11.phx.gbl...
Bonjour.
Essaie :
Sub test()
Dim Fich As String
Fich = Dir("c:Mon_Dossier*.xls")
Do While Fich <> ""
MsgBox Fich
Fich = Dir
Loop
End Sub
en remplaçant les MsgBox par le traitement de ton choix.
Cordialement.
Daniel
"Bernard" <canuel.bernard@qcmines.com> a écrit dans le message de news:
uSfoRHOqFHA.4056@TK2MSFTNGP09.phx.gbl...
Bonjour à tous et à toutes,
Est-il possible d'importer la liste des noms des fichiers d'un dossier
dans
une feuille Excel ? Ex: Dans l'Explorateur de document, Mon_Dossier
contient 80 documents Excel. J'aimerais importer cette liste dans une
feuille Excel.
Tout fonctionne parfaitement Merci Daniel Bonne journée.
"Daniel" a écrit dans le message de news:%
Bonjour. Essaie :
Sub test() Dim Fich As String Fich = Dir("c:Mon_Dossier*.xls") Do While Fich <> "" MsgBox Fich Fich = Dir Loop End Sub
en remplaçant les MsgBox par le traitement de ton choix. Cordialement. Daniel "Bernard" a écrit dans le message de news:
Bonjour à tous et à toutes, Est-il possible d'importer la liste des noms des fichiers d'un dossier dans une feuille Excel ? Ex: Dans l'Explorateur de document, Mon_Dossier contient 80 documents Excel. J'aimerais importer cette liste dans une feuille Excel.