Discussion :

[bombjack91]

Bonsoir,

Par le passé j'ai trouvé grâce à ce forum une solution pour rechercher un fichier txt dans un dossier grace à l'objet "filesearch", puis copier son contenu dans un fichier "XX.csv" tampon (toujours le même nom c'était plus simple), ensuite importer le contenu de ce nouveau fichier dans une table grace à une macro de transfert de données puis copier le fichier original dans différent dossiers. J'étais sous ACCESS 2003 et tous fonctionnait bien.
Je suis contraint de passé sous ACCESS 2010 et mon importation plante car apperemment l'objet "Application.FileSearch" n'est plus reconnu dans ACCESS 2010. Différente recherche sur le forum mon confirmées ce problème.
Je voudrais savoir si qqn pourrait m'aider à modifier mon code pour que cela puisse perdurer sous ACCESS 2010.

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
Function CopyfichtextA()
'PART A
' recherche si il existe un fichier "*-A-*.csv" dans le Rep "TRANSFO"; si oui:
' copie le contenu du fichier "*-A-*.csv" dans le fichier "xx.csv"
 Dim sourcefile, DestinationFile
 
Set fs = Application.FileSearch
With fs
   .LookIn = "C:\MAGEA400M\TRANSFO"
   .Filename = "*-A-*.csv"
   If .Execute > 0 Then
    '   MsgBox "Il y a " & .FoundFiles.Count & _
          " fichier(s)."
    i = 1  ' MODIFICATION DE LA BOUCLE SUR "FOR" pour prendre une seul fichier à la fois
      ' For i = 1 To .FoundFiles.Count
          'MsgBox .FoundFiles(i)
        sourcefile = .FoundFiles(i)    ' Définit le nom du fichier source.
        MsgBox .FoundFiles(i)
        DestinationFile = "C:\MAGEA400M\TRANSFO\xx.csv"    ' Définit le nom du fichier cible.
 
        FileCopy sourcefile, DestinationFile        ' Copie le fichier source dans le fichier cible.
      If Mid(sourcefile, 34, 3) = "A-1" Then
        MkDir "C:\MAGEA400M\ARCHIVES PARTS\1- PARTS\" & Mid(sourcefile, 21, 12)
        Destinationfile2 = "C:\MAGEA400M\ARCHIVES PARTS\1- PARTS" & Mid(sourcefile, 21, 12) & Mid(sourcefile, 21)
       FileCopy sourcefile, Destinationfile2
       Else
       Destinationfile2 = "C:\MAGEA400M\ARCHIVES PARTS\1- PARTS" & Mid(sourcefile, 21, 12) & Mid(sourcefile, 21)
       FileCopy sourcefile, Destinationfile2
       End If
 
       MsgBox "File imported and transfered in history folder"
 
       Kill sourcefile
 
    'INSERER L'IMPORTATION A EFFECTUER ICI
 
   ' Next i
    Else
        MsgBox "Il n'y a pas de fichier."
    End If
End With
 
End Function

[loufab]

Bonjour,

Il te faut embarquer le FSO (FileSystemObject). C'est la bibliothèque Microsoft Scripting Runtime.

http://msdn.microsoft.com/fr-fr/vbasic/bb892763.aspx

Ou la Faq/Tuto

Cordialement,

[bombjack91]

Merci,

J'ai activé cette bibliothèque. J'ai modifié mon code sur les bases de recherche d'une autre personne sur le forum. Je suis parvenu à obtenir un résultat un peu différent en activant la boite de dialogue Windows qui me permet de selectionner le fichier dont je veux traiter le contenu..
seul bémol dans l'histoire, mes soucis ne sont pas pour autant terminés, maintenant c'est le transfert de donné sous ACCESS 2003 qui ne veut plus fonctionner sous ACCESS 2010.
Pour résumer qqn aurait-til une solution pour faire une macro qui reprends l'ancien transfert de données?
Dans 2010 on a la possibilité d'enregistrer une façon d'importer des données mais comment reprendre dans une macro les paramètres enregitrer?
J'espère ne pas avoir été trop confu!!

[loufab]

Bonjour,

Si ton problème initial est clos, utilise le bouton Résolu.
Poste ton nouveau problème dans un nouveau fil.

Merci.

PS: c'est pas très clair sans pratiquer la cokkygomancie.