Discussion :

[gangsterus]

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!

[antonysansh]

Bonjour gangsterus,

Si la méthode open fonctionne, il te suffit de stocker le classeur ouvert au moment de l'Open pour ensuite l'activer par son nom.

Code :

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

1
2
3
4
5
6
7
8
9
Sub Test()
 
    Dim Classeur As Workbook 
 
    Set Workbooks.Open Filename:=ThisWorkbook.Path & "\Données complémentaires*.xls"
 
    Windows(Classeur.Name).Activate 
 
End Sub

Par contre je suis étonné de voir fonctionner Workbooks.Open Filename:=ThisWorkbook.Path & "\Données complémentaires*.xls"
Et après un open le classeur n'est pas directement le classeur Actif ?

[halaster08]

Bonjour,

A supposé que tu ouvres le classeur daté de deux mois comme sur ton exemple:

Code :

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

Classeur = "Données complémentaires " & year(date) & "-0" month(date)-2

Attention par contre à gérer correctement le changement d'année et l'ajout du 0 ou pas devant le mois.

[gangsterus]

Bonjour,

Merci pour vos retours.
En fait, j'ai extrait une partie du code. La macro active plusieurs fichiers et c'est pour cette raison que j'ai besoin d'activer le fichier.
La macro sera utilisée par une autre personne, du coup, je préférerais une solution qui me permette de ne pas avoir à modifier l'année dans le code.

[AlainTech]

Bonjour,

Pas besoin d'activer un classeur pour travailler dessus.

Utilise la variable Classeur comme elle a été implémentée par antonysansh.