Appeler une feuille avec un nom variable

Bonjour à tous,

Je cherche à appeler une feuille dont le nom varie en fonction d'une date d'export.
Je m'explique :

le nom de ma feuille s'appelle AAAA_MM_JJ_Export.

Mon fichier d'automatisation fait appel à cette feuille mais je dois modifier ma macro manuellement

Code:

---

Sheets("AAAA_MM_JJ_Export").Select

---

.

est-il possible de l'appeler de cette manière ? afin de ne plus avoir à la modifier (sachant que ce n'est pas forcément la date du jour)

Code:

---

Sheets("*Export").Select

---

.

Merci d'avance pour votre aide
Sophie

Bonjour
Non. Un nom d'élément d"une collection ne saurait utiliser des caractères génériques.
Il te faut donc :
- boucler sur tes feuilles (collection Worksheets)
- utiliser l'opérateur like (qui, lui, utilise les caractères génériques) sur la propriété .Name de chaque élément de ta boucle.

Bonjour et merci pour ta réponse.
Même si je comprend pas tout (je suis débutante dans VBA)

Aurai tu un exemple pour que je comprenne un peu plus la démarche.
Désolée de cette requête, je sais que ce doit être un peu lourd pour toi :?

Merci bcp
Sophie

Salut.

Voici une fonction qui renvoie un objet pointant vers la première feuille qui correspond à la condition.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Function getFirstSheetWithNameLikeThis(Pattern As String) As Object Dim sh As Object Dim Found As Boolean Dim Counter As Long   Counter = 1 Do While Counter <= Sheets.Count And Not Found If Sheets(Counter).Name Like Pattern Then Set getFirstSheetWithNameLikeThis = Sheets(Counter) Found = True End If Counter = Counter + 1 Loop End Function

---

Tu peux l'utiliser de la manière suivante, par exemple

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Test() Dim sh As Object   Set sh = getFirstSheetWithNameLikeThis("*export") If Not sh Is Nothing Then sh.Activate Else MsgBox "Feuille non trouvée", vbExclamation End If End Sub

---

Désolé mais, vois-tu, je n'aide que ceux qui s'aident.
Alors voilà comment je vais le faire :
- On parcourt la collection des feuilles de calcul ainsi :

Code:

---

1 2 3 4

dim ws as worksheet for each ws in worksheets .... tes instructions next

---

- Chaque objet ws ayant été typé en worksheet, il a une propriété Name (le nom de la feuille ws en cours dans la boucle
- l'utilisation de l'opérateur Like est à faire sur ce nom pour voir s'il correspond à ce que tu cherche. La lecture de la rubrique Like, opérateur de ton aide VBA interne t'apprendra comment l'utiliser. Elle est on ne peut plus claire et est de surcroît accompagnée d'exemples.
Je n'irai pas plus loin tant que je ne verrai pas le code au moins tenté sur ces bases simples.

Désolé mais, vois-tu, je n'aide que ceux qui s'aident.
Alors voilà comment je vais le faire :
- On parcourt la collection des feuilles de calcul ainsi :

Code:

---

1 2 3 4

dim ws as worksheet for each ws in worksheets .... tes instructions next

---

- Chaque objet ws ayant été typé en worksheet, il a une propriété Name (le nom de la feuille ws en cours dans la boucle
- l'utilisation de l'opérateur Like est à faire sur ce nom pour voir s'il correspond à ce que tu cherche. La lecture de la rubrique Like, opérateur de ton aide VBA interne t'apprendra comment l'utiliser. Elle est on ne peut plus claire et est de surcroît accompagnée d'exemples.
Je n'irai pas plus loin tant que je ne verrai pas le code au moins tenté sur ces bases simples.

PS : bonjour Pierre. Je l'aurais volontiers laissé mettre le pied à l'étrier .;)

Citation:

---

Envoyé par unparia

[...]PS : bonjour Pierre. Je l'aurais volontiers laissé mettre le pied à l'étrier .;)

---

Salut Jacques: par déformation professionnelle, je suis un adepte de l'apprentissage par l'exemple... ;)

C'est ce que je vois, Pierre.
Ceci étant dit : pourquoi diantre nommer ainsi une feuille puisque tu la recherches en ignorant totalement la partie de son nom (la date) autre que la sous-chaîne "Export" et qu'elle est censée être unique ?
Tu nous l'expliques, Sophie ?

Désolé pour ce conflit d'apprentissage...

Mais je dois admettre que je comprend mieux avec un exemple :)
De toute façon je ne suis pas du genre à recopier bêtement sans comprendre. Je suis prête à me torturer le cerveau pendant des heures pour comprendre un petit bout de code :)

En tous cas un grand merci à vous deux pour votre aide
Bonne fin de journée à vous 2
Sophie

Citation:

---

Envoyé par unparia

C'est ce que je vois, Pierre.
Ceci étant dit : pourquoi diantre nommer ainsi une feuille puisque tu la recherches en ignorant totalement la partie de son nom (la date) autre que la sous-chaîne "Export" et qu'elle est censée être unique ?
Tu nous l'expliques, Sophie ?

---

La remarque de Jacques me fait penser que tu pourrais peut-être utiliser le codename (le nom VBA) de la feuille, qui est indépendant du name (nom Excel de l'onglet). Le codename n'étant pas modifié lors de la modification du nom de l'onglet, tu pourrais te passer de rechercher la feuille et travailler directement avec l'objet VBA correspondant. Le codename est la valeur qui apparaît dans la propriété (name) de la feuille de propriété (il apparaît sans les () dans l'arborescence du projet... :roll:)

Pièce jointe 314522

Tout-à-fait, Pierre
Elle pourrait d'ailleurs se contenter de son nom (Export ou Encours, mais sans le changer).
Je devine bien que la raison de son nommage est l'identification de la dernière date de mise à jour, mais dans un tel cas, il serait mille fois plus judicieux de mettre cette date tout simplement dans une cellule de sa feuille.