bonjour,
j'ai une inputbox qui me permet de cahrger une base de données Dim reponse As String
chemin = ThisWorkbook.Path & "\"
reponse = InputBox("Veuillez entrer le nom de la base :", "Nom de la base", "REF_AUTO_2007")
If reponse = "" Then
Exit Sub
Else
If ExisteFichier(chemin & reponse & ".xls") = False Then
MsgBox ("votre fichier ne porte pas ce nom ou est situé dans le mauvais répertoire")
Else
Application.ScreenUpdating = False
Workbooks.Open Filename:=(chemin & reponse & ".xls")
End If
End If
j'ai géré l'appui sur le bouton annuler grâce au fait qu'il retourne une chaine vide (If reponse = "" ) mais je voudrais savoir comment je peux gérer le fait que l'opérateur appuie sur OK sans rentrer de nom a l'heure actuelle s'il ne rentre rien et appuie sur ok ca quitte l'inputbox mais je voudrais que ca lui mette une messagbox du genre "entrez un nom"
merci
j'ai une inputbox qui me permet de cahrger une base de données Dim reponse As String
chemin = ThisWorkbook.Path & "\"
reponse = InputBox("Veuillez entrer le nom de la base :", "Nom de la base", "REF_AUTO_2007")
If reponse = "" Then
Exit Sub
Else
If ExisteFichier(chemin & reponse & ".xls") = False Then
MsgBox ("votre fichier ne porte pas ce nom ou est situé dans le mauvais répertoire")
Else
Application.ScreenUpdating = False
Workbooks.Open Filename:=(chemin & reponse & ".xls")
End If
End If
j'ai géré l'appui sur le bouton annuler grâce au fait qu'il retourne une chaine vide (If reponse = "" ) mais je voudrais savoir comment je peux gérer le fait que l'opérateur appuie sur OK sans rentrer de nom a l'heure actuelle s'il ne rentre rien et appuie sur ok ca quitte l'inputbox mais je voudrais que ca lui mette une messagbox du genre "entrez un nom"
merci