Contenu Combobox (Access 97)

Le plus simple serait de créer une combo indépendante que tu remplirais avec
FileSystemObject... Mais gare au antivirus qui désactive les scripts...


@+
LJ

http://www.eztree-msdn.com




"Monkeytoo" <coiffurevogue@skynet.be> a écrit dans le message de news:
#mkqUTJBEHA.1452@TK2MSFTNGP09.phx.gbl...

Bonsoir
je voudrais que le contenu d'un combo soit la liste des fichiers (*.dot)
contenus dans un répertoire (chemin_Base)
Quel est la requête sql pour avoir ce résultat ?
en clair, j'ai dans le répertoire "c:Courrier" une liste de modele de
documents.
je désirerais en choisir un dans un combo afin de l'utiliser pour créer un
doc

Hello!
tu ne peux le faire avec une requette Sql, à moins que tes fichiers, ou les
chemins de ces fichiers soient enregistrés dans une structure de base de
données

cependant, par code vba, tu peux facilement le faire, pour cela, utilise la
fonction Dir (regarde dans le help pour l'exemple)
le code ressemblera à:

dim MyFile
MyFile = Dir("C:Courrier") ' Récupérer le premier fichier contenu dans
ce dossier
Do While MyFile <> ""
If MyFile <> "." And MyFile <> ".." Then 'ignorer ces deux
If right(MyFile,4) = ".dot" Then 'vérifier l'extention du fichier
myCombo.rowSource=myCombo.rowSource & ";" myFile 'Ajouter à ma
combo
End If
End If
MyFile = Dir ' récupérer le second fichier
Loop




"Monkeytoo" <coiffurevogue@skynet.be> a écrit dans le message de
news:%23mkqUTJBEHA.1452@TK2MSFTNGP09.phx.gbl...

Bonsoir
je voudrais que le contenu d'un combo soit la liste des fichiers (*.dot)
contenus dans un répertoire (chemin_Base)
Quel est la requête sql pour avoir ce résultat ?
en clair, j'ai dans le répertoire "c:Courrier" une liste de modele de
documents.
je désirerais en choisir un dans un combo afin de l'utiliser pour créer un
doc

Merci
cela fonctionne avec le code
En spécifiant que le combo (origine source) est une liste de valeurs et pas
une requête ou table
dim MyFile
MyFile = Dir("C:Courrier") ' Récupérer le premier fichier contenu dans
ce dossier
Do While MyFile <> ""
If MyFile <> "." And MyFile <> ".." Then 'ignorer ces deux
If right(MyFile,4) = ".dot" Then 'vérifier l'extention du fichier
myCombo.rowSource=myCombo.rowSource & ";" & myFile 'Ajouter à
ma combo
End If
End If
MyFile = Dir ' récupérer le second fichier
Loop


"Warrio" <warrio@hotmail.com> a écrit dans le message de news:
404bab46_1@news.bluewin.ch...

Hello!
tu ne peux le faire avec une requette Sql, à moins que tes fichiers, ou
les

chemins de ces fichiers soient enregistrés dans une structure de base de
données

cependant, par code vba, tu peux facilement le faire, pour cela, utilise
la

fonction Dir (regarde dans le help pour l'exemple)
le code ressemblera à:

dim MyFile
MyFile = Dir("C:Courrier") ' Récupérer le premier fichier contenu
dans

ce dossier
Do While MyFile <> ""
If MyFile <> "." And MyFile <> ".." Then 'ignorer ces deux
If right(MyFile,4) = ".dot" Then 'vérifier l'extention du fichier
myCombo.rowSource=myCombo.rowSource & ";" myFile 'Ajouter à ma
combo
End If
End If
MyFile = Dir ' récupérer le second fichier
Loop




"Monkeytoo" <coiffurevogue@skynet.be> a écrit dans le message de
news:%23mkqUTJBEHA.1452@TK2MSFTNGP09.phx.gbl...

Bonsoir
je voudrais que le contenu d'un combo soit la liste des fichiers (*.dot)
contenus dans un répertoire (chemin_Base)
Quel est la requête sql pour avoir ce résultat ?
en clair, j'ai dans le répertoire "c:Courrier" une liste de modele de
documents.
je désirerais en choisir un dans un combo afin de l'utiliser pour créer
un

doc