Discussion :

[myriame]

Bonjour tous le monde !

Après de multiple recherche, je n'arrive toujours pas à résoudre mon problème, c'est-à-dire remplacer le filesearch qui fonctionne sous access 2003 et non sous access 2007 ! N'y aurait-il pas une solution simple à ce problème ?

[loufab]

Bonjour,

Il y a le Filedialog avec la bibliothèque Microsoft Office 12.0 Object Library.
L'api windows également qui fonctionne quelque soit la version.

regarde dans la faq il y a des exemples.

Cordialement,

[myriame]

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
REPERTOIRE = Me.import 'définie le réperoire où se trouve le document
'----------------------------------------------------------------------------------------------------------------------------------
'recherche les fichiers correspondant au code actif sur le formulaire
Me.NomDocument.RowSource = ""
Me.NomDocument.Value = "Sélectionner le fichier"
With Application.FileDialog
    .NewSearch
    .LookIn = REPERTOIRE
    .SearchSubFolders = False
    .FileName = "abc_"
    .MatchTextExactly = False
End With
'----------------------------------------------------------------------------------------------------------------------------------
With Application.FileSearch
    If .Execute() > 0 Then
        For i = 1 To .foundfiles.Count
            AdresseFichier = .foundfiles(i) 'AdresseFichier = explorateur Windows
            Me.NomDocument.RowSource = StrConv(Right(AdresseFichier, Len(AdresseFichier) - Len(REPERTOIRE)) & ";" & Me.NomDocument.RowSource, vbUpperCase)
 
        Next i
'----------------------------------------------------------------------------------------------------------------------------------
    Else
        MsgBox "Aucun fichier trouvé."
    End If
 
End With

voilà mon code de départ, quand je remplace

Code :

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

filesarch

par

Code :

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

filedialog

sa ne me donne pas le résultat attendu!

[Orakle]

Salut,

moi j'ai ça qui fonctionne pour 2003 et 2007
C'est du VBE mais c'est du pareil au même.

en modifiant ce qu'il faut tu devrais arriver à tes fins!!

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
 
    wwFichierTarifs = InputBox("Nom du fichier tarifs à intégrer ", "Mise à jour des tarifs")
 
    If Not wwFichierTarifs = "" Then
        repertoire = ThisWorkbook.Path
        wwFichierTarifs = wwFichierTarifs
        With Application.FileSearch
            .LookIn = repertoire & ".xls"
            .Filename = wwFichierTarifs
                If .Execute > 0 Then 'Workbook existe
                    Workbooks.Open Filename:=repertoire & "\" & wwFichierTarifs & ".xls"
                    MAJTarifs
                Else
                    MsgBox wwMSG(5) & " " & wwFichierTarifs   
                End If
        End With
    End If

[Invité]

Bonjour

Regardes là : http://access.developpez.com/faq/?page=FD

Philippe

[myriame]

j'utilise vba sous access 2007, utiliser vbe c'est possible ? si oui comment ?