Discussion :

[manu789]

Bonjour,

Mon sub fonctionne bien, il me restitue tous les fichiers du répertoire.

Mais je souhaite n'avoir que ceux contenant "journalier". J'utilise donc l'astérisque "*", mais là il ne me restitue plus rien.
A moins que ce ne soit mon
If ....Then
End if
qui ne va pas.

Est ce que qqu'un à une piste ?

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
 
Sub AfficherListeDossiers()
    Dim fs, f, f1, fc, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder("K:\Mondossier")
    Set fc = f.Files
 
        For Each f1 In fc
        If f1.Name = ("journalier*.txt") Then
            s = s & f1.Name
            s = s & vbCrLf
        End If
        Next
 
        MsgBox s
 
End Sub

Merci, bonsoir.

[ucfoutu]

Bonsoir,

encore ce lourdaud de FSO pour ce que VB fait parfaitement !!!

Code :

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

1
2
3
4
5
6
7
8
Private Sub Command1_Click()
 filtre = "journalier*.txt"
 fichiers = Dir("K:\Mondossier\" & filtre)
 Do While fichiers <> ""
  MsgBox fichiers
  fichiers = Dir
 Loop
End Sub

Enfin.... fais comme tu veux ...

[manu789]

Bonsoir,
En fait les fichiers sont générer depuis une autre application.
Une solution simple serait de créer un répertoire dédié ne contenant que les fichiers que je souhaite traiter.

Mais je préfère chercher à utiliser l'astérisque

Merci

[ucfoutu]

Mais je l'utilise, cet * !!! (dans filtre) ...

[manu789]

Bonsoir ucfoutu,
Merci de ta réponse, c'est vrai que ça à l'air simple,
je vais essayer.

Mais dans ce cas pourquoi ton astérisque fonctionne et pas le mien ?

A+
BN

[ucfoutu]

Je n'en sais rigoureusement rien pour une raison simple : on me pendra le jour où je me prostituerai avec cet FSO qui alourdit tout et rend les applications inutilement dépendantes !!!

[kiki29]

Peut-être qqch comme

Code :

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

If f1.Name Like "journalier*.txt" Then

[manu789]

VBA FSO utilisation de l'asterisque avec LIKE
Bonjour,
Merci KIKI29, c'est bien ce qui me fallait.

Ma fonction affiche maintenant tous les fichiers *export_ind_journalier* d'un répertoire donné.
Puis les importe dans des feuilles ( 1 par fichier )
Le délimiteur utilisé est le TAB


Merci encore à tous ceux qui participent.

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
Sub AfficherListeDossiers()
    Dim fs, f, f1, fc, s
    Dim strCheminRep As String, strCheminFich As String
    strCheminRep = "nom dossier"
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(strCheminRep)
    Set fc = f.Files
    'Pour ImportFichierTxt
    Dim wbk As Workbook
 
    Set wbk = ActiveWorkbook
 
        For Each f1 In fc
        If f1.Name Like "*export_ind_journalier*.txt" Then
                'ImportFichierTxt
                strCheminFich = f1 
                'Parceque au début je pensait recréer le strCheminFich
                'MsgBox f1
                Workbooks.OpenText Filename:=strCheminFich,[/INDENT]Origin:=xlWindows, StartRow:=1, _
                DataType:=xlDelimited, TextQualifier:= _
                xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True,[/INDENT]Semicolon:=True, _
                Comma:=False, Space:=False, Other:=False,[/INDENT]FieldInfo:=Array(Array(1, 1), _
                Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1),[/INDENT]Array(7, 1), _
                Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1))
                ActiveSheet.Select
                ActiveSheet.Move Before:=wbk.Sheets(1)
            s = s & f1.Name
            s = s & vbCrLf
        End If
        'MsgBox f1
        Next
 
        MsgBox s
 
End Sub