Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access mettre le noms des fichiers d'un dossier dans une table

mettre le noms des fichiers d'un dossier dans une table

20 réponses
Avatar
dumgest
S@lut

je voudrais mettre le noms des fichiers d'un dossier dans une table
bon, j'ai trouver ça, mais

Function fListFiles(strDir As String) As String
Dim intFile As Integer
intFile = 0
With Application.FileSearch
.LookIn = strDir
.FileName = "*.*"
If .Execute > 0 Then
For intFile = 1 To .FoundFiles.Count
fListFiles = IIf(fListFiles = "", _
.FoundFiles(intFile), _
fListFiles & ";" & .FoundFiles(intFile))
Next intFile
End If
End With
End Function

ça bloque sur .FileName = "*.*"
si je peux avoir tous les fichiers d'un dossier dans le champs d'une
table....je pourrai charger mes 75 fichiers dans ma base..ouf


@+

dumdum, le paysans
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Raymond [mvp]
Bonjour Jessy.

Tu te réveilles bien de bonne heure aujourd'hui ? le traffic a repris ? tu
sais pourquoi à la sncf traffic prend deux f ? c'est pour aller plus vite !
c'est les belges qui le disent.
tu sais bien que les absents ont toujours tort ?
je t'avais déjà dit de le marquer sur la page, de mettre la référence
office.
En résumé, le problème est qu'il y a deux objets Filesearch:
Application.Filesearch et Office.FileSearch. si tu ne références pas office,
vba prend le Application.filesearch et comme je dis on fait du Dos ni plus
ni moins. Si tu références Office, vba prend le filesearch d'office et là
tout fonctionne comme en windows, donc avec le "*.*"
en 2003 c'est toujours pareil, alors pourvou qué ça douré.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Jessy Sempere [MVP]" a écrit dans le message de
news:ch19mm$sin$
Bonjour

Comment ça mettre Jessy à l'amende ???

Tu sais très bien que je suis sous Access 97 et que mes fonctions
ne sont pas sous access 2000... ;-)))

ha là là !!! enfin bon, j'ai donc vérifié et pas de problème avec ma
fonction, elle accepte très bien le "*.*", je l'appel comme ça :
FileExistDir "c:ton répertoire", "TaTable", "TonChamp"

Sinon il faut aussi rajouter la référence :
"Microsoft Office x.0 Object Library"


@+
Jessy Sempere - Access MVP


Avatar
PatCatNat's
Bonjour,

Je l'appelle bien comme tu dits

Il doit alors manquer la référence :
"Microsoft Office x.0 Object Library"

Mais comment la déclares-tu, où la mets-tu, etc.

Patrice
(Cheminot à Paris-Nord :o))) - Comment va PRG ????)

"Jessy Sempere [MVP]" a écrit dans le message de
news:ch19mm$sin$
Bonjour

Comment ça mettre Jessy à l'amende ???

Tu sais très bien que je suis sous Access 97 et que mes fonctions
ne sont pas sous access 2000... ;-)))

ha là là !!! enfin bon, j'ai donc vérifié et pas de problème avec ma
fonction, elle accepte très bien le "*.*", je l'appel comme ça :
FileExistDir "c:ton répertoire", "TaTable", "TonChamp"

Sinon il faut aussi rajouter la référence :
"Microsoft Office x.0 Object Library"


@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Raymond [mvp]" a écrit dans le message news:

Bonjour.

je vais mettre jessy à l'amende.
il a omis de préciser que le filesearch sous 97 ne supporte pas le *.*,
mais


également le * dans le nom de fichier et le multi *
il faut au moins un caractère dans le nom de fichier sans jocker
.LookIn = strDir
.FileName = "ABC.*"
sortira tous les fichiers qui ont ABC dans leur nom.
vieille expérience de MSDOS.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"dumgest" a écrit dans le message de
news:cgsl6e$c48$



ouais, ca marche merçi, raymond, en fait j'ai retrouver le lien de ta
solution un peu apres avoir fais des essais
mais ça marche sur access 2000, mais c'est en 97 que ça veut pas le
.FileName "*.*"

il faut quoi ? en 97 !!










Avatar
PatCatNat's
Bonjour,

Je l'appelle bien comme tu dits

Il doit alors manquer la référence :
"Microsoft Office x.0 Object Library"

Mais comment la déclares-tu, où la mets-tu, etc.

Patrice
(Cheminot à Paris-Nord :o))) - Comment va PRG ????)

"Jessy Sempere [MVP]" a écrit dans le message de
news:ch19mm$sin$
Bonjour

Comment ça mettre Jessy à l'amende ???

Tu sais très bien que je suis sous Access 97 et que mes fonctions
ne sont pas sous access 2000... ;-)))

ha là là !!! enfin bon, j'ai donc vérifié et pas de problème avec ma
fonction, elle accepte très bien le "*.*", je l'appel comme ça :
FileExistDir "c:ton répertoire", "TaTable", "TonChamp"

Sinon il faut aussi rajouter la référence :
"Microsoft Office x.0 Object Library"


@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Raymond [mvp]" a écrit dans le message news:

Bonjour.

je vais mettre jessy à l'amende.
il a omis de préciser que le filesearch sous 97 ne supporte pas le *.*,
mais


également le * dans le nom de fichier et le multi *
il faut au moins un caractère dans le nom de fichier sans jocker
.LookIn = strDir
.FileName = "ABC.*"
sortira tous les fichiers qui ont ABC dans leur nom.
vieille expérience de MSDOS.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"dumgest" a écrit dans le message de
news:cgsl6e$c48$



ouais, ca marche merçi, raymond, en fait j'ai retrouver le lien de ta
solution un peu apres avoir fais des essais
mais ça marche sur access 2000, mais c'est en 97 que ça veut pas le
.FileName "*.*"

il faut quoi ? en 97 !!










Avatar
Raymond [mvp]
Toi aussi tu écris traffic avec 2 f ?

Alt + F11
menu outils / références
cocher Microsoft office nn.nn object libray
cliquer ok
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"PatCatNat's" a écrit dans le message de
news:ch1e93$h91$
Bonjour,

Je l'appelle bien comme tu dits

Il doit alors manquer la référence :
"Microsoft Office x.0 Object Library"

Mais comment la déclares-tu, où la mets-tu, etc.

Patrice
(Cheminot à Paris-Nord :o))) - Comment va PRG ????)


Avatar
PatCatNat's
çà marche pas :-((((((((((((((((((((((

Je pensais que c'était parceque j'était en SR1, donc je viens de remédier et
suis en SR2b.
J'ai coché "Microsoft office 11.0 object libray"
Et bouuuuuuuuuuuuuuuuuuh => Rien

C p't'être parceque le trafffic passe mal ?

Patrice


"Raymond [mvp]" a écrit dans le message de
news:
Toi aussi tu écris traffic avec 2 f ?

Alt + F11
menu outils / références
cocher Microsoft office nn.nn object libray
cliquer ok
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"PatCatNat's" a écrit dans le message de
news:ch1e93$h91$
Bonjour,

Je l'appelle bien comme tu dits

Il doit alors manquer la référence :
"Microsoft Office x.0 Object Library"

Mais comment la déclares-tu, où la mets-tu, etc.

Patrice
(Cheminot à Paris-Nord :o))) - Comment va PRG ????)






Avatar
Raymond [mvp]
encore un coup du TGV.

si jessy dit qu'il l'a testée, on peut lui faire confiance.
n'aurais-tu pas une erreur de compil par hasard ?
pourquoi la librairie office 11 sur access 97 ?
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"PatCatNat's" a écrit dans le message de
news:ch1jr5$9r8$
çà marche pas :-((((((((((((((((((((((

Je pensais que c'était parceque j'était en SR1, donc je viens de remédier
et

suis en SR2b.
J'ai coché "Microsoft office 11.0 object libray"
Et bouuuuuuuuuuuuuuuuuuh => Rien

C p't'être parceque le trafffic passe mal ?

Patrice


"Raymond [mvp]" a écrit dans le message de
news:
Toi aussi tu écris traffic avec 2 f ?

Alt + F11
menu outils / références
cocher Microsoft office nn.nn object libray
cliquer ok
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"PatCatNat's" a écrit dans le message de
news:ch1e93$h91$
Bonjour,

Je l'appelle bien comme tu dits

Il doit alors manquer la référence :
"Microsoft Office x.0 Object Library"

Mais comment la déclares-tu, où la mets-tu, etc.

Patrice
(Cheminot à Paris-Nord :o))) - Comment va PRG ????)










Avatar
PatCatNat's
Je doute pas de Jessy (c'est un cheminot ;-))), mais de moi (et comme je
suis têtu...)

La compil fonctionne bien
J'ai pris la librairie 11 sur access 97 parceque c'est la seule qui existe
au plus proche de ce que tu m'as dis de cocher :

"Microsoft office nn.nn object library" ====> "Microsoft office 11.0 object
library"

"Raymond [mvp]" a écrit dans le message de
news:OhTip%
encore un coup du TGV.

si jessy dit qu'il l'a testée, on peut lui faire confiance.
n'aurais-tu pas une erreur de compil par hasard ?
pourquoi la librairie office 11 sur access 97 ?
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"PatCatNat's" a écrit dans le message de
news:ch1jr5$9r8$
çà marche pas :-((((((((((((((((((((((

Je pensais que c'était parceque j'était en SR1, donc je viens de
remédier


et
suis en SR2b.
J'ai coché "Microsoft office 11.0 object librairy"
Et bouuuuuuuuuuuuuuuuuuh => Rien

C p't'être parceque le trafffic passe mal ?

Patrice


"Raymond [mvp]" a écrit dans le message de
news:
Toi aussi tu écris traffic avec 2 f ?

Alt + F11
menu outils / références
cocher Microsoft office nn.nn object libray
cliquer ok
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"PatCatNat's" a écrit dans le message de
news:ch1e93$h91$
Bonjour,

Je l'appelle bien comme tu dits

Il doit alors manquer la référence :
"Microsoft Office x.0 Object Library"

Mais comment la déclares-tu, où la mets-tu, etc.

Patrice
(Cheminot à Paris-Nord :o))) - Comment va PRG ????)














Avatar
Raymond [mvp]
Microsoft office 11.0 object c'est la librairie office 2003. je ne sais pas
ce qu'elle donne sur 97.
un message est-il affiché quand tu lance ta fonction ?
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"PatCatNat's" a écrit dans le message de
news:ch1rh7$47k$
Je doute pas de Jessy (c'est un cheminot ;-))), mais de moi (et comme je
suis têtu...)

La compil fonctionne bien
J'ai pris la librairie 11 sur access 97 parceque c'est la seule qui existe
au plus proche de ce que tu m'as dis de cocher :

"Microsoft office nn.nn object library" ====> "Microsoft office 11.0
object

library"


Avatar
Raymond [mvp]
Je viens de monter la fonction de jessy sur 97 avec la référence office 2003
et j'ai la même chose pour le *.*

je crois qu'il va falloir attendre jessy pour qu'il te trouve une
explication. je te laisse entre de bonnes mains, il est jeune, beau, grand,
blond, yeux bleus, bien sous tous rapports je ne peux pas lutter.

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


"Raymond [mvp]" a écrit dans le message de
news:%23hZi%
Microsoft office 11.0 object c'est la librairie office 2003. je ne sais
pas

ce qu'elle donne sur 97.
un message est-il affiché quand tu lance ta fonction ?


Avatar
Jessy Sempere [MVP]
Bonjour

Ben je ne peux pas tester avec la référence 11.0 vu que je n'ai que
97, moi je n'ai que la 8.0...

Enfin peu importe, je viens de faire le test en retirant la référence
"Microsoft Office 8.0 Object Library" du coup j'utilise l'objet
FileSearch de l'objet Application et je n'ai aucun pb avec
le FileName = "*.*" j'ai bien tous mes noms de fichiers qui sont
ajouter dans ma table.

Pour info je suis sous Access 97 SR2
et sous WinNt 4

Par contre je n'ai aucune autre version d'Access sur mon poste et vu
que tous les 3 vous avez plusieurs versions sur vos postes, le pb vient
peut-être de là ???

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Raymond [mvp]" a écrit dans le message news:

Je viens de monter la fonction de jessy sur 97 avec la référence office 2003
et j'ai la même chose pour le *.*

je crois qu'il va falloir attendre jessy pour qu'il te trouve une
explication. je te laisse entre de bonnes mains, il est jeune, beau, grand,
blond, yeux bleus, bien sous tous rapports je ne peux pas lutter.

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


"Raymond [mvp]" a écrit dans le message de
news:%23hZi%
Microsoft office 11.0 object c'est la librairie office 2003. je ne sais
pas

ce qu'elle donne sur 97.
un message est-il affiché quand tu lance ta fonction ?






1 2