Discussion :

[oscar.cesar]

bonjour le forum
actuellement j'en suis la

Code :

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

1
2
3
 
 
Fichier = Application.GetOpenFilename("Fichier txt (*.txt), *.txt")

mais mon objectif est de rechercher que les fichiers TXT qui commencent par SR
une aide pour concevoir la syntaxe dans Getopenfilename

merci

[Godzestla]

Bonjour,
ceci n'est pas permis par GETOPENFILENAME.

[Minick]

Salut,

Avec FileDialog c'est possible.

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
Option Explicit
 
Function Fichier() as String
    Dim fd As FileDialog
 
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        .Filters.Add "Fichiers texte (*.txt)", "*.txt"
        .InitialFileName = "SR*.txt"
    End With
 
    If fd.Show = -1 Then
        Fichier = fd.SelectedItems(1)
    End If
 
    Set fd = Nothing
End Function

++
Minick

[DeaD78]

Bonjour,

Personnellement, je suis assez fan de :

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 recherche()
 
    With Application.FileSearch
        .NewSearch
        .RefreshScopes
        .LookIn = "D:\TEST\" 'Tu mets le répertoire souhaité
        .Filename = "SR*.txt"
        .SearchSubFolders = True 'Cherche même dans les sous-répertoires !
        .Execute
        For Ctr = 1 To .FoundFiles.Count
            Workbooks.Open (.FoundFiles(Ctr)) 'Ca te les ouvre mais tu peux faire ce que tu veux ici (par exemple, afficher les résultats)  
        Next
    End With
End Sub