0/5 (5 avis)
Snippet vu 2 742 fois - Téléchargée 40 fois
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 ---------------------------------------------------
18 nov. 2002 à 15:09
if not commondialog1.filename = "" then
'enregistrer
end if
tk ca peut tjours servir a ceux ki connaisse pas les common dialog
a+
18 nov. 2002 à 15:08
18 nov. 2002 à 15:08
18 nov. 2002 à 14:57
y une erreur qui est générée quand on click sur annuler c'est normal... :D
cv aide de vb sur Dialogbox.ShowOpen
faut utilise on error ... goto to ... avant le open.
Ton exemple ne doit pas fonctionner si on selectionne un fichier et qu'on fasse annuler... a tester...
Mais ta solution n'est pas trés propre.
18 nov. 2002 à 14:04
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.