Discussion :

[sophie123]

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 :

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

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 :

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

Sheets("*Export").Select

.

Merci d'avance pour votre aide
Sophie

[unparia]

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.

[sophie123]

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

[unparia]

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 :

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

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.

[unparia]

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 :

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

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 .

[Pierre Fauconnier]

[...]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...

[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 ?

[sophie123]

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

[Pierre Fauconnier]

Salut.

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

Code :

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

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 :

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

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