RECHERCHE DE FICHIER

[Francis]

Bonjour le forum,

J'ai un petit soucis qui est le suivant:

J'aimerai savoir si un fichier du type "mon_fihier"&*&".xls" ie commençant par une chaine de caractères connue suivi d'une chaine inconnue existe. Il peut y en avoir plusieurs étant donné '*'. Le premier trouvé est suffisant, puis récupérer son nom+path dans la variable FIA.

merci de votre coup de main.

 

[Robert]

Salut Francis, salut le forum

Essaie cette macro :

Public Sub cherch()
Dim FIA As String 'déclare la variable FIA
'recherche de fichiers
With Application.FileSearch
.NewSearch 'nouvelle recherche
.LookIn = "C:\" 'emplacement de recherche
.SearchSubFolders = True 'dans tous les sous-dossiers
.Filename = "mon_fichier*.xls" 'nom du fichier cherché
If .Execute > 0 Then 'condition : si au moins un fichier est trouvé
FIA = .FoundFiles(1) 'définit la variable FIA (nom complet du premier fichier trouvé)
End If 'fin condition
End With 'fin recherche des fichiers
MsgBox FIA 'juste pour voir à supprimer
End Sub

À plus,

Robert

 

[Francis]

Bonsoir Robert et le forum,

je te remercie pour ta solution. Désolé de ne pas l'avoir fait plus tôt, mais je ne suis pas venu sur le forum du WE.

@+