Discussion :

[zanys]

Salut,
j'aimerais dans un module vba excel 2007 pouvoir lire une valeur contenue en premiere ligne d'un fichier texte, fichier nommé "nb_visites.txt". Cette valeur correspond à un nbre de visiteurs.
J'aimerais pouvoir incrémenter cette valeur et la remettre à la place de l'ancienne (en premiere ligne)

J'ai codé cela comme ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim fichier As String, nb_visites As Long, str_Nb_visites as String
fichier = "c:\nb_visites.txt"
 
Open fichier For Input As #2
Input #2, str_Nb_visites
Close #2
 
nb_visites = Val(str_Nb_visites)
nb_visites = nb_visites + 1
str_Nb_visites = Str(nb_visites)
 
Open fichier For Output As #2 ***
Print #2, str_Nb_visites
Close #2

J'obtiens un message d'erreur sur la ligne *** :
Erreur d'execution 75 :
Erreur d'accès chemin/fichier

si quelqu'un peut m'aider à résoudre ce probleme...
Merci

[mercatog]

Tu fixe le n° de fichier à 2 alors que tu n'es pas sûr de la disponibilité

Ton code

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
Sub Test()
Dim Fichier As String, str_Nb_visites As String
Dim Nb_visites As Long
Dim n As Integer
 
Fichier = "C:\Users\user\Desktop\nb_visites.txt"
n = FreeFile()
Open Fichier For Input As #n
Input #n, str_Nb_visites
Close #n
 
Nb_visites = Val(str_Nb_visites)
Nb_visites = Nb_visites + 1
str_Nb_visites = Str(Nb_visites)
n = FreeFile()
Open Fichier For Output As #n
Print #n, str_Nb_visites
Close #n
End Sub