Ouvrir une feuille avec des caractères jokers

[Phillip]

Bonjour,

C'est encore moi...

J'ai un fichier qui contient une feuilles de données dont le nom est en partie fixe et en partie variable, genre toto1, toto2....et une feuille de stats. J'ai un certain nombre de lignes de codes qui vont chercher des données dans ma feuille de données et fait des calculs sur ma feuille de stats.

Je voudrais donc que ma macro aille activer le fichier de données et ne "tourne" pas sur la feuille de stats quelle que soit la feuille active à ce moment là (stats ou données)

En bref, je voudrais donc que ma macro commence par activer feuille toto + caractère joker...

J'ai écrit :

Sheets("toto??").Activate

mais cela ne marche pas...

Merci de vos lumières, car je ne suis pas convaincu de ce que j'ai trouvé sur le forum à ce sujet, en tous cas, cela ne correspond pas à mes besoins...

 

[mromain]

Re : Ouvrir une feuille avec des caractères jokers

bonjour Phillip

voici une macro qui récupère la première feuille commençant par "toto".
si on enlève la ligne en gras, elle récupère la dernière feuille commençant par "toto"

Sub test()
Dim laFeuille As Worksheet, tmpFeuille As Worksheet

For Each tmpFeuille In ThisWorkbook.Sheets
    If tmpFeuille.Name Like "toto*" Then Set laFeuille = tmpFeuille
    [B]If Not laFeuille Is Nothing Then Exit For[/B]
Next tmpFeuille

End Sub

a+

 

[Phillip]

Re : Ouvrir une feuille avec des caractères jokers

Merci !!

Ca marche du tonnerre !!

Bravo !