Lecture et écriture dans un fichier .txt en VBA

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:

---

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

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

Ton code

Code:

---

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

---