J'ai utilisé un source existant que j'ai trouvé sur le site. J'ai changé bien sûr le nom du bouton et de la textbox. J'ai également essayé le code fournit dans l'aide de VB. Dans le cas suivant, le programme bloque sur "filter". Si je mets la ligne en commentaire, il bloque sur la ligne suivante: "ShowOpen". PS: G mis le "On error goto" en commentaire aussi pour qu'il me l'annonce. C'est peut-être une erreur tout bête mais je bloque... Merci de ta réponse en tout cas...
Private
SubOpen_Click()
DimTextFile As
String<SAMP>'Contenu du fichier a ouvrir</SAMP>
DimFile As
String<SAMP>'Nom du Fichier a ouvrir</SAMP>
On
Error
GoToError_Handle <SAMP>'si il y a erreur (facultatif)</SAMP>
ShowOpen
OpenFile
For
InputAs 1 <SAMP>'ouvre le fichier</SAMP>
Do
WhileNot
EOF(1) <SAMP>'End Of File (numero du fichier)</SAMP>
Input#1, TextFile
Chr(13) +
Chr(10)
Close#1 <SAMP>'ferme le fichier</SAMP>
IfErr.Number = 75
Then
MsgBox<VAR>"Le chemin ou le nom du fichier n'est pas valide"</VAR>, _
Exit
Sub
End
If
End
Sub</LI></OL>