Par Macro, gérer fichier TXT

Version imprimable

12/07/2008, 16h02
malabarbe

Par Macro, gérer fichier TXT

Bonjour,

Je voudrais qu'a l'exécution d'une Macro, (pour la première fois)
1 - Créer un fichier toto.txt
2 - Ecrire le chiffre 1 (un compteur)
3 - Lire le fichier pour en extraire le compteur
4 - Pour la réexécution de la Macro, incrémenter ce compteur
5 - Après je gère le chiffre du compteur

Merci à vous
12/07/2008, 16h06
supersnail

Utilise FileSystemObject (merci :google:)...
J'ai pas l'impression que tu as cherché beaucoup...
12/07/2008, 16h11
malabarbe

Merci de m'avoir répondu,

Oui, j'ai utilisé FileSystemObject

La seule chose que j'ai réussi a faire,
c'est a créer le fichier

Mais pas le reste !

Bonjour,

on pourrai écrire

Code:

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
 
'
' Penser à mettre la référence à Microsoft Scripting
'
Function MonCompteur(Optional Incremente As Boolean = False) As Integer
 Dim objFso As New Scripting.FileSystemObject
 Dim f As Scripting.TextStream
 Const MON_FICHIER = "c:\Tmp\MonCompteur.txt"
 Dim iCpt As Integer
 'Lecture du compteur
 On Error Resume Next
     Set f = objFso.OpenTextFile(MON_FICHIER)
    On Error GoTo 0
     If f Is Nothing Then
       iCpt = 0 'Cas ou fichier inexistant
       Else
       iCpt = Val(f.ReadLine)
       f.Close
     End If
   If Incremente Then
      iCpt = iCpt + 1
      Set f = objFso.CreateTextFile(MON_FICHIER)
      f.Write iCpt
      f.Close
    End If
 
  MonCompteur = iCpt
 
End Function

ensuite tu utilse la fonction :

pour lire ton compteur :

Code:

MsgBox MonCompteur

pour lire et incrémenter ton compteur :

Code:

MsgBox MonCompteur(true)

tu dis quoi

Bonjour,

et comme ne n'aime personnellement pas que l'on alourdisse l'application inutilement par FSO, qui est du VBS (j'ai déjà eu l'occasion de le dire) , voilà la solution directe VB, toute simple :
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub Command1_Click() Open "d:\titi.txt" For Input As #1 Line Input #1, compteur Close #1 DoEvents Open "d:\titi.txt" For Output As #1 Print #1, Val(compteur) + 1 Close #1 MsgBox "compteur à " & compteur End Sub
Clique plusieurs fois sur command1 et comprends.

Citation:
Envoyé par ucfoutu
Bonjour,

et comme ne n'aime personnellement pas que l'on alourdisse l'application inutilement par FSO, qui est du VBS (j'ai déjà eu l'occasion de le dire) , voilà la solution directe VB, toute simple :
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub Command1_Click() Open "d:\titi.txt" For Input As #1 Line Input #1, compteur Close #1 DoEvents Open "c:\titi.txt" For Output As #1 Print #1, Val(compteur) + 1 Close #1 MsgBox "compteur à " & compteur End Sub
Clique plusieurs fois sur command1 et comprends.
toute simple mais elle ne marche pas :aie:

12/07/2008, 16h52
ucfoutu

En effet ...
J'ai écrit à main levée et ai mis la mauvaise lettre de lecteur à l'écriture ...

C'est corrigé (en rouge) mais... c'était évident !!!:lol:
12/07/2008, 16h53
supersnail

Perso,j'aime pas trop le côté "old schol" de la fonction Open qui remonte au bon veux Basic :aie:
Pour moi FileSystemObject est une bonne solution... (le mieux c'est de déclarer l'objet FileSystemObject en variable globale)
12/07/2008, 16h55
JackOuYA

Citation:

Envoyé par ucfoutu

En effet ...
J'ai écrit à main levée et ai mis la mauvaise lettre de lecteur à l'écriture ...

C'est corrigé (en rouge) mais... c'était évident !!!:lol:

évident , même moi je l'ai vu ,mais tu ne traite pas le cas où fichier inexistant ... ( un petit coup de dir :roll:)

Je crois que nous sommes partout sauf à l'école primaire ...

Mais jouons le jeu des petits écoliers et finissons-en !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Command1_Click()
  If Dir("d:\titi.txt") <> "" Then
    Open "d:\titi.txt" For Input As #1
      Line Input #1, compteur
    Close #1
    DoEvents
  End If
  Open "d:\titi.txt" For Output As #1
    Print #1, Val(compteur) + 1
  Close #1
  MsgBox "compteur à " & compteur
End Sub

Merci pour vos élucubrations !
(riches en savoir pour un novice)

De mon côté, j'ai bidouillé cela :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub compteur() repertoire = ThisWorkbook.Path & "\" nf = "toto.txt" chemin = repertoire & nf If Dir(chemin) <> "" Then Open chemin For Input As #1 Input #1, temp Close #1 Else temp = 0 End If Open chemin For Output As #1 Print #1, temp + 1 Close #1 MsgBox temp End Sub
Cela semble bien tourner
le soucis qu'il me reste, c'est de créer mon
fichier en : C:\

Ton fichier se créera seulk s'il n'existe pas ...

Voilà (écrite en entier), ta procédure, qui commence à 1 si le fichier n'existe pas encore et le crée.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Command1_Click()
  If Dir("d:\titi.txt") <> "" Then
    Open "d:\titi.txt" For Input As #1
      Line Input #1, compteur
    Close #1
    DoEvents
  End If
  compteur = Val(compteur) + 1
  Open "d:\titi.txt" For Output As #1
    Print #1, compteur
  Close #1
  MsgBox "compteur à " & compteur
End Sub

Il suffit de faire

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub compteur()
 repertoire = "C:\"
 nf = "toto.txt"
 chemin = repertoire & nf
 If Dir(chemin) <> "" Then
   Open chemin For Input As #1
   Input #1, temp
   Close #1
 Else
   temp = 0
 End If
 Open chemin For Output As #1
 Print #1, temp + 1
 Close #1
 MsgBox temp
End Sub

12/07/2008, 17h23
JackOuYA
Citation:

Envoyé par supersnail

Perso,j'aime pas trop le côté "old schol" de la fonction Open qui remonte au bon veux Basic :aie:
Pour moi FileSystemObject est une bonne solution... (le mieux c'est de déclarer l'objet FileSystemObject en variable globale)

:king:
Citation:
Envoyé par supersnail

Il suffit de faire

Code:

1 2 3 4 5 6 7 8 9 [COLOR=black]Sub compteur() repertoire = "C:\" nf = "toto.txt" chemin = repertoire & nf If Dir(chemin) <> "" Then Open chemin For Input As #1 Input #1, temp Close #1 ....
:nono:

modifier la constante dans le code plus haut :

Code:

Const MON_FICHIER = "c:\Tmp\MonCompteur.txt"
12/07/2008, 17h30
malabarbe

Comme je l'avais dit avant,
Le savoir est une chose, l'appliquer en est une autre

Bref, merci a vous deux !
J'ai maintenant un truc qui tourne Nickel

Encore merci & @ +
12/07/2008, 22h52
ucfoutu

Tiens, je te renvois vers une discussion (tenue en anglais) dans une "vieille école" (mais tellement gourmandée, cette école_là) ;)

Lis tout, hein ...

http://www.xtremevbtalk.com/showthread.php?t=63781
Quoi qu'il en soit : je ne cesserai de répéter cette chose ici... La "vieille école, c'est VBS, pas VB ni VB.Net) ...

Edit : et chez Bill ? ils sont également de la vieille école ?
Tiens : celà traite de l'optimisation...

http://msdn.microsoft.com/fr-fr/libr...13(VS.71).aspx

Et qui plus est, avec du plus "nouvelle école encore" (VB.Net)

Tu pourras y lire ceci, entre autres :

Citation:

FSO est fourni pour la compatibilité avec les langages de script et pour les applications qui requièrent sa fonctionnalité. Chacun de ses modèles est implémenté comme une série d'objets wrapper qui appelle les membres des classes dans l'espace de noms System.IO. Par conséquent, ils ne sont pas aussi efficaces que l'utilisation directe de System.IO. En outre, le FSO nécessite l'implémentation par votre application de l'interopérabilité COM, ce qui entraîne une charge mémoire de marshaling conséquente.

Tu comprendras que je n'ai absolument pas envie de changer d'école, non ? ;)