LISTE DE FICHIERS D'UN DOSSIER DANS UNE TABLE

Le
Pascale
Bonjour tous,
Sur un clic de bouton, je dois donner l'instruction
suivante :
Charger dans la table TblTransit et dans le champ
NomFichier de cette table, la liste de tous les
fichiers.jpg qui sont contenus dans le repertoire d:Mes
documentstransit.
Le but tant de faire apparaitre cette liste de
fichiers.jpg dans une liste droulante d'un autre
formulaire.
Pouvez-vous m'aider ? J'ai beau lire tous les bouquins
que j'ai achets, je n'arrive pas crire le code depuis
sub click jusque end sub, proprement et rien ne
fonctionne
Merci d'avance de votre rponse rapide
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Loïc
Le #4721621
Bonjour,

Je vous propose :

1) Vous avez créé un bouton de commande, admettons qu'il
s'appelle cmdAddFiles.

2) Sur l'événément Sur clic de ce bouton, ajoutez le code
suivant :

Private Sub cmdAddFiles_Click()

Dim fso As FileSystemObject
Dim fld As Folder
Dim f As File

Set fso = CreateObject("Scripting.FileSystemObject")

Set fld = fso.GetFolder("d:Mes documentstransit")

For Each f In fld.Files

If UCase(fso.GetExtensionName(f.Name)) = "JPG" Then

CurrentDb.Execute "INSERT INTO [TblTransit]
([NomFichier]) VALUES ('" & fso.GetBaseName(f.Name) & "')"

End If

Next

End Sub

3) Dans l'éditeur VBA, faites Outils / Références, et
ajouter une référence à Microsoft Scripting Runtime.

4) La source de votre liste déroulante sera alors cette
table TblTransit.

Cordialement,

Loïc
www.i--land.com
-----Message d'origine-----
Bonjour à tous,
Sur un clic de bouton, je dois donner l'instruction
suivante :
Charger dans la table TblTransit et dans le champ
NomFichier de cette table, la liste de tous les
fichiers.jpg qui sont contenus dans le repertoire d:Mes
documentstransit.
Le but étant de faire apparaitre cette liste de
fichiers.jpg dans une liste déroulante d'un autre
formulaire.
Pouvez-vous m'aider ? J'ai beau lire tous les bouquins
que j'ai achetés, je n'arrive pas à écrire le code depuis
sub... click jusque end sub, proprement et rien ne
fonctionne
Merci d'avance de votre réponse rapide
.



Gilbert
Le #4721601
Bonjour,
Tu crée une Zone de liste modifiable dont l'OrigineSource est sur
ListeValeurs.
Sur click d'un bouton (ou sur ouverture du formulaire, enfin là où tu en as
besoin), tu utilises :

Private Sub Commande2_Click()
Dim NomFichier As String
On Error GoTo Err_Commande2_Click

NomFichier = Dir("d:Mes documentstransit*.jpg")
Do While NomFichier <> ""
Me.Liste0.AddItem (NomFichier)
NomFichier = Dir
Loop

Exit_Commande2_Click:
Exit Sub

Err_Commande2_Click:
MsgBox err.Description
Resume Exit_Commande2_Click

End Sub

"Pascale" news: 48fb01c3ffab$3acf23d0$
Bonjour à tous,
Sur un clic de bouton, je dois donner l'instruction
suivante :
Charger dans la table TblTransit et dans le champ
NomFichier de cette table, la liste de tous les
fichiers.jpg qui sont contenus dans le repertoire d:Mes
documentstransit.
Le but étant de faire apparaitre cette liste de
fichiers.jpg dans une liste déroulante d'un autre
formulaire.
Pouvez-vous m'aider ? J'ai beau lire tous les bouquins
que j'ai achetés, je n'arrive pas à écrire le code depuis
sub... click jusque end sub, proprement et rien ne
fonctionne
Merci d'avance de votre réponse rapide
Le #4721571
Loïc, un tout grand merci. J'essaie dès demain et je me
reconnecte si je n'y arrive pas.
En tout cas, l'aide est extra ! Très bonne soirée et merci
encore
Pascale
-----Message d'origine-----
Bonjour,

Je vous propose :

1) Vous avez créé un bouton de commande, admettons qu'il
s'appelle cmdAddFiles.

2) Sur l'événément Sur clic de ce bouton, ajoutez le
code

suivant :

Private Sub cmdAddFiles_Click()

Dim fso As FileSystemObject
Dim fld As Folder
Dim f As File

Set fso = CreateObject("Scripting.FileSystemObject")

Set fld = fso.GetFolder("d:Mes
documentstransit")


For Each f In fld.Files

If UCase(fso.GetExtensionName(f.Name)) = "JPG"
Then


CurrentDb.Execute "INSERT INTO [TblTransit]
([NomFichier]) VALUES ('" & fso.GetBaseName(f.Name)
& "')"


End If

Next

End Sub

3) Dans l'éditeur VBA, faites Outils / Références, et
ajouter une référence à Microsoft Scripting Runtime.

4) La source de votre liste déroulante sera alors cette
table TblTransit.

Cordialement,

Loïc
www.i--land.com
-----Message d'origine-----
Bonjour à tous,
Sur un clic de bouton, je dois donner l'instruction
suivante :
Charger dans la table TblTransit et dans le champ
NomFichier de cette table, la liste de tous les
fichiers.jpg qui sont contenus dans le repertoire
d:Mes


documentstransit.
Le but étant de faire apparaitre cette liste de
fichiers.jpg dans une liste déroulante d'un autre
formulaire.
Pouvez-vous m'aider ? J'ai beau lire tous les bouquins
que j'ai achetés, je n'arrive pas à écrire le code
depuis


sub... click jusque end sub, proprement et rien ne
fonctionne
Merci d'avance de votre réponse rapide
.

.





Le #4721551
Gilbert, tout comme à Loïc, un très grand merci pour
le coup de main. J'essaie et vous recontacte si je suis
vraiment trop nulle!!!
Bonne soirée et encore merci de tout coeur
Pascale
-----Message d'origine-----
Bonjour,
Tu crée une Zone de liste modifiable dont
l'OrigineSource est sur

ListeValeurs.
Sur click d'un bouton (ou sur ouverture du formulaire,
enfin là où tu en as

besoin), tu utilises :

Private Sub Commande2_Click()
Dim NomFichier As String
On Error GoTo Err_Commande2_Click

NomFichier = Dir("d:Mes documentstransit*.jpg")
Do While NomFichier <> ""
Me.Liste0.AddItem (NomFichier)
NomFichier = Dir
Loop

Exit_Commande2_Click:
Exit Sub

Err_Commande2_Click:
MsgBox err.Description
Resume Exit_Commande2_Click

End Sub

"Pascale" dans le message de

news: 48fb01c3ffab$3acf23d0$
Bonjour à tous,
Sur un clic de bouton, je dois donner l'instruction
suivante :
Charger dans la table TblTransit et dans le champ
NomFichier de cette table, la liste de tous les
fichiers.jpg qui sont contenus dans le repertoire d:Mes
documentstransit.
Le but étant de faire apparaitre cette liste de
fichiers.jpg dans une liste déroulante d'un autre
formulaire.
Pouvez-vous m'aider ? J'ai beau lire tous les bouquins
que j'ai achetés, je n'arrive pas à écrire le code depuis
sub... click jusque end sub, proprement et rien ne
fonctionne
Merci d'avance de votre réponse rapide


.



Raymond [mvp]
Le #4721541
Bonjour.

Si tu es en version 2000 & + tu peux utiliser l'objet filesearch qui ne
nécessite pas de référence spéciale. sur l'événement click d'un bouton tu
crées la table et tu la remplis avec filesearch. de plus filesearch pourra
éventuellement parcourir tous les sous-répertoires. Ne pas utiliser de liste
déroulante ou zone de liste qui serait basée sur liste de valeurs car la
taille du contenu est limité à 4Ko. il faudra aussi rajouter un test de
table ouverte au cas où.
Private Sub Commande1_Click()
On Error Resume Next
DoCmd.SetWarnings False
DoCmd.DeleteObject acTable, "Fichiers"
CurrentDb.Execute "Create table Fichiers (Fichier_Nom text(255));"
Chercher "Mes documentstransit", "*.jpg", False
End Sub

Public Function Chercher(NomDuChemin As String, NomDuFichier As String,
Sous_répertoires As Boolean) As String
Dim I As Integer
With FileSearch
.NewSearch
.LookIn = NomDuChemin
.FileName = NomDuFichier
.SearchSubFolders = Sous_répertoires
If .Execute() > 0 Then
For I = 1 To .FoundFiles.Count
CurrentDb.Execute "INSERT INTO Fichiers (
Fichier_Nom )SELECT """ & .FoundFiles(I) & """ AS fic;"
Next I
End If
End With
End Function

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Pascale" news:48fb01c3ffab$3acf23d0$
Bonjour à tous,
Sur un clic de bouton, je dois donner l'instruction
suivante :
Charger dans la table TblTransit et dans le champ
NomFichier de cette table, la liste de tous les
fichiers.jpg qui sont contenus dans le repertoire d:Mes
documentstransit.
Le but étant de faire apparaitre cette liste de
fichiers.jpg dans une liste déroulante d'un autre
formulaire.
Pouvez-vous m'aider ? J'ai beau lire tous les bouquins
que j'ai achetés, je n'arrive pas à écrire le code depuis
sub... click jusque end sub, proprement et rien ne
fonctionne
Merci d'avance de votre réponse rapide
Eric
Le #4721521
Bonsoir,

Une autre méthode :
Private Sub ChargerJpg_Click()
Dim chemin As String, Sql As String, AjoutFichier As String
chemin = "d:Mes documentsTransit"
AjoutFichier = ""
nomfichier = Dir(chemin)
Do
If Right(nomfichier, 3) = "jpg" Then
AjoutFichier = nomfichier
Sql = "insert into tblTransit(NomFichier) values('" &
AjoutFichier & "');"
CurrentDb.Execute Sql
End If
nomfichier = Dir
Loop While nomfichier <> ""
End Sub

A+
Eric

"Pascale" news:48fb01c3ffab$3acf23d0$:

Bonjour à tous,
Sur un clic de bouton, je dois donner l'instruction
suivante :
Charger dans la table TblTransit et dans le champ
NomFichier de cette table, la liste de tous les
fichiers.jpg qui sont contenus dans le repertoire d:Mes
documentstransit.
Le but étant de faire apparaitre cette liste de
fichiers.jpg dans une liste déroulante d'un autre
formulaire.
Pouvez-vous m'aider ? J'ai beau lire tous les bouquins
que j'ai achetés, je n'arrive pas à écrire le code depuis
sub... click jusque end sub, proprement et rien ne
fonctionne
Merci d'avance de votre réponse rapide


Publicité
Poster une réponse
Anonyme