Format du Texte InputBox

Bonjour a tous

J’utilise ce module pour inserer un lien hypertexte dans une cellule, ce dernier marche parfaitement. Sauf que certain utilisateurs mettent n'importe quoi lors de la saisie du nom du fichier.

Sub LiensH()

Fichier = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")

If Fichier = 0 Then Exit Sub

nom = Application.InputBox("Entrez le nom qui sera affiché", "DONNER UN NOM AU LIEN")

If nom = "" Or nom = 0 Then

MsgBox "Vous devez saisir un nom pour le lien", vbCritical + vbOKOnly

Exit Sub

End If

ActiveCell.Formula = "=HYPERLINK(""" & Fichier & """,""" & nom & """)"

'ActiveCell.Offset(, -1) = Now

End Sub

Est-il possible d'exiger un format spécifique lors de l'insertion par l’utilisateur du nom du fichier comme suit :

FSP@@@@ OT@@@ XXX_@@@ ( X n'importe quelle lettre et @ n'importe quel numéro)

Merci.

Bonsoir,

Ci-joint une proposition avec une aide pour la saisie.

Bouben

Bonjour Bouben

C'est exactement ce que je voulais merci infiniment.

Cordialement.