LISTER LES SOUS-REPERTOIRES ET LES TOUT LES FICHIERS PRÉSENT DANS LE REPERTOIRE

Signaler
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
-
Messages postés
126
Date d'inscription
jeudi 16 janvier 2003
Statut
Membre
Dernière intervention
9 novembre 2009
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/48243-lister-les-sous-repertoires-et-les-tout-les-fichiers-present-dans-le-repertoire-de-son-choix

Messages postés
126
Date d'inscription
jeudi 16 janvier 2003
Statut
Membre
Dernière intervention
9 novembre 2009
2
Salut davidparison!

Pour commencer: http://www.vbfrance.com/codes/LISTER-TOUS-FICHIERS-DOSSIER-SOUS-DOSSIERS_7876.aspx

Tu vois, ça existe! ;o)

Commentaires:
1) si tu utilises Excel 2007, enregistre ton fichier en format 2000-2003 pour des questions de compatibilité, à moins que vraiment tu ne requières des spécificités 2007.
2) implémente ton code, SVP! (d'ailleurs curieux que ce soit fait dans certains modules mais pas dans les autres)
3)'Effacement des anciennes lignes
Range(Cells(3, 1), Cells(100000, 2)).Select
pourquoi aller jusqu'à la ligne 100000???
préfères quelque chose du genre:
Dim l as Long
l = Range("A65536").End(xlUp).Row
' on peu aussi utiliser l = Range("A3").End(xlDown).Row
Range("A3:A" & l).ClearContents ' plus court a ecrire

Malgré cela, pas mal du tout...
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
46
la totalité des codes présents dans tes modules le sont tant sur vbfrance que sur codyx.org

merci de vérifier l'existant avant de poster
ce code ne sera pas conservé