VBA - Caractères de remplacement dans une référence

Bonjour,

J'ai plusieurs fichiers ouvert à l'écran, dont chaque mois un fichier toujours nommé identiquement dans sa première partie, mais avec l'indication du mois, par exemple "Texte_fixe_Janvier", "Texte_fixe_Février", etc.

Dans l'un des autres fichiers ouverts, j'ai un code à l'aide duquel j'aimerais activer le fichier "Texte_fixe_xxxx" sans devoir préciser du fichier de quel mois il s'agit.

J'ai essayé des trucs du genre

Windows("Texte_fixe & * & ".xls").Activate

mais ça ne passe bien évidemment pas.

Avez-vous une idée afin de résoudre ce problème ?

S'il n'y a pas d'autres possibilités, je vais créer une variable afin de remplacer ce texte changeant, mais j'aurais voulu éviter cette solution.

A vous relire.

Bonjour

Essaye :

Sub test()
Dim Wkb As Workbook
For Each Wkb In Application.Workbooks
If Left(Wkb.Name, 10) = "Texte_Fixe" Then
Wkb.Activate
End If
Next Wkb
End Sub

Amicalement

Nad

Salut Nad,

Ca fonctionne du tonnerre

Merci beaucoup pour ce super coup-de-main.

Bonne fin de journée.