Discussion :

[florus]

Bonjour à tous,
afin de créer et d'alimenter une BD contenant toute une série d'images, je cherche à trouver une routine vba qui permettrait de récupérer tous les noms de fichiers (par exemple : x1.jpg, x2.jpg, ..., xn.jpg) inclus dans un dossier (je possède un système d'exploitation Windows XP) et de les inscrires dans le champ d'une table Access.
Je commence tout juste le vba, et aïe aïe !
Apparemment, si j'ai bien cherché, ce sujet n'a pas été abordé !
Je vous remercie par avance de vos réponses.

[Kloun]

Pour tout ce qui est fichier, regarde du côté du FileSystemObject.

[marot_r]

Tu peux aussi voir avec Dir() si tu aime le style MS-DOS :-).

A+

[florus]

Merci !
je viens de trouver des routines avec la fonction Dir
En assemblant divers codes, j'arrive à lister des fichiers (par exemple les .jpg) contenu dans un dossier et les inscrire dans un fichier texte (merci à la personne qui a développée le code !). Il semblerait que cela soit plus compliquer pour les inscrire dans une feuille excel ou comme je le veux dans une table access ! J'y travaille ...
Pour ce que ça intéresse çi-joint le code.
Je tiens encore à remercier les personnes qui ont développés, moi je n'ai fait qu'assembler !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub ListeFichiers()
 
Dim MyPath As String
 
MyPath = "c:\[Mettre le chemin du dossier cible]\"
MyName = Dir(MyPath & "*.jpg") ' pour trouver tous les fichiers en .jpg
 
Dim FSys As Object
Dim TRACE As Object
Dim OpenTRACE
Dim LeFichierTrace As String
 
LeFichierTrace = "c:\temp\TRACE.txt" ' fichier texte qui contiendra la liste des noms des fichiers en .jpg
 
 
'Pour creer le fichier texte si il existe pas
Set FSys = CreateObject("Scripting.FileSystemObject")
If FSys.FileExists(LeFichierTrace) = False Then
Set TRACE = FSys.CreateTextFile(LeFichierTrace)
End If
 
'Ouverture en ecriture du Fichier texte
Set TRACE = FSys.GetFile(LeFichierTrace)
Set OpenTRACE = TRACE.OpenAsTextStream(8, -2) '8 = ForAppending = Ouvre un fichier et écrit à la fin du fichier.
 
 
 
 
Do While MyName <> ""
OpenTRACE.Write MyName & (Chr(13) + Chr(10))
MyName = Dir
Loop
 
End Sub

[Modération, cafeine : Pensez à utiliser la balise [CODE] qui améliore la lisibilité, merci]

[RGShoop]

Bonjour,

Je pense que la méthode est bonne, pour remplir une table access, il suffit d'ouvrir un recordset et ensuite de l'alimenter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 Sub ListeFichiers() 
 
Dim dbs as database
Dim rs as recordset
Dim MyPath As String 
 
dbs=currentdb
rs=dbs.openrecordset("Nom de ta table à remplir",dbopendynaset)
 
MyPath = "c:\[Mettre le chemin du dossier cible]\" 
MyName = Dir(MyPath & "*.jpg") ' pour trouver tous les fichiers en .jpg 
 
Dim FSys As Object 
Dim TRACE As Object 
Dim OpenTRACE 
Dim LeFichierTrace As String 
 
LeFichierTrace = "c:\temp\TRACE.txt" ' fichier texte qui contiendra la liste des noms des fichiers en .jpg 
 
 
'Pour creer le fichier texte si il existe pas 
Set FSys = CreateObject("Scripting.FileSystemObject") 
If FSys.FileExists(LeFichierTrace) = False Then 
Set TRACE = FSys.CreateTextFile(LeFichierTrace) 
End If 
 
'Ouverture en ecriture du Fichier texte 
Set TRACE = FSys.GetFile(LeFichierTrace) 
Set OpenTRACE = TRACE.OpenAsTextStream(8, -2) '8 = ForAppending = Ouvre un fichier et écrit à la fin du fichier. 
 
 
 
 
Do While MyName <> "" 
 
rs.addnew
rs![champ à remplir dans la table]= MyName
rs.update
 
 
OpenTRACE.Write MyName & (Chr(13) + Chr(10)) 
MyName = Dir 
Loop 
 
End Sub

Espérant avoir été utile,

A+ RGShoop

[florus]

MERCI