Probléme de syntaxe vba pour importation fichier avec condition nom du fichier

Version imprimable

Bonjour,

Je souhaite importer des fichiers txt automatiquement selon leur nom qui commence par une variable fournie par l'utilisateur.
Chaque jour, des fichiers txt sont créés avec dans leur nom la date du jour ex: G10220118205627.txt
Je passe donc par une Inputbox pour récuperer une valeur fournie par l'utilisateur, mais mon script ne reconnaît pas "MyValue" dans la condition.

Voici le 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
24
25
26
27
28
29
30
31
32
33
34
35
36
 
' importation auto de tous les fichiers text du répertoire guardians selon datej
Public Sub ImportDj()
    Dim FileName, FilePathName, Path, FileNamelist() As String
    Dim FileCount As Integer
    Dim Message, Title, Default, MyValue
 
    Message = "Début du nom de fichier"
    Title = "Variable extraction"
    Default = "G10220118"
    MyValue = InputBox(Message, Title, Default)
 
    DoCmd.SetWarnings False
    Path = "W:\FTP\RSFLERS\rapport_guardian2\"
    FileName = Dir(Path & "")
 
    While FileName <> "" And Right(FileName, 3) = "txt" And Left(FileName, 9) = "MyValue"
 
        FileCount = FileCount + 1
        ReDim Preserve FileNamelist(1 To FileCount)
        FileNamelist(FileCount) = FileName
        FileName = Dir()
 
    Wend
 
    If FileCount > 0 Then
        For FileCount = 1 To UBound(FileNamelist)
            FilePathName = Path & FileNamelist(FileCount)
            DoCmd.TransferText transferType:=acImportDelim, SpecificationName:="SpeImport", TableName:=FileNamelist(FileCount), FileName:=FilePathName, hasfieldnames:=False
 
 
        Next
    End If
    DoCmd.SetWarnings True
   MsgBox ("terminé !")
End Sub

Merci de votre aide.

26/01/2018, 12h38
Thierry_PALLIER

Bonjour kikinou61.

Il faut prendre en compte que ton FileName commence par Dir(Path & "")
Donc, pour rechercher ta valeur MyValue dans une chaine ,et non pas au début, il faut utiliser la fonction Mid.
D'autre part, tu as mis des guillemet , = "MyValue" ,donc Access va chercher le texte "MyValue", au lieu de sa valeur.

Code:

While FileName <> "" And Right(FileName, 3) = "txt" And Mid(FileName,31, 9) = MyValue

31 étant (sauf erreur) le nombre de lettres dans "W:\FTP\RSFLERS\rapport_guardian2\".
On peut aussi écrire:

Code:

While FileName <> "" And Right(FileName, 3) = "txt" And Mid(FileName,Len(Path)+1, 9) = MyValue

Cdlt
26/01/2018, 14h21
kikinou61

probleme-syntaxe-vba

Bonjour Thierry,

J'ai essayé tes deux solutions, même en mettant 32 si on compte le '\' avant le nom du fichier txt, mais rien.
Le script se termine sans erreur mais aucun résultat.
Du coup, j'ai aussi essayé de faire

Code:

While FileName <> "" And Right(FileName, 3) = "txt" And Left(Right(FileName, 19), 9) = MyValue

en prenant en compte un nom du fichier complet : G10220118224514.txt mais c'est toujours pareil.
26/01/2018, 16h44
Thierry_PALLIER

Il faudrait que tu expliques ce que tu veux faire exactement.
Est-ce en fonction de la valeur par défaut de l'inputbox , ou bien la valeur tapée (dans l'inputbox) ?
Ensuite :

Code:

Dim FileName as String, FilePathName as String, Path as String, FileNamelist() As String

Utilise le 2° code que je t'ais donné, donc Mid(FileName,Len(Path), 9)+1 = MyValue (le + 1 puisqu' on veut commencer au caractère qui suit Path),
place un point d'arret sur la ligne 17, et regarde les valeurs renvoyées Mid(FileName,31, 9).

Code:

While FileName <> "" And Right(FileName, 3) = "txt" And Mid(FileName,Len(Path)+1, 9) = MyValue

Cdlt
29/01/2018, 10h38
kikinou61

1 pièce(s) jointe(s)

Syntaxe du Critère

Bonjour Thierry,

Je veux utiliser la valeur saisie par l'utilisateur, Default étant un exemple de masque de saisie.
Voici ce que cela renvoie :

Bonjour kikinou61.

En fait ton code n'est pas bon, il reste toujours sur le 1° fichier ,sans repasser par FileName = Dir()

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
   Path = "W:\FTP\RSFLERS\rapport_guardian2\"
    FileName = Dir(Path & "*.txt")    'Dir(Path & "")
 
    Do While Len(FileName) > 0
        If Left(FileName, 15) Like MyValue Then
 
            FileCount = FileCount + 1
            ReDim Preserve FileNamelist(1 To FileCount)
            FileNamelist(FileCount) = FileName
        End If
        FileName = Dir()
 
    Loop  'Wend

15 ,c'est le nombre de caractère dans ton 2° post. Il doit correspondre au nbre de caractères tapés dans l'InputBox

Cdlt

29/01/2018, 17h11
kikinou61

Syntaxe ok

Thierry,

Super, cela fonctionne à merveille !
J'ai juste remplacé 15 par 9, car il faut importer tous les fichiers dont le nom commence par les 9 premiers caractères
fournis par l'InputBox. Il y a environ 100 fichiers par jour à traiter, que du bonheur.

Encore un grand merci.
29/01/2018, 17h51
Thierry_PALLIER

Super.

penses à voter !