Conversion 2003 -> 2007

Version imprimable

Bonjour a tous,

Je viens a vous desepérement car ca fait plus d'une semaine que j'essay de convertir ce code en 2007 car ma fonction "Application.FileSearch" ne fonctionne plus sous 2007...
Il y a bien une solution sous excell pour rajouter cette fonction mais ca ne marche pas sous access.

Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Sub import() 
 
       Set fs = Application.FileSearch   ' NE FONCTIONNE PLUS 
 
    With fs 
 
        .LookIn = "C:\mon dossier" 
        .filename = "*.TXT"                                 ' JE RECUPERE MON FICHIER TEXT TOUTE LES 15 MIN IMPORT D'UN FTP 
 
        If .Execute(SortBy:=msoSortbyFileName, _ 
            SortOrder:=msoSortOrderAscending) > 0 Then 
 
                For i = 1 To .Foundfiles.Count 
                FileCopy .Foundfiles(i), "C:\mon dossier save" & Right(.Foundfiles(i), (Len(.Foundfiles(i)) - InStrRev(.Foundfiles(i), "\" )))     ' SAVE DES FICHIERS 
                DoCmd.TransferText acImportDelim, "Spécification export ORDER", "FICHIER ORDER", .Foundfiles(i), False, ""                     ' IMPORT DANS MA TABLE SUIVANT UN SP2CIFICATION D'IMPORTATION 
                Kill (.Foundfiles(i)) 
 
         Next i 
             Else 
                 End If 
End With 
End Sub

MERCI DE VOTRE AIDE CAR LA JE c'est plus quoi faire !!!!!

j'ai bien essayé avec un dir mais j'arrive pas a l'importer dans ma table existante " FICHIER ORDER"

MERCI MERCI D'avance

C'est documenté quelque part chez Microsoft que l'objet FileSearch n'existe plus à partir de la version 2007.

J'utilise depuis :
Code:

1 2 3 4 5 6 7 8 9 Public Function ExisteFichier(ByVal strFichier, strChemin As String) As Boolean Dim fs As FileSystemObject Set fs = CreateObject("Scripting.FileSystemObject") ExisteFichier = fs.FileExists(strChemin & strFichier) Set fs = Nothing End Function
Peut-être ça aidera,

Stefan

04/10/2010, 13h25
fabiencer84

Merci beaucoup mais le probléme c'est que je connais pas beaucoup le code (c'est pas moi qui a crée la fonction du depart). donc pas evident pour moi de convertir tout ca.

J'ai du mal tout de même a comprendre ton code comment ca fonctionne? quel est le resultat? je vois pas de nom de table pour importer?

je suis vraiment pomé dans tout ca:calim2:
05/10/2010, 08h13
Sierra

La fonction ne te permet que d'effectuer une partie de ton code, à savoir remplacer FileSearch par la vérification d'existence d'un fichier. Une fois ton fichier trouvé par la boucle, tu importes son contenu.

Stefan