Bonjour le monde,
Avec Excel 2003 sous Vista (et peut être bientôt Excel 2007)
Pour simplifier disons que dans le répertoire A il y a deux sous répertoires
B et C, contenant chacun environ 80 fichiers (nombre variable).
Je voudrais que ma macro inscrive sur les lignes de l'onglet Feuil1 d'un
nouveau fichier dénommé ListeAdresses le chemin d'accès complet de tous les
fichiers de A, qu'ils soient dans le répertoire B ou dans C.
Une ligne par fichier, liste démarrant par exemple en B10 de Feuil1 de
ListeAdresses.
Euh, et comme il est possible que je doive évoluer cette année à Excel 2007
(sauf si la boîte attends Excel 2010?) il faudrait que le code soit
compatible ou pas trop incompatible lors du changement.
J'ai essayé de chercher dans les forum mais je serais content si vous me
souffliez "le" code miracle!
Merci de votre aide,
Cordialement
Mabouille
Un fichier, probablement un peu compliqué, mais qui fonctionne et te permet de lister les fichiers d'un répertoire et des répertoires enfants, et en évitant les doublons (tu peux lancer 5 fois le code, ça ne fera pas 5 fois la liste).
Normalement, ca devrait fonctionner sous 2007 (mais je n'ai pas tester)
Un fichier, probablement un peu compliqué, mais qui fonctionne et te
permet de lister les fichiers d'un répertoire et des répertoires
enfants, et en évitant les doublons (tu peux lancer 5 fois le code, ça
ne fera pas 5 fois la liste).
Normalement, ca devrait fonctionner sous 2007 (mais je n'ai pas
tester)
Un fichier, probablement un peu compliqué, mais qui fonctionne et te permet de lister les fichiers d'un répertoire et des répertoires enfants, et en évitant les doublons (tu peux lancer 5 fois le code, ça ne fera pas 5 fois la liste).
Normalement, ca devrait fonctionner sous 2007 (mais je n'ai pas tester)
"FdeCourt" a écrit dans le message de news: Salut,
Un fichier, probablement un peu compliqué, mais qui fonctionne et te permet de lister les fichiers d'un répertoire et des répertoires enfants, et en évitant les doublons (tu peux lancer 5 fois le code, ça ne fera pas 5 fois la liste).
Normalement, ca devrait fonctionner sous 2007 (mais je n'ai pas tester)
"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de
news:a79e8cd4-4dc6-41b1-8a4a-c3bd0b076fbc@3g2000yqn.googlegroups.com...
Salut,
Un fichier, probablement un peu compliqué, mais qui fonctionne et te
permet de lister les fichiers d'un répertoire et des répertoires
enfants, et en évitant les doublons (tu peux lancer 5 fois le code, ça
ne fera pas 5 fois la liste).
Normalement, ca devrait fonctionner sous 2007 (mais je n'ai pas
tester)
"FdeCourt" a écrit dans le message de news: Salut,
Un fichier, probablement un peu compliqué, mais qui fonctionne et te permet de lister les fichiers d'un répertoire et des répertoires enfants, et en évitant les doublons (tu peux lancer 5 fois le code, ça ne fera pas 5 fois la liste).
Normalement, ca devrait fonctionner sous 2007 (mais je n'ai pas tester)
Attention, elle peut être tronquée (elle se termine par acb2f)
Cordialement,
F.
LSteph
Bonjour,
Supposons ton repertoire "c:travail" et deux sous repertoires repA et repB
'''''''dans module1
Sub listr() listfic ("c:travailrepA") listfic ("c:travailrepB") End Sub
Sub listfic(rep As String) Dim f As String ChDir rep f = Dir("*.xls") Do While Len(f) > 0 Feuil1.[a65536].End(xlUp)(2) = rep & f f = Dir Loop End Sub ''''''''''' 'lSteph
On 3 fév, 20:12, "mabouille" wrote:
Bonjour le monde, Avec Excel 2003 sous Vista (et peut être bientôt Excel 2007)
Pour simplifier disons que dans le répertoire A il y a deux sous répe rtoires B et C, contenant chacun environ 80 fichiers (nombre variable).
Je voudrais que ma macro inscrive sur les lignes de l'onglet Feuil1 d'un nouveau fichier dénommé ListeAdresses le chemin d'accès complet de tous les fichiers de A, qu'ils soient dans le répertoire B ou dans C. Une ligne par fichier, liste démarrant par exemple en B10 de Feuil1 de ListeAdresses.
Euh, et comme il est possible que je doive évoluer cette année à Ex cel 2007 (sauf si la boîte attends Excel 2010?) il faudrait que le code soit compatible ou pas trop incompatible lors du changement. J'ai essayé de chercher dans les forum mais je serais content si vous m e souffliez "le" code miracle! Merci de votre aide, Cordialement Mabouille
Bonjour,
Supposons ton repertoire "c:travail" et deux sous repertoires repA et
repB
'''''''dans module1
Sub listr()
listfic ("c:travailrepA")
listfic ("c:travailrepB")
End Sub
Sub listfic(rep As String)
Dim f As String
ChDir rep
f = Dir("*.xls")
Do While Len(f) > 0
Feuil1.[a65536].End(xlUp)(2) = rep & f
f = Dir
Loop
End Sub
'''''''''''
'lSteph
On 3 fév, 20:12, "mabouille" <pierre.garni...@libertysurf.fr> wrote:
Bonjour le monde,
Avec Excel 2003 sous Vista (et peut être bientôt Excel 2007)
Pour simplifier disons que dans le répertoire A il y a deux sous répe rtoires
B et C, contenant chacun environ 80 fichiers (nombre variable).
Je voudrais que ma macro inscrive sur les lignes de l'onglet Feuil1 d'un
nouveau fichier dénommé ListeAdresses le chemin d'accès complet de tous les
fichiers de A, qu'ils soient dans le répertoire B ou dans C.
Une ligne par fichier, liste démarrant par exemple en B10 de Feuil1 de
ListeAdresses.
Euh, et comme il est possible que je doive évoluer cette année à Ex cel 2007
(sauf si la boîte attends Excel 2010?) il faudrait que le code soit
compatible ou pas trop incompatible lors du changement.
J'ai essayé de chercher dans les forum mais je serais content si vous m e
souffliez "le" code miracle!
Merci de votre aide,
Cordialement
Mabouille
Supposons ton repertoire "c:travail" et deux sous repertoires repA et repB
'''''''dans module1
Sub listr() listfic ("c:travailrepA") listfic ("c:travailrepB") End Sub
Sub listfic(rep As String) Dim f As String ChDir rep f = Dir("*.xls") Do While Len(f) > 0 Feuil1.[a65536].End(xlUp)(2) = rep & f f = Dir Loop End Sub ''''''''''' 'lSteph
On 3 fév, 20:12, "mabouille" wrote:
Bonjour le monde, Avec Excel 2003 sous Vista (et peut être bientôt Excel 2007)
Pour simplifier disons que dans le répertoire A il y a deux sous répe rtoires B et C, contenant chacun environ 80 fichiers (nombre variable).
Je voudrais que ma macro inscrive sur les lignes de l'onglet Feuil1 d'un nouveau fichier dénommé ListeAdresses le chemin d'accès complet de tous les fichiers de A, qu'ils soient dans le répertoire B ou dans C. Une ligne par fichier, liste démarrant par exemple en B10 de Feuil1 de ListeAdresses.
Euh, et comme il est possible que je doive évoluer cette année à Ex cel 2007 (sauf si la boîte attends Excel 2010?) il faudrait que le code soit compatible ou pas trop incompatible lors du changement. J'ai essayé de chercher dans les forum mais je serais content si vous m e souffliez "le" code miracle! Merci de votre aide, Cordialement Mabouille
LSteph
petit rectif ici:
Feuil1.[a65536].End(xlUp)(2) = rep & "" & f
On 4 fév, 12:11, LSteph wrote:
Bonjour,
Supposons ton repertoire "c:travail" et deux sous repertoires repA et repB
'''''''dans module1
Sub listr() listfic ("c:travailrepA") listfic ("c:travailrepB") End Sub
Sub listfic(rep As String) Dim f As String ChDir rep f = Dir("*.xls") Do While Len(f) > 0 Feuil1.[a65536].End(xlUp)(2) = rep & f f = Dir Loop End Sub ''''''''''' 'lSteph
On 3 fév, 20:12, "mabouille" wrote:
> Bonjour le monde, > Avec Excel 2003 sous Vista (et peut être bientôt Excel 2007)
> Pour simplifier disons que dans le répertoire A il y a deux sous ré pertoires > B et C, contenant chacun environ 80 fichiers (nombre variable).
> Je voudrais que ma macro inscrive sur les lignes de l'onglet Feuil1 d'u n > nouveau fichier dénommé ListeAdresses le chemin d'accès complet d e tous les > fichiers de A, qu'ils soient dans le répertoire B ou dans C. > Une ligne par fichier, liste démarrant par exemple en B10 de Feuil1 d e > ListeAdresses.
> Euh, et comme il est possible que je doive évoluer cette année à Excel 2007 > (sauf si la boîte attends Excel 2010?) il faudrait que le code soit > compatible ou pas trop incompatible lors du changement. > J'ai essayé de chercher dans les forum mais je serais content si vous me > souffliez "le" code miracle! > Merci de votre aide, > Cordialement > Mabouille- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
petit rectif ici:
Feuil1.[a65536].End(xlUp)(2) = rep & "" & f
On 4 fév, 12:11, LSteph <gmlst...@gmail.com> wrote:
Bonjour,
Supposons ton repertoire "c:travail" et deux sous repertoires repA et
repB
'''''''dans module1
Sub listr()
listfic ("c:travailrepA")
listfic ("c:travailrepB")
End Sub
Sub listfic(rep As String)
Dim f As String
ChDir rep
f = Dir("*.xls")
Do While Len(f) > 0
Feuil1.[a65536].End(xlUp)(2) = rep & f
f = Dir
Loop
End Sub
'''''''''''
'lSteph
On 3 fév, 20:12, "mabouille" <pierre.garni...@libertysurf.fr> wrote:
> Bonjour le monde,
> Avec Excel 2003 sous Vista (et peut être bientôt Excel 2007)
> Pour simplifier disons que dans le répertoire A il y a deux sous ré pertoires
> B et C, contenant chacun environ 80 fichiers (nombre variable).
> Je voudrais que ma macro inscrive sur les lignes de l'onglet Feuil1 d'u n
> nouveau fichier dénommé ListeAdresses le chemin d'accès complet d e tous les
> fichiers de A, qu'ils soient dans le répertoire B ou dans C.
> Une ligne par fichier, liste démarrant par exemple en B10 de Feuil1 d e
> ListeAdresses.
> Euh, et comme il est possible que je doive évoluer cette année à Excel 2007
> (sauf si la boîte attends Excel 2010?) il faudrait que le code soit
> compatible ou pas trop incompatible lors du changement.
> J'ai essayé de chercher dans les forum mais je serais content si vous me
> souffliez "le" code miracle!
> Merci de votre aide,
> Cordialement
> Mabouille- Masquer le texte des messages précédents -
Supposons ton repertoire "c:travail" et deux sous repertoires repA et repB
'''''''dans module1
Sub listr() listfic ("c:travailrepA") listfic ("c:travailrepB") End Sub
Sub listfic(rep As String) Dim f As String ChDir rep f = Dir("*.xls") Do While Len(f) > 0 Feuil1.[a65536].End(xlUp)(2) = rep & f f = Dir Loop End Sub ''''''''''' 'lSteph
On 3 fév, 20:12, "mabouille" wrote:
> Bonjour le monde, > Avec Excel 2003 sous Vista (et peut être bientôt Excel 2007)
> Pour simplifier disons que dans le répertoire A il y a deux sous ré pertoires > B et C, contenant chacun environ 80 fichiers (nombre variable).
> Je voudrais que ma macro inscrive sur les lignes de l'onglet Feuil1 d'u n > nouveau fichier dénommé ListeAdresses le chemin d'accès complet d e tous les > fichiers de A, qu'ils soient dans le répertoire B ou dans C. > Une ligne par fichier, liste démarrant par exemple en B10 de Feuil1 d e > ListeAdresses.
> Euh, et comme il est possible que je doive évoluer cette année à Excel 2007 > (sauf si la boîte attends Excel 2010?) il faudrait que le code soit > compatible ou pas trop incompatible lors du changement. > J'ai essayé de chercher dans les forum mais je serais content si vous me > souffliez "le" code miracle! > Merci de votre aide, > Cordialement > Mabouille- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
mabouille
Bonsoir, Merci LSteph, j'ai essayé ton code, il marche bien, et en plus lui aussi m'a appris bien des choses sur les instructions VBA (un bon sujet d'étude pour moi donc!!) Mais la solution donnée au bout du lien de FdeCourt me convient mieux car elle explore tous les répertoires et sous répertoires, donc dépasse largement le petit exemple que j'avais donné pour rester simple. Cordialement Mabouille ===========================
"LSteph" a écrit dans le message de news: petit rectif ici:
Feuil1.[a65536].End(xlUp)(2) = rep & "" & f
On 4 fév, 12:11, LSteph wrote:
Bonjour,
Supposons ton repertoire "c:travail" et deux sous repertoires repA et repB
'''''''dans module1
Sub listr() listfic ("c:travailrepA") listfic ("c:travailrepB") End Sub
Sub listfic(rep As String) Dim f As String ChDir rep f = Dir("*.xls") Do While Len(f) > 0 Feuil1.[a65536].End(xlUp)(2) = rep & f f = Dir Loop End Sub ''''''''''' 'lSteph
On 3 fév, 20:12, "mabouille" wrote:
> Bonjour le monde, > Avec Excel 2003 sous Vista (et peut être bientôt Excel 2007)
> Pour simplifier disons que dans le répertoire A il y a deux sous > répertoires > B et C, contenant chacun environ 80 fichiers (nombre variable).
> Je voudrais que ma macro inscrive sur les lignes de l'onglet Feuil1 d'un > nouveau fichier dénommé ListeAdresses le chemin d'accès complet de tous > les > fichiers de A, qu'ils soient dans le répertoire B ou dans C. > Une ligne par fichier, liste démarrant par exemple en B10 de Feuil1 de > ListeAdresses.
> Euh, et comme il est possible que je doive évoluer cette année à Excel > 2007 > (sauf si la boîte attends Excel 2010?) il faudrait que le code soit > compatible ou pas trop incompatible lors du changement. > J'ai essayé de chercher dans les forum mais je serais content si vous me > souffliez "le" code miracle! > Merci de votre aide, > Cordialement > Mabouille- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonsoir,
Merci LSteph, j'ai essayé ton code, il marche bien, et en plus lui aussi m'a
appris bien des choses sur les instructions VBA (un bon sujet d'étude pour
moi donc!!)
Mais la solution donnée au bout du lien de FdeCourt me convient mieux car
elle explore tous les répertoires et sous répertoires, donc dépasse
largement le petit exemple que j'avais donné pour rester simple.
Cordialement
Mabouille
===========================
"LSteph" <gmlsteph@gmail.com> a écrit dans le message de
news:5f958321-e1bf-4a0f-9a24-e7e359295936@m31g2000yqd.googlegroups.com...
petit rectif ici:
Feuil1.[a65536].End(xlUp)(2) = rep & "" & f
On 4 fév, 12:11, LSteph <gmlst...@gmail.com> wrote:
Bonjour,
Supposons ton repertoire "c:travail" et deux sous repertoires repA et
repB
'''''''dans module1
Sub listr()
listfic ("c:travailrepA")
listfic ("c:travailrepB")
End Sub
Sub listfic(rep As String)
Dim f As String
ChDir rep
f = Dir("*.xls")
Do While Len(f) > 0
Feuil1.[a65536].End(xlUp)(2) = rep & f
f = Dir
Loop
End Sub
'''''''''''
'lSteph
On 3 fév, 20:12, "mabouille" <pierre.garni...@libertysurf.fr> wrote:
> Bonjour le monde,
> Avec Excel 2003 sous Vista (et peut être bientôt Excel 2007)
> Pour simplifier disons que dans le répertoire A il y a deux sous
> répertoires
> B et C, contenant chacun environ 80 fichiers (nombre variable).
> Je voudrais que ma macro inscrive sur les lignes de l'onglet Feuil1 d'un
> nouveau fichier dénommé ListeAdresses le chemin d'accès complet de tous
> les
> fichiers de A, qu'ils soient dans le répertoire B ou dans C.
> Une ligne par fichier, liste démarrant par exemple en B10 de Feuil1 de
> ListeAdresses.
> Euh, et comme il est possible que je doive évoluer cette année à Excel
> 2007
> (sauf si la boîte attends Excel 2010?) il faudrait que le code soit
> compatible ou pas trop incompatible lors du changement.
> J'ai essayé de chercher dans les forum mais je serais content si vous me
> souffliez "le" code miracle!
> Merci de votre aide,
> Cordialement
> Mabouille- Masquer le texte des messages précédents -
Bonsoir, Merci LSteph, j'ai essayé ton code, il marche bien, et en plus lui aussi m'a appris bien des choses sur les instructions VBA (un bon sujet d'étude pour moi donc!!) Mais la solution donnée au bout du lien de FdeCourt me convient mieux car elle explore tous les répertoires et sous répertoires, donc dépasse largement le petit exemple que j'avais donné pour rester simple. Cordialement Mabouille ===========================
"LSteph" a écrit dans le message de news: petit rectif ici:
Feuil1.[a65536].End(xlUp)(2) = rep & "" & f
On 4 fév, 12:11, LSteph wrote:
Bonjour,
Supposons ton repertoire "c:travail" et deux sous repertoires repA et repB
'''''''dans module1
Sub listr() listfic ("c:travailrepA") listfic ("c:travailrepB") End Sub
Sub listfic(rep As String) Dim f As String ChDir rep f = Dir("*.xls") Do While Len(f) > 0 Feuil1.[a65536].End(xlUp)(2) = rep & f f = Dir Loop End Sub ''''''''''' 'lSteph
On 3 fév, 20:12, "mabouille" wrote:
> Bonjour le monde, > Avec Excel 2003 sous Vista (et peut être bientôt Excel 2007)
> Pour simplifier disons que dans le répertoire A il y a deux sous > répertoires > B et C, contenant chacun environ 80 fichiers (nombre variable).
> Je voudrais que ma macro inscrive sur les lignes de l'onglet Feuil1 d'un > nouveau fichier dénommé ListeAdresses le chemin d'accès complet de tous > les > fichiers de A, qu'ils soient dans le répertoire B ou dans C. > Une ligne par fichier, liste démarrant par exemple en B10 de Feuil1 de > ListeAdresses.
> Euh, et comme il est possible que je doive évoluer cette année à Excel > 2007 > (sauf si la boîte attends Excel 2010?) il faudrait que le code soit > compatible ou pas trop incompatible lors du changement. > J'ai essayé de chercher dans les forum mais je serais content si vous me > souffliez "le" code miracle! > Merci de votre aide, > Cordialement > Mabouille- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
mabouille
Bonsoir, Ca marche aussi, on tombe sur le même fichier, ton lien est tout bon Cordialmeent Mabouille ======================= "FdeCourt" a écrit dans le message de news: Ok, alors essayes avec ca :
Attention, elle peut être tronquée (elle se termine par acb2f)
Cordialement,
F.
Bonsoir,
Ca marche aussi, on tombe sur le même fichier, ton lien est tout bon
Cordialmeent
Mabouille
======================= "FdeCourt" <fdecourt@gmail.com> a écrit dans le message de
news:09dc71e5-c973-4c52-93a0-6996ab9f05e6@a32g2000yqm.googlegroups.com...
Ok, alors essayes avec ca :
Bonsoir, Ca marche aussi, on tombe sur le même fichier, ton lien est tout bon Cordialmeent Mabouille ======================= "FdeCourt" a écrit dans le message de news: Ok, alors essayes avec ca :