code vba : sélectionner une feuille commence par 4 caractères communs

Le
Jimmy
Bonjour à tous,

J'aurais besoin de sélectionner une feuille dans 20 classeurs différemment
dont le nom commence automatiquement par les 4 mêmes caractères.
Pour l'instant, j'utilise sheets("FEUIxx").xls. Le souci est que je ne
connais pas les deux caractères x. Cela peut-être 2 lettres ou 2 chiffres.
Existe-t-il un code permettant d'insérer des caractères génériques sur une
sélection ?
Exemple : nous utilisons l'étoile * pour remplacer tous les fichiers dans
*.*. Pourrions nous écrire quelque chose approchant de
sheets("FEUI*").select ?

Merci d'avance,
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4810551
Bon jour,

Sub essai()
If NomFeuille("toto") <> "" Then
Sheets(NomFeuille("toto")).Select
Else
MsgBox "nom trouvé"
End If
End Sub

Function NomFeuille(generique)
NomFeuille = ""
For i = 1 To Sheets.Count
If Sheets(i).Name Like generique & "*" Then NomFeuille =
Sheets(i).Name
Next i
End Function

http://cjoint.com/?ihkPRxvqV6

JB

On 7 août, 10:28, "Jimmy"
Bonjour à tous,

J'aurais besoin de sélectionner une feuille dans 20 classeurs différe mment
dont le nom commence automatiquement par les 4 mêmes caractères.
Pour l'instant, j'utilise sheets("FEUIxx").xls. Le souci est que je ne
connais pas les deux caractères x. Cela peut-être 2 lettres ou 2 chif fres.
Existe-t-il un code permettant d'insérer des caractères générique s sur une
sélection ?
Exemple : nous utilisons l'étoile * pour remplacer tous les fichiers da ns
*.*. Pourrions nous écrire quelque chose approchant de
sheets("FEUI*").select ?

Merci d'avance,


Publicité
Poster une réponse
Anonyme