sur click d'une commande comment inscrire dans une zone de liste le nom de tous les fichiers d'un certain repertoire ex: D:DataTables
liste: nom1 nom2 nom3 etc etc
Avec ceci, http://access.jessy.free.fr/htm/File/FileExistDir.htm tu vire tout dans une table...
Après, il te suffit de construire une liste avec cette table comme source.
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
lou
désolé ça marche erreur de frape de ma part pour plus de pratique est il possible d'afficher le résultat dand un msgbox plutôt que dans une zone de liste
merci et encore sorry
"lou" a écrit dans le message de news: 410c8fa4$0$1246$
meci mais ça marche pas
"3stone" a écrit dans le message de news: #
Salut,
"lou"
sur click d'une commande comment inscrire dans une zone de liste le nom de tous les fichiers d'un
certain repertoire ex: D:DataTables
liste: nom1 nom2 nom3 etc etc
Avec ceci, http://access.jessy.free.fr/htm/File/FileExistDir.htm tu vire tout dans une table...
Après, il te suffit de construire une liste avec cette table comme source.
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
désolé ça marche erreur de frape de ma part
pour plus de pratique est il possible d'afficher le résultat
dand un msgbox plutôt que dans une zone de liste
merci et encore sorry
"lou" <colluluigi@skynet.be> a écrit dans le message de news:
410c8fa4$0$1246$ba620e4c@news.skynet.be...
meci mais ça marche pas
"3stone" <threestone@cielreseau.be> a écrit dans le message de news:
#KlGoT0dEHA.1760@TK2MSFTNGP10.phx.gbl...
Salut,
"lou"
sur click d'une commande
comment inscrire dans une zone de liste le nom de tous les fichiers
d'un
certain repertoire
ex:
D:DataTables
liste:
nom1
nom2
nom3
etc etc
Avec ceci, http://access.jessy.free.fr/htm/File/FileExistDir.htm
tu vire tout dans une table...
Après, il te suffit de construire une liste avec cette table comme
source.
--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
désolé ça marche erreur de frape de ma part pour plus de pratique est il possible d'afficher le résultat dand un msgbox plutôt que dans une zone de liste
merci et encore sorry
"lou" a écrit dans le message de news: 410c8fa4$0$1246$
meci mais ça marche pas
"3stone" a écrit dans le message de news: #
Salut,
"lou"
sur click d'une commande comment inscrire dans une zone de liste le nom de tous les fichiers d'un
certain repertoire ex: D:DataTables
liste: nom1 nom2 nom3 etc etc
Avec ceci, http://access.jessy.free.fr/htm/File/FileExistDir.htm tu vire tout dans une table...
Après, il te suffit de construire une liste avec cette table comme source.
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
3stone
Salut,
"lou"
désolé ça marche erreur de frape de ma part
les codes mis à disposition, ont en général été testé/utilisé par pas mal de monde!
un "marche pas" équivaut à "je ne sais pas" ;-))
pour plus de pratique est il possible d'afficher le résultat dand un msgbox plutôt que dans une zone de liste
tu demandais :
"comment inscrire dans une zone de liste..."
Et je ne vois pas bien à quoi peut servir un msgbox avec une liste de fichiers ?? tu ne serais pas en train de réinventer la roue ? quel est ton vrai besoin ?
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Salut,
"lou"
désolé ça marche erreur de frape de ma part
les codes mis à disposition, ont en général
été testé/utilisé par pas mal de monde!
un "marche pas" équivaut à "je ne sais pas" ;-))
pour plus de pratique est il possible d'afficher le résultat
dand un msgbox plutôt que dans une zone de liste
tu demandais :
"comment inscrire dans une zone de liste..."
Et je ne vois pas bien à quoi peut servir un msgbox
avec une liste de fichiers ?? tu ne serais pas en train
de réinventer la roue ? quel est ton vrai besoin ?
--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
les codes mis à disposition, ont en général été testé/utilisé par pas mal de monde!
un "marche pas" équivaut à "je ne sais pas" ;-))
pour plus de pratique est il possible d'afficher le résultat dand un msgbox plutôt que dans une zone de liste
tu demandais :
"comment inscrire dans une zone de liste..."
Et je ne vois pas bien à quoi peut servir un msgbox avec une liste de fichiers ?? tu ne serais pas en train de réinventer la roue ? quel est ton vrai besoin ?
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Eric
Bonjour,
Tu stockes quand même les adresses des fichiers dans une table ou non ?
Si non: Sous les lignes de déclaration (Dim ...) tu ajoutes Dim msg as String et à la place de CurrentDb.Execute ... tu mets : Msg = Msg & strFile A la sortie de la boucle For ...Next, tu mets: MsgBox Msg, vbInformation
Si oui, la table existe et donc tu crées une procédure qui va remplir un message à afficher par une MsgBox du genre:
Sub AfficheFichierViaMsgBox Dim rst as DAO.Recordset, msg as String Set rst=CurrentDb.OpenRecordset("NomTableStockantFichiers") msg="Liste des fichiers :" & vbCrLf While not rst.eof ' je suppose que le 1er champ de cette table ' est le nom du fichier msg = msg & vbTab & rst(0) & vbCrLf rst.MoveNext Wend MsgBox msg, vbInformation rst.Close : set rst=Nothing End Sub
L'appel de la procédure se fera sur un évènement par Call AfficheFichierViaMsgBox
A+ Eric
"lou" écrivait news:410c9b40$0$31463 $:
désolé ça marche erreur de frape de ma part pour plus de pratique est il possible d'afficher le résultat dand un msgbox plutôt que dans une zone de liste
merci et encore sorry
"lou" a écrit dans le message de news: 410c8fa4$0$1246$
meci mais ça marche pas
"3stone" a écrit dans le message de news: #
Salut,
"lou"
sur click d'une commande comment inscrire dans une zone de liste le nom de tous les fichiers
d'un certain repertoire ex: D:DataTables
liste: nom1 nom2 nom3 etc etc
Avec ceci, http://access.jessy.free.fr/htm/File/FileExistDir.htm tu vire tout dans une table...
Après, il te suffit de construire une liste avec cette table comme
source.
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Bonjour,
Tu stockes quand même les adresses des fichiers dans une table ou non ?
Si non:
Sous les lignes de déclaration (Dim ...) tu ajoutes
Dim msg as String
et à la place de CurrentDb.Execute ... tu mets :
Msg = Msg & strFile
A la sortie de la boucle For ...Next, tu mets:
MsgBox Msg, vbInformation
Si oui, la table existe et donc tu crées une procédure qui va remplir un
message à afficher par une MsgBox du genre:
Sub AfficheFichierViaMsgBox
Dim rst as DAO.Recordset, msg as String
Set rst=CurrentDb.OpenRecordset("NomTableStockantFichiers")
msg="Liste des fichiers :" & vbCrLf
While not rst.eof
' je suppose que le 1er champ de cette table
' est le nom du fichier
msg = msg & vbTab & rst(0) & vbCrLf
rst.MoveNext
Wend
MsgBox msg, vbInformation
rst.Close : set rst=Nothing
End Sub
L'appel de la procédure se fera sur un évènement par
Call AfficheFichierViaMsgBox
désolé ça marche erreur de frape de ma part
pour plus de pratique est il possible d'afficher le résultat
dand un msgbox plutôt que dans une zone de liste
merci et encore sorry
"lou" <colluluigi@skynet.be> a écrit dans le message de news:
410c8fa4$0$1246$ba620e4c@news.skynet.be...
meci mais ça marche pas
"3stone" <threestone@cielreseau.be> a écrit dans le message de news:
#KlGoT0dEHA.1760@TK2MSFTNGP10.phx.gbl...
Salut,
"lou"
sur click d'une commande
comment inscrire dans une zone de liste le nom de tous les
fichiers
d'un certain repertoire ex:
D:DataTables
liste:
nom1
nom2
nom3
etc etc
Avec ceci, http://access.jessy.free.fr/htm/File/FileExistDir.htm
tu vire tout dans une table...
Après, il te suffit de construire une liste avec cette table
comme
source.
--
A+
Pierre (3stone) Access MVP
----------------------------- http://users.skynet.be/mpfa
-----------------------------
Tu stockes quand même les adresses des fichiers dans une table ou non ?
Si non: Sous les lignes de déclaration (Dim ...) tu ajoutes Dim msg as String et à la place de CurrentDb.Execute ... tu mets : Msg = Msg & strFile A la sortie de la boucle For ...Next, tu mets: MsgBox Msg, vbInformation
Si oui, la table existe et donc tu crées une procédure qui va remplir un message à afficher par une MsgBox du genre:
Sub AfficheFichierViaMsgBox Dim rst as DAO.Recordset, msg as String Set rst=CurrentDb.OpenRecordset("NomTableStockantFichiers") msg="Liste des fichiers :" & vbCrLf While not rst.eof ' je suppose que le 1er champ de cette table ' est le nom du fichier msg = msg & vbTab & rst(0) & vbCrLf rst.MoveNext Wend MsgBox msg, vbInformation rst.Close : set rst=Nothing End Sub
L'appel de la procédure se fera sur un évènement par Call AfficheFichierViaMsgBox
A+ Eric
"lou" écrivait news:410c9b40$0$31463 $:
désolé ça marche erreur de frape de ma part pour plus de pratique est il possible d'afficher le résultat dand un msgbox plutôt que dans une zone de liste
merci et encore sorry
"lou" a écrit dans le message de news: 410c8fa4$0$1246$
meci mais ça marche pas
"3stone" a écrit dans le message de news: #
Salut,
"lou"
sur click d'une commande comment inscrire dans une zone de liste le nom de tous les fichiers
d'un certain repertoire ex: D:DataTables
liste: nom1 nom2 nom3 etc etc
Avec ceci, http://access.jessy.free.fr/htm/File/FileExistDir.htm tu vire tout dans une table...
Après, il te suffit de construire une liste avec cette table comme
source.
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Tu stockes quand même les adresses des fichiers dans une table ou non ?
Si non: Sous les lignes de déclaration (Dim ...) tu ajoutes Dim msg as String et à la place de CurrentDb.Execute ... tu mets : Msg = Msg & strFile A la sortie de la boucle For ...Next, tu mets: MsgBox Msg, vbInformation
Si oui, la table existe et donc tu crées une procédure qui va remplir un
message à afficher par une MsgBox du genre:
Sub AfficheFichierViaMsgBox Dim rst as DAO.Recordset, msg as String Set rst=CurrentDb.OpenRecordset("NomTableStockantFichiers") msg="Liste des fichiers :" & vbCrLf While not rst.eof ' je suppose que le 1er champ de cette table ' est le nom du fichier msg = msg & vbTab & rst(0) & vbCrLf rst.MoveNext Wend MsgBox msg, vbInformation rst.Close : set rst=Nothing End Sub
L'appel de la procédure se fera sur un évènement par Call AfficheFichierViaMsgBox
A+ Eric
"lou" écrivait news:410c9b40$0$31463 $:
désolé ça marche erreur de frape de ma part pour plus de pratique est il possible d'afficher le résultat dand un msgbox plutôt que dans une zone de liste
merci et encore sorry
"lou" a écrit dans le message de news: 410c8fa4$0$1246$
meci mais ça marche pas
"3stone" a écrit dans le message de news: #
Salut,
"lou"
sur click d'une commande comment inscrire dans une zone de liste le nom de tous les fichiers
d'un certain repertoire ex: D:DataTables
liste: nom1 nom2 nom3 etc etc
Avec ceci, http://access.jessy.free.fr/htm/File/FileExistDir.htm
tu vire tout dans une table...
Après, il te suffit de construire une liste avec cette table comme
source.
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Eric <f_framZZ@hotmail.com> écrivait
news:XnF953865DAF3669fframZZhotmailcom@207.46.248.16:
Bonjour,
Tu stockes quand même les adresses des fichiers dans une table ou non ?
Si non:
Sous les lignes de déclaration (Dim ...) tu ajoutes
Dim msg as String
et à la place de CurrentDb.Execute ... tu mets :
Msg = Msg & strFile
A la sortie de la boucle For ...Next, tu mets:
MsgBox Msg, vbInformation
Si oui, la table existe et donc tu crées une procédure qui va remplir
un
message à afficher par une MsgBox du genre:
Sub AfficheFichierViaMsgBox
Dim rst as DAO.Recordset, msg as String
Set rst=CurrentDb.OpenRecordset("NomTableStockantFichiers")
msg="Liste des fichiers :" & vbCrLf
While not rst.eof
' je suppose que le 1er champ de cette table
' est le nom du fichier
msg = msg & vbTab & rst(0) & vbCrLf
rst.MoveNext
Wend
MsgBox msg, vbInformation
rst.Close : set rst=Nothing
End Sub
L'appel de la procédure se fera sur un évènement par
Call AfficheFichierViaMsgBox
désolé ça marche erreur de frape de ma part
pour plus de pratique est il possible d'afficher le résultat
dand un msgbox plutôt que dans une zone de liste
merci et encore sorry
"lou" <colluluigi@skynet.be> a écrit dans le message de news:
410c8fa4$0$1246$ba620e4c@news.skynet.be...
meci mais ça marche pas
"3stone" <threestone@cielreseau.be> a écrit dans le message de news:
#KlGoT0dEHA.1760@TK2MSFTNGP10.phx.gbl...
Salut,
"lou"
sur click d'une commande
comment inscrire dans une zone de liste le nom de tous les
fichiers
d'un certain repertoire ex:
D:DataTables
liste:
nom1
nom2
nom3
etc etc
Avec ceci,
http://access.jessy.free.fr/htm/File/FileExistDir.htm
tu vire tout dans une table...
Après, il te suffit de construire une liste avec cette table
comme
source.
--
A+
Pierre (3stone) Access MVP
----------------------------- http://users.skynet.be/mpfa
-----------------------------
Tu stockes quand même les adresses des fichiers dans une table ou non ?
Si non: Sous les lignes de déclaration (Dim ...) tu ajoutes Dim msg as String et à la place de CurrentDb.Execute ... tu mets : Msg = Msg & strFile A la sortie de la boucle For ...Next, tu mets: MsgBox Msg, vbInformation
Si oui, la table existe et donc tu crées une procédure qui va remplir un
message à afficher par une MsgBox du genre:
Sub AfficheFichierViaMsgBox Dim rst as DAO.Recordset, msg as String Set rst=CurrentDb.OpenRecordset("NomTableStockantFichiers") msg="Liste des fichiers :" & vbCrLf While not rst.eof ' je suppose que le 1er champ de cette table ' est le nom du fichier msg = msg & vbTab & rst(0) & vbCrLf rst.MoveNext Wend MsgBox msg, vbInformation rst.Close : set rst=Nothing End Sub
L'appel de la procédure se fera sur un évènement par Call AfficheFichierViaMsgBox
A+ Eric
"lou" écrivait news:410c9b40$0$31463 $:
désolé ça marche erreur de frape de ma part pour plus de pratique est il possible d'afficher le résultat dand un msgbox plutôt que dans une zone de liste
merci et encore sorry
"lou" a écrit dans le message de news: 410c8fa4$0$1246$
meci mais ça marche pas
"3stone" a écrit dans le message de news: #
Salut,
"lou"
sur click d'une commande comment inscrire dans une zone de liste le nom de tous les fichiers
d'un certain repertoire ex: D:DataTables
liste: nom1 nom2 nom3 etc etc
Avec ceci, http://access.jessy.free.fr/htm/File/FileExistDir.htm
tu vire tout dans une table...
Après, il te suffit de construire une liste avec cette table comme
source.
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Tu stockes quand même les adresses des fichiers dans une table ou non ?
Si non: Sous les lignes de déclaration (Dim ...) tu ajoutes Dim msg as String et à la place de CurrentDb.Execute ... tu mets : Msg = Msg & strFile A la sortie de la boucle For ...Next, tu mets: MsgBox Msg, vbInformation
Si oui, la table existe et donc tu crées une procédure qui va remplir un
message à afficher par une MsgBox du genre:
Sub AfficheFichierViaMsgBox Dim rst as DAO.Recordset, msg as String Set rst=CurrentDb.OpenRecordset("NomTableStockantFichiers") msg="Liste des fichiers :" & vbCrLf While not rst.eof ' je suppose que le 1er champ de cette table ' est le nom du fichier msg = msg & vbTab & rst(0) & vbCrLf rst.MoveNext Wend MsgBox msg, vbInformation rst.Close : set rst=Nothing End Sub
L'appel de la procédure se fera sur un évènement par Call AfficheFichierViaMsgBox
A+ Eric
"lou" écrivait news:410c9b40$0$31463 $:
désolé ça marche erreur de frape de ma part pour plus de pratique est il possible d'afficher le résultat dand un msgbox plutôt que dans une zone de liste
merci et encore sorry
"lou" a écrit dans le message de news: 410c8fa4$0$1246$
meci mais ça marche pas
"3stone" a écrit dans le message de news: #
Salut,
"lou"
sur click d'une commande comment inscrire dans une zone de liste le nom de tous les fichiers
d'un certain repertoire ex: D:DataTables
liste: nom1 nom2 nom3 etc etc
Avec ceci, http://access.jessy.free.fr/htm/File/FileExistDir.htm
tu vire tout dans une table...
Après, il te suffit de construire une liste avec cette table comme
source.
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
merci 3stone
merci eric
ça marche
"Eric" <f_framZZ@hotmail.com> a écrit dans le message de news:
XnF953866C4A7E7BfframZZhotmailcom@207.46.248.16...
Eric <f_framZZ@hotmail.com> écrivait
news:XnF953865DAF3669fframZZhotmailcom@207.46.248.16:
Bonjour,
Tu stockes quand même les adresses des fichiers dans une table ou non ?
Si non:
Sous les lignes de déclaration (Dim ...) tu ajoutes
Dim msg as String
et à la place de CurrentDb.Execute ... tu mets :
Msg = Msg & strFile
A la sortie de la boucle For ...Next, tu mets:
MsgBox Msg, vbInformation
Si oui, la table existe et donc tu crées une procédure qui va remplir
un
message à afficher par une MsgBox du genre:
Sub AfficheFichierViaMsgBox
Dim rst as DAO.Recordset, msg as String
Set rst=CurrentDb.OpenRecordset("NomTableStockantFichiers")
msg="Liste des fichiers :" & vbCrLf
While not rst.eof
' je suppose que le 1er champ de cette table
' est le nom du fichier
msg = msg & vbTab & rst(0) & vbCrLf
rst.MoveNext
Wend
MsgBox msg, vbInformation
rst.Close : set rst=Nothing
End Sub
L'appel de la procédure se fera sur un évènement par
Call AfficheFichierViaMsgBox
désolé ça marche erreur de frape de ma part
pour plus de pratique est il possible d'afficher le résultat
dand un msgbox plutôt que dans une zone de liste
merci et encore sorry
"lou" <colluluigi@skynet.be> a écrit dans le message de news:
410c8fa4$0$1246$ba620e4c@news.skynet.be...
meci mais ça marche pas
"3stone" <threestone@cielreseau.be> a écrit dans le message de news:
#KlGoT0dEHA.1760@TK2MSFTNGP10.phx.gbl...
Salut,
"lou"
sur click d'une commande
comment inscrire dans une zone de liste le nom de tous les
fichiers
d'un certain repertoire ex:
D:DataTables
liste:
nom1
nom2
nom3
etc etc
Avec ceci,
http://access.jessy.free.fr/htm/File/FileExistDir.htm
tu vire tout dans une table...
Après, il te suffit de construire une liste avec cette table
comme
source.
--
A+
Pierre (3stone) Access MVP
----------------------------- http://users.skynet.be/mpfa
-----------------------------
Tu stockes quand même les adresses des fichiers dans une table ou non ?
Si non: Sous les lignes de déclaration (Dim ...) tu ajoutes Dim msg as String et à la place de CurrentDb.Execute ... tu mets : Msg = Msg & strFile A la sortie de la boucle For ...Next, tu mets: MsgBox Msg, vbInformation
Si oui, la table existe et donc tu crées une procédure qui va remplir un
message à afficher par une MsgBox du genre:
Sub AfficheFichierViaMsgBox Dim rst as DAO.Recordset, msg as String Set rst=CurrentDb.OpenRecordset("NomTableStockantFichiers") msg="Liste des fichiers :" & vbCrLf While not rst.eof ' je suppose que le 1er champ de cette table ' est le nom du fichier msg = msg & vbTab & rst(0) & vbCrLf rst.MoveNext Wend MsgBox msg, vbInformation rst.Close : set rst=Nothing End Sub
L'appel de la procédure se fera sur un évènement par Call AfficheFichierViaMsgBox
A+ Eric
"lou" écrivait news:410c9b40$0$31463 $:
désolé ça marche erreur de frape de ma part pour plus de pratique est il possible d'afficher le résultat dand un msgbox plutôt que dans une zone de liste
merci et encore sorry
"lou" a écrit dans le message de news: 410c8fa4$0$1246$
meci mais ça marche pas
"3stone" a écrit dans le message de news: #
Salut,
"lou"
sur click d'une commande comment inscrire dans une zone de liste le nom de tous les fichiers
d'un certain repertoire ex: D:DataTables
liste: nom1 nom2 nom3 etc etc
Avec ceci, http://access.jessy.free.fr/htm/File/FileExistDir.htm
tu vire tout dans une table...
Après, il te suffit de construire une liste avec cette table comme
source.
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
