Discussion :

[Pinguin2012]

Bonjour,

J'ai une base de donnée Access créée par un ancien employé. Malheureusement suite à la migration vers Office 2010, une fonction ne marche plus et je ne connais absolument rien en programmation. J'ai essayé plusieurs code pris ici .... j'ai essayer d'adapter ...et rien ne fonctionne.

Lors de l'ouverture d'un formulaire, la liste des fichiers d'un répertoire est listé dans un listbox.

Voici le code :

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
17
18
19
20
21
22
23
24
25
26
Private Sub Form_Open(Cancel As Integer)
'Dim Fs As FileSearch
Dim Dossier As String
Dim I As Integer
On Error Resume Next
 
Dossier = "C:\Users\Chantale\Desktop\2012-06-04\documents"
With Application.FileSearch
     .FileName = "*.doc"
    .LookIn = Dossier
    .SearchsubFolders = False
 .Execute msoSortByFileName, msoSortOrderAscending
  If .Execute > 0 Then
    With .FoundFiles
      For I = 1 To .Count
        Me.MaListe.AddItem Dir(.Item(I))
      Next I
    End With
  Else
    MsgBox "Aucun classeur trouvés " & _
    "dans le dossier '" & Dossier & "'."
    Me.MaListe.AddItem "Aucun classeur !"
  End If
 End With
 
 End Sub

Merci pour votre aide.

[Domi2]

Bonsoir,

Il m'étonnerait beaucoup que cette propriété ne soit plus utilisée dans Access 2010.

Tu n'en dis également pas beaucoup. Ca ne fonctionne pas, hein !

Tu as un message d'erreur ?

Rien ne s'affiche ?

Essaie déjà de regarder si ton projet compile correctement et peut-être du côté des références. Si il y en a une marquée "Manquante", décoche là.

Domi2

[Pinguin2012]

le filesearch n'est plus supporté dans access 2010. J'ai lu plusieurs forum sur ce sujet.

J'ai essayer plusieurs code de remplacement que je ne suis pas capable de faire fonctionner. Puisque je ne m'y connais pas du tout en programmation.

C'est la raison pour laquelle je suis venu demander un coup de main ici. En esperant qu'une ame charitable pourrais me donner un code qui fonctionnerais dans ma base de donnée afin de faire apparaitre le listing d'un dossier dans un list box.

dans 2010, pas de message d'erreur. la listebox reste tout simplement vide !!!



Merci de votre aide !!!


p.s. le code fonctionne très bien en access 2003.

[Domi2]

Tu as par exemple regardé cette discussion ?

Domi2