Bonjour,

Je suis pour le moment novice dans le VBA,
Mais je cherches à réaliser une manipulation bien précise.

Le but:

Excel A contenant la Macro, Excel B Un classeur avec des informations que je dois récupérer.

Problème :

Aucun chemin d'accès possible . ( Plusieurs PC et Serveurs différents)
Nom du fichier Excel commençant de la même façon Exemple (TI-0000-0001,TI-0000-0002,TI-0000-0003)
Extension différente (xls ; xlsx : xlsm)

Où j'en suis:

Les deux fichiers seront dans le même répertoire pour résoudre au problème du chemin d'accès avec ceci:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
ChDir ThisWorkbook.Path
Workbooks.Open(ThisWorkbook.Path & "\TI-00000-0001.xls*")
Résoudre le problème de l'extension :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
ChDir ThisWorkbook.Path
        On Error Resume Next
        Set classeur_rmf = Workbooks.Open(ThisWorkbook.Path & "\TI-00000-0001.xls*")
 
        If Not classeur_rmf Is Nothing Then 'Control si le classeur a été ouvert précèdement
 
        Set classeur_rmf = Workbooks.Open(ThisWorkbook.Path & "\TI-00000-0001.xlsx")
 
        If Not classeur_rmf Is Nothing Then 'Control si le classeur a été ouvert précèdement
 
        Set classeur_rmf = Workbooks.Open(ThisWorkbook.Path & "\TI-00000-0001.xlsm")
 
        End If
        End If
Mais je n'arrive pas à trouver le moyen ouvrir mon Fichier avec ce genre de solution:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Workbooks.Open(ThisWorkbook.Path & "\TI-" & "*.xlsm"


Voilà où j'en suis actuellement, donc j'ai besoin de votre aide pour ouvrir un Excel commençant par TI qui ce trouve dans le même répertoire que ma macro.