Discussion :

[cocole27]

Bonjour

J'ai dans un répertoire des fichiers txt qui sont déposés chaque jour .
J'ai créé une macro pour ouvrir le fichier txt le plus récent .

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
Sub test()
'
'ouverture du fichier le plus recent
 Dim Fic As Object, MemFic As String, VPath As String
 Dim Fso
 Dim SourceFolder
 ' Initialisation des variables
 MemFic = ""
 VPath = "C:\test\"
 ' Définit le dossier à traiter
 Set Fso = CreateObject("Scripting.FileSystemObject")
 Set SourceFolder = Fso.GetFolder(VPath)
 'Liste des fichiers du dossier Sélectionné
 For Each Fic In SourceFolder.Files
 ' Mémorise le dernier fichier selon l'ordre alphanumérique
 If Fic > MemFic Then MemFic = Fic
 Next Fic
 Workbooks.Open MemFic
 
End Sub

Elle fonctionne nickel .
Cependant dans ce répertoire en question, j'ai plusieurs fichiers texte avec des noms différents et je voudrais uniquement que la macro traite uniquement les fichiers commençant par TOTO.T02.T01.XXXXXXXXXX.txt
( XXXXXXXXXX étant sous la forme AAMMJJHHMM)
Toute aide serait la bien bienvenue.
Merci

[Marc-L]

Bonjour,

merci de baliser le code via l'icône # dédiée !

Sinon consulter l'aide VBA de la fonction Dir et son exemple …

_________________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …

[Menhir]

Je n'ai pas testé donc il pourrait y avoir du débugage à faire.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
    Dim Fic As String
    Dim MemFic As String
    Dim VPath As String
 
    MemFic = ""
    VPath = "C:\test\"
    Fic = Dir(VPath & "TOTO.T02.T01.*.txt")
    While Fic <> ""
        If Fic > MemFic Then MemFic = Fic
        Fic = Dir()
    Wend
    Workbooks.Open(VPath & MemFic)
End Sub

https://msdn.microsoft.com/fr-fr/lib.../gg278779.aspx

[kiki29]

Salut, voir l'aide en ligne sur Like ou Manipuler les chaînes de caractères en VB6 et VBA Excel.

P.-S. : Balise ton code

[cocole27]

Merci Menhir,le code fonctionne parfaitement .