Qui peut me dire ou est lerreur

Résolu/Fermé
elrin
Messages postés
37
Date d'inscription
vendredi 4 février 2005
Statut
Membre
Dernière intervention
27 mai 2005
- 26 mai 2005 à 11:53
elrin
Messages postés
37
Date d'inscription
vendredi 4 février 2005
Statut
Membre
Dernière intervention
27 mai 2005
- 26 mai 2005 à 11:58
qq1 peut il me dire ou est l'erreur?

jarriver a afficher mon contenu de fichier txt dans le textbox est maintenant ji arrive plus.

Option Explicit

Dim SelectedFile As String
Dim ligne As String
Dim vari As Integer
Dim contenu As String
Dim chemin As String







Private Sub avantconvertion_Click()

On Error GoTo gesterr1
'ouverture du fichier
Open SelectedFile For Input As #1
'affichage de son contenu

While Not EOF(1)
Line Input #1, ligne
visualisation.Text = visualisation.Text & ligne & vbCrLf

Wend

'fermeture du fichier
Close #1
Exit Sub
'gestion de l'oubli de selection de fichier
gesterr1:
MsgBox ("vous n'avez pas selectionner de fichier")
End Sub

Private Sub Drive1_Change()
On Error GoTo gesterr2
'Séléction du lecteur
Dir1.Path = Drive1.Drive
Exit Sub
'gestion d'un periphérique indisponible
gesterr2:
MsgBox ("Le periphérique selectionné est indisponible, veuillez recommencer votre choix")
End Sub

Private Sub Dir1_Change()
'Séléction du dossier
File1.Path = Dir1.Path
End Sub

Private Sub erase_Click()
'demande de confirmation pour effacer le contenu du textbox visualisation
If MsgBox("voulez-vous effacer le texte affiché? ", vbYesNo) = vbYes Then
'mise a 0 du textbox visualisation
visualisation.Text = ""
Else
'textbox visualisation laissé telquel
End If
End Sub

Private Sub File1_Click()
'Séléction du fichier
SelectedFile = File1.Path & "\" & File1.FileName

End Sub

Private Sub convertion_Click()


MsgBox ("La convertion est achevée")

End Sub

Private Sub info_Click()
MsgBox ("Logiciel de modification de fichier texte pour avoir les débits/crédits dans une même colonne")
End Sub

Private Sub print_Click()

End Sub

Private Sub imprimer_Click()

Dim stA As String
Dim FF As Long
FF = FreeFile
'ouvrir le fichier a imprimer
Open SelectedFile For Input As #FF
Printer.Print " "
Do Until EOF(FF)
Line Input #FF, stA
Printer.Print stA
Loop
'Refermer le fichier et passer la main à l'imprimante
Close #FF
Printer.EndDoc

End Sub

Private Sub quitter_Click()

'Demande de confirmation pour quitter l'application
If MsgBox("Vous allez quitter l'application êtes-vous d'accord?", vbYesNo, "confirmation de sortie") = vbYes Then
'quitter l'application
End

Else
'rester dans l'application
End If
End Sub

Private Sub save_Click()
vari = FreeFile
contenu = Form1.visualisation.Text
' adresse du fichier a enregistrer
chemin = SelectedFile
'ouverture du fichier
Open chemin For Output As #vari
' enregistrement du texte
Print #vari, contenu
'Fermeture du fichier
Close vari

End Sub

Private Sub visualisation_Change()

End Sub

1 réponse

elrin
Messages postés
37
Date d'inscription
vendredi 4 février 2005
Statut
Membre
Dernière intervention
27 mai 2005
4
26 mai 2005 à 11:58
c bon c resolu
0