Discussion :

[malabarbe]

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

[supersnail]

Utilise FileSystemObject (merci )...
J'ai pas l'impression que tu as cherché beaucoup...

[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 !

[JackOuYA]

Bonjour,

on pourrai écrire

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
 
'
' 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox MonCompteur

pour lire et incrémenter ton compteur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox MonCompteur(true)

tu dis quoi

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[JackOuYA]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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