Private Sub Form_Load() On Error goTo Probleme
 
    Open "D:\abcd.txt" For Input As #1
         
    combo_langue.Text = "Aucune langue choisie"
    combo_langue.AddItem "Français"
    combo_langue.AddItem "Néerlandais"
     
Probleme:
    Open "D:\abcd.txt" For Output As #1
End Sub
 
Quel est le probleme pleeeease      

Commençons par le début.
 
• Tout d'abord, tu ouvre un fichier que tu ne ferme pas ! -> problème.
 
• Après tu en fais quoi de ton fichier ? (après l'avoir ouvert) ?
 
• Connais tu les commandes associées à un fichier ?    
 
Ouvrir un fichier en lecture :

Ouvrir un fichier en écriture (et tout effacer) :

Ouvrir un fichier en écriture (en continuant le fichier) :

 
• Pour finir, quoi qu'il arrive (qu'il y ai une erreur ou pas), ta boucle d'erreur sera utilisée. Place un ' Exit Sub ' avant ' Problème: '
 
( édit : des fautes de copier/coller. )

J'ai trouvé une autre soluce mais j'ai certainement du oublier  
" le exit sub "
 
Merci bcq.
 
++
 

Et puis c'est bizarre, tu ouvres ton fichier en entrée. Et en cas d'erreur tu l'ouvres en sortie

c'est le contraire , mais bon ca fct maintenant .
 
Encore une p'tite question : pour savoir si un fichier existe, vaut mieux utiliser "dir" ou "fileexists" avec un  controle qu'il faut activer .
 
Merci d'avance

avec dir ouais y'a moyen

mais y a une diff ou pas ....
 
Suppose que fileexists ne sert qu'à ca tandis que dir, c'est pas son but premier.
 
Est ce que fileexists est plus lourd vu qu'il faut activer "microsoft runtime" ... ou un truc dans ce genre ...

* tu fermes pas ce que tu ouvres.
* j'ai RIEN compris à ce que tu cherches à faire : tu ouvres ton fichier en lecture (jusque là ok) et si jamais il y a un problème tu le rouvres par dessus en écriture et tu fais rien -> ????
* Le label Problème sera éxécuté dans tous les cas, qu'il y ait erreur ou non : place un exit sub juste avant, ou fais un if/select case sur err.number