Filesearch ne fonctionne plus

Question

Bonjour,

J'ai un enorme soucis que je doit resoudre au plus vite car je suis tout bloqué....
J'ai un module VBA qui fonctionne parfaitement sous Access 2003. NOus avons migré sous Access 2007 et la ca fonctionne plus !!! 

Voici mon module de recherche tout simple que j'aimerai convertir en 2007 et qui restera tout simple car ca suffit et ca marche sous 2003.

Merci de votre aide precieuse... le code :

Sub import()
    
    Set fs = Application.FileSearch
    
    With fs
    
        .LookIn = "C:\CALL_incoming"
        .filename = "*.TXT"
        
        If .Execute(SortBy:=msoSortbyFileName, _
            SortOrder:=msoSortOrderAscending) > 0 Then
                   
                For i = 1 To .Foundfiles.Count
                FileCopy .Foundfiles(i), "C:\SAUVEGARDE" & Right(.Foundfiles(i), (Len(.Foundfiles(i)) - InStrRev(.Foundfiles(i), "")))
                DoCmd.TransferText acImportDelim, "Spécification export", "FICHIER EXPORT", .Foundfiles(i), False, ""
                Kill (.Foundfiles(i))
              
         Next i
    
         Else
        
         End If
    
End With

End Sub

C'est pas compliqué mais je trouve pas la soluce pour la convertir en 2007

MERCI MERCI

Renfield · Answer

pourquoi ne pas utiliser une bonne vieille commande DIR ?

Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

fabconbike · Answer

Une commande dir pouvez vous etre plus clair?
Désolé mais je connais pas trop le VBA (c'est pas moi qui a fait le code) mais je le comprend mais de la en refaire un autre cela me parait compremis...

c148270 · Answer

Bonjour
Voici une piste

http://www.vbfrance.com/forum/sujet-FILESEARCH-NE-FONCTIONNE-PLUS_1469325.aspx

bonne journée

Renfield · Answer

j'ai pas saisi l'astuce, c148270 ...

Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

jordane45 · Answer

Bonjour,

Sur 2007, le Filesearch n'est plus disponible.
Il est possible de le "remettre" en le "recréant"

je t'invite à regarder ici : ClasseFileSearch
Tout est expliqué.


Cordialement,
Jordane,
______________________________________________________
Règles du forum à lire avant de poster une question : ICI

c148270 · Answer

Désolé je me suis trompé de lien, ce n'était pas une astuce.
jordane45 te fourni celui que je voulais mettre

bonne journée

fabconbike · Answer

Ok merci mais le probleme c'est que ca marche que dans Excell elle n'apparait pas dans Access !!!???

fabconbike · Answer

Quelqu'un aurait l'aimable gentillesse de me dire ce que donnerait mon code ci-dessus avec la fonction DIR ??
Merci

bigfish_le vrai · Answer

Salut,

ici 2 solutions dont une qui est exactement la proposition de Renfield.

A+

fabconbike · Answer

hum ca me parait super compliqué je croi que j'ai pas finit de galéré...
Il faut deja que je dechiffre ce code.

Le truc c'est que je veut juste importer un fichier texte dans une table existante automatiquement ce fichier text est ajouter toutes les 15 minutes par FTP.

c148270 · Answer

Bonjour
Voici un exemple avec dir

Function test1()
    Dim FileName As String
    Dim Path As String
    Dim Filter As String
    Path = "d:\manoeuvre\*.mdb"
    FileName = Dir(Path)
    While FileName <> ""
        FileName = Dir
    Wend
End Function

bonne journée

Filesearch ne fonctionne plus

11 réponses

Votre réponse

Discussions similaires