Ouvrir fichier Excel avec une partie de son nom
Bonjour à tous,
J'ai un petit problème de macro alors je viens vous demander de l'aide dans ma mission :)
J'utilisais auparavant la macro suivante :
Code:
1
2
3
4
5
| NomFichier = "\" & SsDossier & "\TYPE " & Nom & " " & DateAudit & ".xlsx"
FichierTest = Dir(DossierJour & NomFichier) <> ""
If FichierTest = True Then
Workbooks.Open (DossierJour & NomFichier) |
Grâce à ce code je checkais l'existence du fichier et je l'ouvrais si ce dernier était présent dans mon sous dossier.
On me demande d'adapter cette macro car il se peut que la variable date audit soit différente entre les différents sous dossiers.
J'avais donc trouvé sur le net le code suivant qui m'avait l'air simple :
Code:
1
2
3
4
5
6
7
8
|
With Application.FileSearch
.LookIn = DossierJour & "\" & SsDossier
.Filename = "\TYPE " & Nom
If .Execute > 0 Then 'si au moins un fichier est trouvé
NomFichier = .FoundFiles(1) 'définit le nom complet du fichier trouvé
End If
End With |
Sur le papier ça m'a l'air juste sauf que ô surprise je suis sur 2010 et Microsoft a eu la bonne idée de faire disparaitre l'objet FileSearch ... :aie:
J'ai vu l'option ClasseFileSearch mais comme le fichier est utilisé par beaucoup d'utilisateur dans des locaux différents, j'aimerais trouvé une autre solution...
Pour récapituler j'aimerais un code qui me permet de savoir si un fichier commençant par un certain nom existe dans le dossier. Et si oui, ouvrir ce dernier.
j'ai essayé avec Dir() également mais, sauf si je m'y suis mal pris, je n'ai pas réussi à récupérer le nom du fichier.
Merci d'avance,
