Problème imputbox en boucle

[alfazoulou]

Bonjour le forum,
mon problème est le suivant:
Je voudrais faire utiliser un imputbox tant que la valeur saisie ne correspond pas au nom d'un fichier archivé.
Dans mon exemple ci dessous, l'imputbox sert à changer le nom du fichier parce que celui ci a déja fait l'objet d'une vérification antérieure, donc appel de l'imputbox pour changer le nom.
mais comment faire pour que celui ci ne se ferme pas tant que le fichier existe.


Private Sub CommandButton1_Click()
[nom_devis] = [nom_archive_devis]
[nom_devis] = TextBox1.Value

Dim Nom As String
Nom = Range("nom_archive_devis").Value
Dim Chr As String 'déclare la variable
Chr = [nom_archive_devis]
Dim toto As String 'déclare la variable
toto = [année_date]
Dim Nomfichier As String
Nomfichier = [nom_devis]

Application.ScreenUpdating = False

Vérification de l'existance du fichier dans le répertoire
Dim fso As Object, x As Boolean
Set fso = CreateObject("Scripting.FileSystemObject")
x = fso.FileExists("F:\Maconnerie générale\devis factures\devis\" & toto & "\" & Nomfichier & ".xls")
If x = False Then

Me.Hide

Else

Si le fichier existe déjà

Dim ValDef As String

ValDef = [nom_archive_devis].Value

Dim Message, Title, Default, MyValue
Message = "Ce fichier existe déjà, veuillez saisir un autre nom"
Title = "Nom de fichier"
Default = ValDef
MyValue = InputBox(Message, Title, Default)
[nom_devis].Value = MyValue

End If

End Sub

Merci d'avance