Bonjour,
Comme le titre le précise je cherche à ouvrir un fichier qui existe ("essai1.txt") puisqu'il a été créé par cette macro :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30 REM ***** OOBASIC ***** REM *** ouverture et fermeture de fichiers textes Option Explicit ' Déclaration explicite des variables ' Nom et chemin du fichier qui sera créé par la macro Public Const nomFichier = "C:\Documents and Settings\Propriétaire\Mes documents\essai1.txt" Sub EcrireFichierTexte() Dim f1 As Integer f1 = FreeFile 'obtenir un numero de fichier (numero de canal) Open nomFichier For Output As #f1 Print #f1, "Macro en OO basic" Print #f1, " " print #f1, " Hello World " Close #f1 End Sub Sub Macro1 End Sub
Le code de la macro d'ouverture est ici. A l'exécution j'ai une "erreur de périphérique entrée /sortie" je n'arrive pas à voir pourquoi ...
Je débute en OOBasic comme vous l'aurez constaté et je trouve la doc assez mal fichue Merci de votre aide.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25 REM **Ouverture fichier Option Explicit Public Const nomFichier = "C:\Documents and Settings\Propriétaire\Mes documents\essai1.txt" Sub LireFichierTexte() Dim f1 As integer Dim nomFichier As String Dim uneLigne As String f1 = FreeFile Open nomFichier For Input As #f1 Do While Not Eof(f1) Line Input #f1, uneLigne Print uneLigne Loop Close #f1 End Sub 'LireFichierTexte
Partager