Visual Basic

Réponse acceptée !
Workbooks.Open Filename:="C:\Documents and Settings\Data Base\File1"
Et si le nom du fichier est dans un textbox tu fait :
Workbooks.Open Filename:="C:\Documents and Settings\Data Base\" & textbox1.text
tu peut tester si ton fichier exist avec
lcase(dir("C:\Documents and Settings\Data Base\" & textbox1.text,vbNormal)) = lcase(textbox1.text)
Remarque : le lcase est uniquement util si le fichier s'exrit dans le disk "File1" et que dans ton textbox tu à "file1" alors les chaine de carac ne sont pas egale (donc ton test est faux) avec lcase tu met tout les carac en minuscule donc pas de problème

De plus dir(...) renvoie un nom de fichier avec l'extention donc ajoute le si il n'est pas dans ton textbox (tu peut tester si ".xls" est présant dans le textbox avec la fonction instr(...) qui renvoi 0 si la chaine n'existe pas et sa position si elle existe (ce qui peut même te permétre de tester si il est bien à la fin de ton text avec len(...) qui te donnée la longeur de la chaine))

Bon avec ça tu dois t'en sortir

D'oh! Nuts!
Mmmmm...
 DONUTS

Réponse acceptée !
test si le ".xls" est présent avant le l'ajouter
if not lcase(right(chaine,4)) = ".xls" then chaine = chaine & ".xls" 'Le lcase met le text en minuscul pour que si l'utilistaeur exrit ".XLS" se soit reconue.
Voila cette ligne test et ajoute le ".xls" si il est absent (attention si on met dans chaine "test.sls", donc une erreur, ".sls" aulieu de ".xls" , alors la ligne ajoute ".xls" ce qui donne "test.sls.xls" tu peut si non tester si une extention, en 3 lettre est présente et quel extension c'est)
if left(right(chaine,4),1) = "." then
    if lcase(right(chaine,3)) = "xls"
    else
       msgbox ("Erreur de saisie")
    end if
else
    chaine = chaine & ".xls"
endif

Bon, alors avec ça tu dois t'en sortire.

D'oh! Nuts!
Mmmmm...
 DONUTS