Boite ouvrir sans bug quand on l'annule

Commenter

Contenu du snippet

j'avais trouver quelque part sur se site un code pour ouvrir et il avait un bug il plantais quand on annulais c'est pas pratique je sait qui doit avoir une dizaine de code de ce genre mais quand j'ais cherche je trouvais pas de source pour mes besions a part une mais avec ce bug mais résolu je veut pas de vos commentaire en dissant que c'est pas la premiere source de ce genre ,......
et lavantage de cette source c,est qui ouvre complement le fichier pas juste la 1er ligne de celle si

Source / Exemple : 


il faut d'abord un CommonDialog dans notre feuille de projet et lui donné comme nom " cd "
ensuite sur un bouton ecriver .

---------------------------------
cd.Filter = "Fichiers *.TXT|*.txt"
cd.ShowOpen
Dim CheminFichier As String
Dim a
If cd.FileName = "" Then
Form1.Show
Else
CheminFichier = cd.FileName
a = FreeFile()
Open CheminFichier For Input As #a
Text4.Text = Input(LOF(a), a)
Close #a
End If
End Sub

---------------------------------------------------

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_diablotin)