Bonjour,

Je souhaite ouvrir un fichier dont le nom change en partie tous les mois.

J'ai donc commencé à écrire le code suivant:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub Test()
 
    Dim Classeur As String
 
    Classeur = "Données complémentaires 2016-03"
 
    Workbooks.Open Filename:=ThisWorkbook.Path & "\Données complémentaires*.xls"
 
    Windows(Classeur).Activate
 
 
End Sub
Avec ce code, j'arrive à ouvrir le fichier "Données complémentaires 2016-03". La partie qui change tous les mois, c'est "2016-03".

Sachant qu'il n'existe qu'un seul fichier dans le dossier qui commence comme ça, j'ai donc remplacé cette partie là par "*", soit le code suivant:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub Test()
 
    Dim Classeur As String
 
    Classeur = "Données complémentaires*"
 
    Workbooks.Open Filename:=ThisWorkbook.Path & "\Données complémentaires*.xls"
 
    Windows(Classeur).Activate
 
 
End Sub
Et ça me donne une erreur d'exécution 9, l'indice n'appartient pas à la sélection

Je ne comprends pas mon erreur.

Merci par avance pour votre aide!