Test sur workbook dont nom complet inconnu

Bonjour,

je cherche un code qui me permet de tester si une valeur est présente dans un classeur dont le début du nom est commun à tous les utilisateurs mais pas la fin du nom.

If Me.ComboBox1.Value <> Workbooks("Planning*").Worksheets("Récap").Range("B2") Then
MsgBox ("L'établissement choisit ne correspond pas au planning ouvert.")
Exit Sub
End If

Pour cela, j'utilise le caractère "*" après Planning (les classeurs se nomment "Planning X, Planning Y etc....") mais j'ai un message d'erreur 9. L'indice n'appartient pas à la sélection. Ce qui semblerait dire que le caractère générique "*" n'est pas reconnu comme tel.

J'ai essayé sous la forme ("Planning" & "*") mais le résultat est identique.

Y a t'il une solution à mon problème ?

Merci d'avance

Salut le forum

Avec une fonction personnalisé

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

Mytå

Salut Joshua et le forum

Les opérateurs arithmétiques ne reconnaissent pas les caractères génériques !

If not(Me.ComboBox1.Value like Workbooks("Planning*").Worksheets("Récap").Range("B2")) Then
MsgBox ("L'établissement choisit ne correspond pas au planning ouvert.")
Exit Sub
End If

devrait répondre à ton besoin

A+

Ce n'est pas tout a fait ce que je cherchais, mais j'ai pu l'adapter .

Un grand merci !