moderzi
Messages postés1Date d'inscriptionmercredi 24 juin 2009StatutMembreDernière intervention 1 juillet 2009 1 juil. 2009 à 15:49
100 000 codes et personne n'a eu l'idée de faire un fichier excel pret pour les debutants en VBA.... merci les gars!!!
kadi17
Messages postés1Date d'inscriptiondimanche 10 décembre 2006StatutMembreDernière intervention10 décembre 2006 10 déc. 2006 à 18:04
comment creer une image en VB?
zeboss31
Messages postés14Date d'inscriptionmercredi 15 juin 2005StatutMembreDernière intervention 1 février 2010 9 mars 2006 à 10:01
slt, j'ai plus simple:
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
List1.Clear
Path = "C:"
Set Folder = fso.GetFolder(Path)
For Each X In Folder.SubFolders
List1.AddItem X.Path
Next
'après tu peux faire pareil pour les fichiers:
For Each Y In Folder.Files
List1.AddItem Y.Path
Next
voila
a+
c3rb3r3
Messages postés38Date d'inscriptionmardi 17 décembre 2002StatutMembreDernière intervention25 janvier 2006 22 janv. 2006 à 12:42
Ne fonctionne uniquement dans la mesure où vous avez des répertoires ne contenant que des noms ASCII imprimables; je conseil fortement d'y ajouter une gestion des erreurs, amen... Sinon c'est rapide, c'est propre, je met 7.
gandalfkhorne
Messages postés70Date d'inscriptiondimanche 11 janvier 2004StatutMembreDernière intervention 1 octobre 2004 19 févr. 2004 à 23:44
Il n'y a aucun besoin de remettre à 0 N dans le cas ou Option Explicit n'est pas mise.
Ce que j'aurais du penser et préciser, désolé.
Et merci pour ces commentaires.
cs_jppompon
Messages postés23Date d'inscriptionjeudi 5 février 2004StatutMembreDernière intervention24 avril 2005 19 févr. 2004 à 17:48
La routine de gandalfkhorne marche très bien et est très rapide.
Si je peux je chronomètrerais la vitesse pour un travail donné et la comparerais à d'autres méthodes.
En revanche si l'on veut s'en servir plusieurs fois de suite il faut réinitialiser le compteur N
.....
D1.Path = Ad
D1.Refresh
L1.AddItem Ad
N=0 ' ici il faut réinitialiser N
Do While N < L1.ListCount
DoEvents
D1.Path = L1.List(N)
.......
Merci à PROGRAMMIX pour l'adresse.
JPP
cs_PROGRAMMIX
Messages postés1133Date d'inscriptionmercredi 2 octobre 2002StatutMembreDernière intervention24 juillet 20112 18 févr. 2004 à 20:55
La source en question se nomme "3 MÉTHODES DE RECHERCHE RÉCURSIVE DE FICHIERS" et date de novembre 2002.
Comme je l'indique dans la présentation de celle-ci, j'ai fait une synthèse de code élaboré par d'autres.
cs_jppompon
Messages postés23Date d'inscriptionjeudi 5 février 2004StatutMembreDernière intervention24 avril 2005 18 févr. 2004 à 19:17
Je vais tester la routine écrite par gandalfkhorne et je vous donnerais des nouvelles.
Programmix indique qu'il a donné une source sur ce thème. J'ai cherché dans tes sources et je n'ai pas vu de laquelle il s'agissait !
Peux tu me la faire parvenir ou m'indiquer son nom ?
JPPOMPON
mythic_kruger
Messages postés241Date d'inscriptionjeudi 8 janvier 2004StatutMembreDernière intervention10 novembre 2005 18 févr. 2004 à 16:26
Intéressant. Néanmoins il existe différents processus pour arriver à ce résultat, notamment l' emploi du contrôle dirlistbox peut être évité, en employant la fonction dir(). Voici un exemple:
'Public Sub liste_sons()
' Dim Chemin, Fichier As String
' Chemin = App.Path & "\sounds\*.wav" 'chemin et pattern choisis
' Fichier = Dir(MyPath)
' Do While Fichier <> ""
' Liste_sons.additem Fichier
' Fichier = Dir
' Loop
'End Sub
Bonne prog
cs_PROGRAMMIX
Messages postés1133Date d'inscriptionmercredi 2 octobre 2002StatutMembreDernière intervention24 juillet 20112 18 févr. 2004 à 13:23
Il y a déjà un très grand nombre de sources sur ce thème (dont une que j'ai mise et permettant de comparer différentes techniques de recherche).
Maintenant, si tu voulais aider l'un ou l'autre nouveau, il aurait souhaitable d'expliquer le fonctionnement de la procédure au niveau de ton code...
1 juil. 2009 à 15:49
10 déc. 2006 à 18:04
9 mars 2006 à 10:01
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
List1.Clear
Path = "C:"
Set Folder = fso.GetFolder(Path)
For Each X In Folder.SubFolders
List1.AddItem X.Path
Next
'après tu peux faire pareil pour les fichiers:
For Each Y In Folder.Files
List1.AddItem Y.Path
Next
voila
a+
22 janv. 2006 à 12:42
19 févr. 2004 à 23:44
Ce que j'aurais du penser et préciser, désolé.
Et merci pour ces commentaires.
19 févr. 2004 à 17:48
Si je peux je chronomètrerais la vitesse pour un travail donné et la comparerais à d'autres méthodes.
En revanche si l'on veut s'en servir plusieurs fois de suite il faut réinitialiser le compteur N
.....
D1.Path = Ad
D1.Refresh
L1.AddItem Ad
N=0 ' ici il faut réinitialiser N
Do While N < L1.ListCount
DoEvents
D1.Path = L1.List(N)
.......
Merci à PROGRAMMIX pour l'adresse.
JPP
18 févr. 2004 à 20:55
Comme je l'indique dans la présentation de celle-ci, j'ai fait une synthèse de code élaboré par d'autres.
Vous trouverez cette source à l'adresse suivante :
http://www.vbfrance.com/code.aspx?ID=5089
18 févr. 2004 à 19:17
Programmix indique qu'il a donné une source sur ce thème. J'ai cherché dans tes sources et je n'ai pas vu de laquelle il s'agissait !
Peux tu me la faire parvenir ou m'indiquer son nom ?
JPPOMPON
18 févr. 2004 à 16:26
'Public Sub liste_sons()
' Dim Chemin, Fichier As String
' Chemin = App.Path & "\sounds\*.wav" 'chemin et pattern choisis
' Fichier = Dir(MyPath)
' Do While Fichier <> ""
' Liste_sons.additem Fichier
' Fichier = Dir
' Loop
'End Sub
Bonne prog
18 févr. 2004 à 13:23
Maintenant, si tu voulais aider l'un ou l'autre nouveau, il aurait souhaitable d'expliquer le fonctionnement de la procédure au niveau de ton code...