Discussion :

[ouskel'n'or]

List_rep.ListStyle = fmListStyleOption est une syntaxe VBA-Excel ou Word. Explique ce que te donne ce style, déjà tu sauras si ça existe sous VBA Access
(je passais juste par là...)

[ushiwa.sasuke]

Je n'ai pas compris ce que je dois expliquer...

Dsl

[DelphiManiac]

Etant intrigué et ne voyant pas de raison pour que cela ne fonctionne pas, je viens de faire l'essai.

Ci joint une base avec un formulaire qui affiche la liste des fichiers de c:\

Teste et dis nous si cette base passe.

(Access Version 2000)

[ushiwa.sasuke]

Il ne reconnait pas AddItems comme je l'avais cité précédement...

[DelphiManiac]

Autant pour moi, je viens de vérifier et c'est une fonctionnalité Access 2002 (je suis en access 2002 et utilise des bases format access 2000).

Il faut dans ce cas procéder de la manière suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub Form_Open(Cancel As Integer)
    Dim ext As String
    Const myRep = "c:\"
 
    list_rep.RowSource = ""
 
    ext = Dir(myRep & "*.*")
    list_rep.Visible = True
    Do While ext <> ""
        list_rep.RowSource = list_rep.RowSource & ext & ";"
        ext = Dir
    Loop
End Sub

[ushiwa.sasuke]

Oui cela fonctionne maintenant mais que fais-je avec cette ligne :

Code :

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

List_rep.ListStyle = fmListStyleOption

Car c'est la d'ou vient mon problème...

Merci d'avance.

[ushiwa.sasuke]

J'ai eu quelques problèmes au niveau windows c'est pour ca que cela ne fonctionnait pas vraiment...mais maintenant avec ce code cela fonctionne :

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
 
Private Sub btn_lister_Click()
 
    Dim ext As String
    Dim myRep As String
 
    myRep = edit_repertoire.Value
 
    ext = Dir(myRep & "\*.doc")
    List_rep.Visible = True
    Do While ext <> ""
        List_rep.AddItem (myRep & "\" & ext)
        ext = Dir
    Loop
 
End Sub

Le code est basique mais je pense l'améliorer prochainement...

Maintenant une autre question me taraude...

Une foi mes fichiers listés, comment pourrai-je faire pour séléctionner les fichiers que j'ai envie de convertir ?

Merci d'avance.