Lecture et écriture dans un fichier .txt en VBA

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

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

 

[zanys]

Re : Lecture et écriture dans un fichier .txt en VBA

personne pour me donner un coup de main ?

 

[Odesta]

Re : Lecture et écriture dans un fichier .txt en VBA

Bonjour

Une petite recherche sur l'erreur 75 :

Erreur d'execution 75 - MSDN Search

J'espère que cela vous éclairera
Cdt
Olivier