Caractère de masque pour nom de feuille dans une macro

[Chris6767]

Bonjour,

Dans une macro, je souhaite activer une feuille dans une partie du nom est composée d'une date et donc variable exemple : SuperMad-20130306.xls

j'utilise l'instruction : windows("SuperMad-20130306.xls").activate

Je prévois l'ouverture manuelle du fichier SuperMad-aaaammjj ( a la bonne date puisque manuelle) puis la macro doit pouvoir activer cette feuille quelque soit la date.
Je pensais donc à un caractère de masque pour les 8 caractères de la date mais lequel ?

J'ai essayé de remplacé la date par le caractère * mais cela ne fonctionne pas.

Merci pour votre aide.

 

[Guest]

Re : Caractère de masque pour nom de feuille dans une macro

bonjour,

Si j'ai bien compris, quelque chose comme ceci:

Sub SuperMad()
    Dim wb As Workbook
    For Each wb In Workbooks
        If wb.Name Like "SuperMad-*.xls" Then
            wb.Activate
            Exit For
        End If
    Next
End Sub

A+

 

[Chris6767]

Re : Caractère de masque pour nom de feuille dans une macro

Oui, sauf que cela n'a pas besoin d'être une boucle.
Je reçois un fichier SuperMad par semaine, donc aujourd'hui j'ouvre SuperMad-20130322 et je veux que ma macro active ce fichier.
La semaine prochaine j'ouvre le fichier SuperMad-20130329 et la macro devra ouvrir ce fichier là.

Et j'ai déjà essayé * mais pas dans une instrauction if.

 

[Guest]

Re : Caractère de masque pour nom de feuille dans une macro

Re,

Si veux activer celui du 29 mars, le 29 mars:
Workbook("SuperMad-" & Format(Date,"yyyymmdd") & ".xls").Activate

A supposer qu'il soit ouvert!

A+

 

[Chris6767]

Re : Caractère de masque pour nom de feuille dans une macro

Oui j'ouvre le fichier du 29 mars mauellement puis j'ouvre un fichier modèle qui contient ma macro.
Cette dernière active le fichier SuperMad ouvert pour y piocher des infos afin de construire une nouveau tableau.
J’essaierai ton instruction la semaine prochaine et te tiendrai au courant.

Merci

Bon WE

 

[Chris6767]

Re : Caractère de masque pour nom de feuille dans une macro

Mais je n'ouvre pas le fichier du 29 mars le 29 mars; cela peut se faire plusieurs jours après.

 

[Guest]

Re : Caractère de masque pour nom de feuille dans une macro

Bonjour!!!!!!

Seulement je ne peux savoir quand ni comment tu comptes ouvrir ton fichier. Si tu mets la date du fichier dans une cellule (ex:A1) :

Workbook("SuperMad-" & Format(Range("A1"),"yyyymmdd") & ".xls").Activate

Après les vérifications d'usage sur le contenu de A1:

If IsDate(Range("A1")) Then
    Workbook("SuperMad-" & Format(Range("A1"),"yyyymmdd") & ".xls").Activate

End if

A+