OVH Cloud OVH Cloud

Mode d'accès au fichier incorrect

9 réponses
Avatar
Vincent Dartois
Bonjour,

j'ai un soucis étrange, car celà à toujours fonctionner, sauf bien sur le
jour ou je dois effectuer des modifs dans ma macro VBA.
J'ai fais une macro de test pour externaliser le problème, il est encore
présent.

J'obtiens le message d'erreur suivant :

Erreur d'execution '54':
Mode d'accès au fichier incorrect

pour la fonction suivante :

Sub test()
Open "c:\test.txt" For Append As #1
Print #1, "test"
Close #1
End Sub

peu importe le mode d'accès j'ai l'erreur également peu importe excel 2003
ou 97
nota : l'erreur est indiqué sur mon Print #1, "test"

merci de votre aide

Vincent.
Développeur .Net

9 réponses

Avatar
michdenis
Bonjour Vincent,

Ton code fonctionne ! Es-tu dans un environnement réseau ? Des problèmes de droit sur le répertoire ?


Salutations!


"Vincent Dartois" a écrit dans le message de news:
Bonjour,

j'ai un soucis étrange, car celà à toujours fonctionner, sauf bien sur le
jour ou je dois effectuer des modifs dans ma macro VBA.
J'ai fais une macro de test pour externaliser le problème, il est encore
présent.

J'obtiens le message d'erreur suivant :

Erreur d'execution '54':
Mode d'accès au fichier incorrect

pour la fonction suivante :

Sub test()
Open "c:test.txt" For Append As #1
Print #1, "test"
Close #1
End Sub

peu importe le mode d'accès j'ai l'erreur également peu importe excel 2003
ou 97
nota : l'erreur est indiqué sur mon Print #1, "test"

merci de votre aide

Vincent.
Développeur .Net
Avatar
Vincent Dartois
Environnement réseau, pas de problème de droit non plus car ca fonctionnais
normalement.

Ce qui est "marrant" c'est que l'on a taper la même chose sur un autre poste
excel 2003 et 97
ca a mis la même erreur, on a recommancé, rien changé, et maintenant ca
passe sur ce poste à tout les coups...

Le problème est important pour moi car le fichier généré, comptabilise des
informations dans excel pour chaque agence (1 fichier/agence)
je n'ai pas eu d'erreur dans la création du fichier dans chaque agence, et
je recupère régulièrement le fichier dans chaque agence pour en faire des
statistiques.

Sauf que là on m'a demandé d'autres statistiques, qui nécéssite la mise à
jour de mon code pour récolter d'autres informations. ma grande peur est
donc que si j'ai le problème sur mon poste comme sur certain autre (
problème hasardeux ) lors de la mise à jour de mon fichier dans les agences
je peux déclencher le même problème qu'ici et donc bloqué toutes les
agences, car les statisiques sont générés au chargement de l'application
sous Excel.

nota : reboot, modification droit dans la base de registre pour les
applications office n'y font rien.

"michdenis" a écrit dans le message de news:

Bonjour Vincent,

Ton code fonctionne ! Es-tu dans un environnement réseau ? Des problèmes
de droit sur le répertoire ?


Salutations!


"Vincent Dartois" a écrit dans le message de
news:
Bonjour,

j'ai un soucis étrange, car celà à toujours fonctionner, sauf bien sur le
jour ou je dois effectuer des modifs dans ma macro VBA.
J'ai fais une macro de test pour externaliser le problème, il est encore
présent.

J'obtiens le message d'erreur suivant :

Erreur d'execution '54':
Mode d'accès au fichier incorrect

pour la fonction suivante :

Sub test()
Open "c:test.txt" For Append As #1
Print #1, "test"
Close #1
End Sub

peu importe le mode d'accès j'ai l'erreur également peu importe excel 2003
ou 97
nota : l'erreur est indiqué sur mon Print #1, "test"

merci de votre aide

Vincent.
Développeur .Net





Avatar
michdenis
Bonjour Vincent,

J'ai lancé ton code à plusieurs reprises et cela n'a généré aucune erreur ! (même avec le fichier test.txt ouvert ) Je suis sous
excel 2003 et Windows Xp. Peut être que quelqu'un d'autre a une explication ...


Salutations!



"Vincent Dartois" a écrit dans le message de news: %
Environnement réseau, pas de problème de droit non plus car ca fonctionnais
normalement.

Ce qui est "marrant" c'est que l'on a taper la même chose sur un autre poste
excel 2003 et 97
ca a mis la même erreur, on a recommancé, rien changé, et maintenant ca
passe sur ce poste à tout les coups...

Le problème est important pour moi car le fichier généré, comptabilise des
informations dans excel pour chaque agence (1 fichier/agence)
je n'ai pas eu d'erreur dans la création du fichier dans chaque agence, et
je recupère régulièrement le fichier dans chaque agence pour en faire des
statistiques.

Sauf que là on m'a demandé d'autres statistiques, qui nécéssite la mise à
jour de mon code pour récolter d'autres informations. ma grande peur est
donc que si j'ai le problème sur mon poste comme sur certain autre (
problème hasardeux ) lors de la mise à jour de mon fichier dans les agences
je peux déclencher le même problème qu'ici et donc bloqué toutes les
agences, car les statisiques sont générés au chargement de l'application
sous Excel.

nota : reboot, modification droit dans la base de registre pour les
applications office n'y font rien.

"michdenis" a écrit dans le message de news:

Bonjour Vincent,

Ton code fonctionne ! Es-tu dans un environnement réseau ? Des problèmes
de droit sur le répertoire ?


Salutations!


"Vincent Dartois" a écrit dans le message de
news:
Bonjour,

j'ai un soucis étrange, car celà à toujours fonctionner, sauf bien sur le
jour ou je dois effectuer des modifs dans ma macro VBA.
J'ai fais une macro de test pour externaliser le problème, il est encore
présent.

J'obtiens le message d'erreur suivant :

Erreur d'execution '54':
Mode d'accès au fichier incorrect

pour la fonction suivante :

Sub test()
Open "c:test.txt" For Append As #1
Print #1, "test"
Close #1
End Sub

peu importe le mode d'accès j'ai l'erreur également peu importe excel 2003
ou 97
nota : l'erreur est indiqué sur mon Print #1, "test"

merci de votre aide

Vincent.
Développeur .Net





Avatar
Vincent Dartois
J'ai fais un test ( classeur neuf ) , mon collègue a ouvert le fichier sur
son poste :
- message d'erreur identique au mien lors de l'execution
- il copie le code ( copier/coller ) dans un nouveau classeur
- il execute : ca marche !

bref on va tester dans l'autre sens...
sinon je voudrais bien te filer mon classeur mais je pense qu'ici ca risque
de ne pas passer sur le newsgroup.

"michdenis" a écrit dans le message de news:

Bonjour Vincent,

J'ai lancé ton code à plusieurs reprises et cela n'a généré aucune erreur
! (même avec le fichier test.txt ouvert ) Je suis sous
excel 2003 et Windows Xp. Peut être que quelqu'un d'autre a une
explication ...


Salutations!



"Vincent Dartois" a écrit dans le message de
news: %
Environnement réseau, pas de problème de droit non plus car ca
fonctionnais
normalement.

Ce qui est "marrant" c'est que l'on a taper la même chose sur un autre
poste
excel 2003 et 97
ca a mis la même erreur, on a recommancé, rien changé, et maintenant ca
passe sur ce poste à tout les coups...

Le problème est important pour moi car le fichier généré, comptabilise des
informations dans excel pour chaque agence (1 fichier/agence)
je n'ai pas eu d'erreur dans la création du fichier dans chaque agence, et
je recupère régulièrement le fichier dans chaque agence pour en faire des
statistiques.

Sauf que là on m'a demandé d'autres statistiques, qui nécéssite la mise à
jour de mon code pour récolter d'autres informations. ma grande peur est
donc que si j'ai le problème sur mon poste comme sur certain autre (
problème hasardeux ) lors de la mise à jour de mon fichier dans les
agences
je peux déclencher le même problème qu'ici et donc bloqué toutes les
agences, car les statisiques sont générés au chargement de l'application
sous Excel.

nota : reboot, modification droit dans la base de registre pour les
applications office n'y font rien.

"michdenis" a écrit dans le message de news:

Bonjour Vincent,

Ton code fonctionne ! Es-tu dans un environnement réseau ? Des problèmes
de droit sur le répertoire ?


Salutations!


"Vincent Dartois" a écrit dans le message de
news:
Bonjour,

j'ai un soucis étrange, car celà à toujours fonctionner, sauf bien sur le
jour ou je dois effectuer des modifs dans ma macro VBA.
J'ai fais une macro de test pour externaliser le problème, il est encore
présent.

J'obtiens le message d'erreur suivant :

Erreur d'execution '54':
Mode d'accès au fichier incorrect

pour la fonction suivante :

Sub test()
Open "c:test.txt" For Append As #1
Print #1, "test"
Close #1
End Sub

peu importe le mode d'accès j'ai l'erreur également peu importe excel
2003
ou 97
nota : l'erreur est indiqué sur mon Print #1, "test"

merci de votre aide

Vincent.
Développeur .Net










Avatar
michdenis
Bonjour Vincent,

Tu peux l'envoyer directement dans ma BAL.


Salutations!



"Vincent Dartois" a écrit dans le message de news: %
J'ai fais un test ( classeur neuf ) , mon collègue a ouvert le fichier sur
son poste :
- message d'erreur identique au mien lors de l'execution
- il copie le code ( copier/coller ) dans un nouveau classeur
- il execute : ca marche !

bref on va tester dans l'autre sens...
sinon je voudrais bien te filer mon classeur mais je pense qu'ici ca risque
de ne pas passer sur le newsgroup.

"michdenis" a écrit dans le message de news:

Bonjour Vincent,

J'ai lancé ton code à plusieurs reprises et cela n'a généré aucune erreur
! (même avec le fichier test.txt ouvert ) Je suis sous
excel 2003 et Windows Xp. Peut être que quelqu'un d'autre a une
explication ...


Salutations!



"Vincent Dartois" a écrit dans le message de
news: %
Environnement réseau, pas de problème de droit non plus car ca
fonctionnais
normalement.

Ce qui est "marrant" c'est que l'on a taper la même chose sur un autre
poste
excel 2003 et 97
ca a mis la même erreur, on a recommancé, rien changé, et maintenant ca
passe sur ce poste à tout les coups...

Le problème est important pour moi car le fichier généré, comptabilise des
informations dans excel pour chaque agence (1 fichier/agence)
je n'ai pas eu d'erreur dans la création du fichier dans chaque agence, et
je recupère régulièrement le fichier dans chaque agence pour en faire des
statistiques.

Sauf que là on m'a demandé d'autres statistiques, qui nécéssite la mise à
jour de mon code pour récolter d'autres informations. ma grande peur est
donc que si j'ai le problème sur mon poste comme sur certain autre (
problème hasardeux ) lors de la mise à jour de mon fichier dans les
agences
je peux déclencher le même problème qu'ici et donc bloqué toutes les
agences, car les statisiques sont générés au chargement de l'application
sous Excel.

nota : reboot, modification droit dans la base de registre pour les
applications office n'y font rien.

"michdenis" a écrit dans le message de news:

Bonjour Vincent,

Ton code fonctionne ! Es-tu dans un environnement réseau ? Des problèmes
de droit sur le répertoire ?


Salutations!


"Vincent Dartois" a écrit dans le message de
news:
Bonjour,

j'ai un soucis étrange, car celà à toujours fonctionner, sauf bien sur le
jour ou je dois effectuer des modifs dans ma macro VBA.
J'ai fais une macro de test pour externaliser le problème, il est encore
présent.

J'obtiens le message d'erreur suivant :

Erreur d'execution '54':
Mode d'accès au fichier incorrect

pour la fonction suivante :

Sub test()
Open "c:test.txt" For Append As #1
Print #1, "test"
Close #1
End Sub

peu importe le mode d'accès j'ai l'erreur également peu importe excel
2003
ou 97
nota : l'erreur est indiqué sur mon Print #1, "test"

merci de votre aide

Vincent.
Développeur .Net










Avatar
Vincent Dartois
Laisse tomber je ne vais pas te l'envoyé car je pense que ca ne sert à rien.
Je tape mon code dans notepad, je copie colle dans mon module, je lance ca
marche.

nota : quand ca plantait, et que je mettais un append avec un fichier qui
n'existe pas il ne pouvais pas me le créer ( erreur 53 )

nota bis : le F est ma clés usb ( Fat ) le C: en NTFS
nous avons regarder les droits ( user/ active directory, base de registre
sur droit office, mon collègue connecté avec son compte )
également modifié 1 fichier qui est sur mon poste par rapport à un autre (
réseau sur le poste de mon collègue qui fonctionne ) le tout via un éditeur
hexa ( car le fichier contenait des différence après copie réseau sur le
local) et le problème était toujour présent dans tout ca.

Donc finalement c'est innexplicable.

le code en question.
============= Sub testmm97()

Dim fichier As String

For i = 1 To 200

If i Mod 2 = 1 Then
fichier = "C:testmm97-" & i & ".txt"
Else
fichier = "F:testmm97-" & i & ".txt"
End If

'MsgBox (fichier)

Open fichier For Append As #1
Print #1, "test depuis mm97"
Close #1

Next i

End Sub

"michdenis" a écrit dans le message de news:

Bonjour Vincent,

Tu peux l'envoyer directement dans ma BAL.


Salutations!



"Vincent Dartois" a écrit dans le message de
news: %
J'ai fais un test ( classeur neuf ) , mon collègue a ouvert le fichier sur
son poste :
- message d'erreur identique au mien lors de l'execution
- il copie le code ( copier/coller ) dans un nouveau classeur
- il execute : ca marche !

bref on va tester dans l'autre sens...
sinon je voudrais bien te filer mon classeur mais je pense qu'ici ca
risque
de ne pas passer sur le newsgroup.

"michdenis" a écrit dans le message de news:

Bonjour Vincent,

J'ai lancé ton code à plusieurs reprises et cela n'a généré aucune erreur
! (même avec le fichier test.txt ouvert ) Je suis sous
excel 2003 et Windows Xp. Peut être que quelqu'un d'autre a une
explication ...


Salutations!



"Vincent Dartois" a écrit dans le message de
news: %
Environnement réseau, pas de problème de droit non plus car ca
fonctionnais
normalement.

Ce qui est "marrant" c'est que l'on a taper la même chose sur un autre
poste
excel 2003 et 97
ca a mis la même erreur, on a recommancé, rien changé, et maintenant ca
passe sur ce poste à tout les coups...

Le problème est important pour moi car le fichier généré, comptabilise
des
informations dans excel pour chaque agence (1 fichier/agence)
je n'ai pas eu d'erreur dans la création du fichier dans chaque agence,
et
je recupère régulièrement le fichier dans chaque agence pour en faire des
statistiques.

Sauf que là on m'a demandé d'autres statistiques, qui nécéssite la mise à
jour de mon code pour récolter d'autres informations. ma grande peur est
donc que si j'ai le problème sur mon poste comme sur certain autre (
problème hasardeux ) lors de la mise à jour de mon fichier dans les
agences
je peux déclencher le même problème qu'ici et donc bloqué toutes les
agences, car les statisiques sont générés au chargement de l'application
sous Excel.

nota : reboot, modification droit dans la base de registre pour les
applications office n'y font rien.

"michdenis" a écrit dans le message de news:

Bonjour Vincent,

Ton code fonctionne ! Es-tu dans un environnement réseau ? Des problèmes
de droit sur le répertoire ?


Salutations!


"Vincent Dartois" a écrit dans le message de
news:
Bonjour,

j'ai un soucis étrange, car celà à toujours fonctionner, sauf bien sur
le
jour ou je dois effectuer des modifs dans ma macro VBA.
J'ai fais une macro de test pour externaliser le problème, il est encore
présent.

J'obtiens le message d'erreur suivant :

Erreur d'execution '54':
Mode d'accès au fichier incorrect

pour la fonction suivante :

Sub test()
Open "c:test.txt" For Append As #1
Print #1, "test"
Close #1
End Sub

peu importe le mode d'accès j'ai l'erreur également peu importe excel
2003
ou 97
nota : l'erreur est indiqué sur mon Print #1, "test"

merci de votre aide

Vincent.
Développeur .Net















Avatar
michdenis
Bonjour Vincent,

Merci pour le retour ...

Pour ce type de procédure, ton fichier n'a pas besoin d'exister avant l'exécution de la procédure.
As-tu essayé d'utiliser FreeFile ... à tout hasard...

J'utilise NTFS sans éprouver de difficulté à l'exécution de la macro.

'---------------------
Sub test()

Dim A As Long
A = FreeFile

Open "C:test.txt" For Append As #A
Print #A, "test"
Close #1
End Sub
---------------------


Salutations!


"Vincent Dartois" a écrit dans le message de news:
Laisse tomber je ne vais pas te l'envoyé car je pense que ca ne sert à rien.
Je tape mon code dans notepad, je copie colle dans mon module, je lance ca
marche.

nota : quand ca plantait, et que je mettais un append avec un fichier qui
n'existe pas il ne pouvais pas me le créer ( erreur 53 )

nota bis : le F est ma clés usb ( Fat ) le C: en NTFS
nous avons regarder les droits ( user/ active directory, base de registre
sur droit office, mon collègue connecté avec son compte )
également modifié 1 fichier qui est sur mon poste par rapport à un autre (
réseau sur le poste de mon collègue qui fonctionne ) le tout via un éditeur
hexa ( car le fichier contenait des différence après copie réseau sur le
local) et le problème était toujour présent dans tout ca.

Donc finalement c'est innexplicable.

le code en question.
============= Sub testmm97()

Dim fichier As String

For i = 1 To 200

If i Mod 2 = 1 Then
fichier = "C:testmm97-" & i & ".txt"
Else
fichier = "F:testmm97-" & i & ".txt"
End If

'MsgBox (fichier)

Open fichier For Append As #1
Print #1, "test depuis mm97"
Close #1

Next i

End Sub

"michdenis" a écrit dans le message de news:

Bonjour Vincent,

Tu peux l'envoyer directement dans ma BAL.


Salutations!



"Vincent Dartois" a écrit dans le message de
news: %
J'ai fais un test ( classeur neuf ) , mon collègue a ouvert le fichier sur
son poste :
- message d'erreur identique au mien lors de l'execution
- il copie le code ( copier/coller ) dans un nouveau classeur
- il execute : ca marche !

bref on va tester dans l'autre sens...
sinon je voudrais bien te filer mon classeur mais je pense qu'ici ca
risque
de ne pas passer sur le newsgroup.

"michdenis" a écrit dans le message de news:

Bonjour Vincent,

J'ai lancé ton code à plusieurs reprises et cela n'a généré aucune erreur
! (même avec le fichier test.txt ouvert ) Je suis sous
excel 2003 et Windows Xp. Peut être que quelqu'un d'autre a une
explication ...


Salutations!



"Vincent Dartois" a écrit dans le message de
news: %
Environnement réseau, pas de problème de droit non plus car ca
fonctionnais
normalement.

Ce qui est "marrant" c'est que l'on a taper la même chose sur un autre
poste
excel 2003 et 97
ca a mis la même erreur, on a recommancé, rien changé, et maintenant ca
passe sur ce poste à tout les coups...

Le problème est important pour moi car le fichier généré, comptabilise
des
informations dans excel pour chaque agence (1 fichier/agence)
je n'ai pas eu d'erreur dans la création du fichier dans chaque agence,
et
je recupère régulièrement le fichier dans chaque agence pour en faire des
statistiques.

Sauf que là on m'a demandé d'autres statistiques, qui nécéssite la mise à
jour de mon code pour récolter d'autres informations. ma grande peur est
donc que si j'ai le problème sur mon poste comme sur certain autre (
problème hasardeux ) lors de la mise à jour de mon fichier dans les
agences
je peux déclencher le même problème qu'ici et donc bloqué toutes les
agences, car les statisiques sont générés au chargement de l'application
sous Excel.

nota : reboot, modification droit dans la base de registre pour les
applications office n'y font rien.

"michdenis" a écrit dans le message de news:

Bonjour Vincent,

Ton code fonctionne ! Es-tu dans un environnement réseau ? Des problèmes
de droit sur le répertoire ?


Salutations!


"Vincent Dartois" a écrit dans le message de
news:
Bonjour,

j'ai un soucis étrange, car celà à toujours fonctionner, sauf bien sur
le
jour ou je dois effectuer des modifs dans ma macro VBA.
J'ai fais une macro de test pour externaliser le problème, il est encore
présent.

J'obtiens le message d'erreur suivant :

Erreur d'execution '54':
Mode d'accès au fichier incorrect

pour la fonction suivante :

Sub test()
Open "c:test.txt" For Append As #1
Print #1, "test"
Close #1
End Sub

peu importe le mode d'accès j'ai l'erreur également peu importe excel
2003
ou 97
nota : l'erreur est indiqué sur mon Print #1, "test"

merci de votre aide

Vincent.
Développeur .Net















Avatar
MPi
Salut,

As-tu essayé en remplaçant #1 par une variable du genre
Dim NumFichier as integer
NumFichier = Freefile
Open fichier For Append As #NumFichier
............

Michel

"Vincent Dartois" a écrit dans le message de
news:
Laisse tomber je ne vais pas te l'envoyé car je pense que ca ne sert à
rien.

Je tape mon code dans notepad, je copie colle dans mon module, je lance ca
marche.

nota : quand ca plantait, et que je mettais un append avec un fichier qui
n'existe pas il ne pouvais pas me le créer ( erreur 53 )

nota bis : le F est ma clés usb ( Fat ) le C: en NTFS
nous avons regarder les droits ( user/ active directory, base de registre
sur droit office, mon collègue connecté avec son compte )
également modifié 1 fichier qui est sur mon poste par rapport à un autre (
réseau sur le poste de mon collègue qui fonctionne ) le tout via un
éditeur

hexa ( car le fichier contenait des différence après copie réseau sur le
local) et le problème était toujour présent dans tout ca.

Donc finalement c'est innexplicable.

le code en question.
============= > Sub testmm97()

Dim fichier As String

For i = 1 To 200

If i Mod 2 = 1 Then
fichier = "C:testmm97-" & i & ".txt"
Else
fichier = "F:testmm97-" & i & ".txt"
End If

'MsgBox (fichier)

Open fichier For Append As #1
Print #1, "test depuis mm97"
Close #1

Next i

End Sub

"michdenis" a écrit dans le message de news:

Bonjour Vincent,

Tu peux l'envoyer directement dans ma BAL.


Salutations!



"Vincent Dartois" a écrit dans le message de
news: %
J'ai fais un test ( classeur neuf ) , mon collègue a ouvert le fichier
sur


son poste :
- message d'erreur identique au mien lors de l'execution
- il copie le code ( copier/coller ) dans un nouveau classeur
- il execute : ca marche !

bref on va tester dans l'autre sens...
sinon je voudrais bien te filer mon classeur mais je pense qu'ici ca
risque
de ne pas passer sur le newsgroup.

"michdenis" a écrit dans le message de news:

Bonjour Vincent,

J'ai lancé ton code à plusieurs reprises et cela n'a généré aucune
erreur



! (même avec le fichier test.txt ouvert ) Je suis sous
excel 2003 et Windows Xp. Peut être que quelqu'un d'autre a une
explication ...


Salutations!



"Vincent Dartois" a écrit dans le message de
news: %
Environnement réseau, pas de problème de droit non plus car ca
fonctionnais
normalement.

Ce qui est "marrant" c'est que l'on a taper la même chose sur un autre
poste
excel 2003 et 97
ca a mis la même erreur, on a recommancé, rien changé, et maintenant ca
passe sur ce poste à tout les coups...

Le problème est important pour moi car le fichier généré, comptabilise
des
informations dans excel pour chaque agence (1 fichier/agence)
je n'ai pas eu d'erreur dans la création du fichier dans chaque agence,
et
je recupère régulièrement le fichier dans chaque agence pour en faire
des



statistiques.

Sauf que là on m'a demandé d'autres statistiques, qui nécéssite la mise
à



jour de mon code pour récolter d'autres informations. ma grande peur
est



donc que si j'ai le problème sur mon poste comme sur certain autre (
problème hasardeux ) lors de la mise à jour de mon fichier dans les
agences
je peux déclencher le même problème qu'ici et donc bloqué toutes les
agences, car les statisiques sont générés au chargement de
l'application



sous Excel.

nota : reboot, modification droit dans la base de registre pour les
applications office n'y font rien.

"michdenis" a écrit dans le message de news:

Bonjour Vincent,

Ton code fonctionne ! Es-tu dans un environnement réseau ? Des
problèmes




de droit sur le répertoire ?


Salutations!


"Vincent Dartois" a écrit dans le message de
news:
Bonjour,

j'ai un soucis étrange, car celà à toujours fonctionner, sauf bien sur
le
jour ou je dois effectuer des modifs dans ma macro VBA.
J'ai fais une macro de test pour externaliser le problème, il est
encore




présent.

J'obtiens le message d'erreur suivant :

Erreur d'execution '54':
Mode d'accès au fichier incorrect

pour la fonction suivante :

Sub test()
Open "c:test.txt" For Append As #1
Print #1, "test"
Close #1
End Sub

peu importe le mode d'accès j'ai l'erreur également peu importe excel
2003
ou 97
nota : l'erreur est indiqué sur mon Print #1, "test"

merci de votre aide

Vincent.
Développeur .Net



















Avatar
Vincent Dartois
Bon nous avons réussi à trouver et ce fut vicieux !!

En fait il s'agit de notre antivirus ( AVP ) il est par défaut en mode
"blocage moyen" et bloc certaines action des macros.
Nous avions déja suspecté l'antivirus, mais ce qui est vicieux c'est que
lorsque l'on avait désactiver l'antivirus, nous étions encore sous excel.
En fait il faut après avoir désactiver ( voir killer le process ) il faut
quitter excel et le relancer.

Sinon il y a un paramètrage à faire dans l'antivirus mais là c'est un autre
sujet.

Merci de votre aide !

Cordialement,
Vincent Développeur .Net


"michdenis" a écrit dans le message de news:
%
Bonjour Vincent,

Merci pour le retour ...

Pour ce type de procédure, ton fichier n'a pas besoin d'exister avant
l'exécution de la procédure.
As-tu essayé d'utiliser FreeFile ... à tout hasard...

J'utilise NTFS sans éprouver de difficulté à l'exécution de la macro.

'---------------------
Sub test()

Dim A As Long
A = FreeFile

Open "C:test.txt" For Append As #A
Print #A, "test"
Close #1
End Sub
---------------------


Salutations!


"Vincent Dartois" a écrit dans le message de
news:
Laisse tomber je ne vais pas te l'envoyé car je pense que ca ne sert à
rien.
Je tape mon code dans notepad, je copie colle dans mon module, je lance ca
marche.

nota : quand ca plantait, et que je mettais un append avec un fichier qui
n'existe pas il ne pouvais pas me le créer ( erreur 53 )

nota bis : le F est ma clés usb ( Fat ) le C: en NTFS
nous avons regarder les droits ( user/ active directory, base de registre
sur droit office, mon collègue connecté avec son compte )
également modifié 1 fichier qui est sur mon poste par rapport à un autre (
réseau sur le poste de mon collègue qui fonctionne ) le tout via un
éditeur
hexa ( car le fichier contenait des différence après copie réseau sur le
local) et le problème était toujour présent dans tout ca.

Donc finalement c'est innexplicable.

le code en question.
============= > Sub testmm97()

Dim fichier As String

For i = 1 To 200

If i Mod 2 = 1 Then
fichier = "C:testmm97-" & i & ".txt"
Else
fichier = "F:testmm97-" & i & ".txt"
End If

'MsgBox (fichier)

Open fichier For Append As #1
Print #1, "test depuis mm97"
Close #1

Next i

End Sub

"michdenis" a écrit dans le message de news:

Bonjour Vincent,

Tu peux l'envoyer directement dans ma BAL.


Salutations!



"Vincent Dartois" a écrit dans le message de
news: %
J'ai fais un test ( classeur neuf ) , mon collègue a ouvert le fichier
sur
son poste :
- message d'erreur identique au mien lors de l'execution
- il copie le code ( copier/coller ) dans un nouveau classeur
- il execute : ca marche !

bref on va tester dans l'autre sens...
sinon je voudrais bien te filer mon classeur mais je pense qu'ici ca
risque
de ne pas passer sur le newsgroup.

"michdenis" a écrit dans le message de news:

Bonjour Vincent,

J'ai lancé ton code à plusieurs reprises et cela n'a généré aucune
erreur
! (même avec le fichier test.txt ouvert ) Je suis sous
excel 2003 et Windows Xp. Peut être que quelqu'un d'autre a une
explication ...


Salutations!



"Vincent Dartois" a écrit dans le message de
news: %
Environnement réseau, pas de problème de droit non plus car ca
fonctionnais
normalement.

Ce qui est "marrant" c'est que l'on a taper la même chose sur un autre
poste
excel 2003 et 97
ca a mis la même erreur, on a recommancé, rien changé, et maintenant ca
passe sur ce poste à tout les coups...

Le problème est important pour moi car le fichier généré, comptabilise
des
informations dans excel pour chaque agence (1 fichier/agence)
je n'ai pas eu d'erreur dans la création du fichier dans chaque agence,
et
je recupère régulièrement le fichier dans chaque agence pour en faire
des
statistiques.

Sauf que là on m'a demandé d'autres statistiques, qui nécéssite la mise
à
jour de mon code pour récolter d'autres informations. ma grande peur est
donc que si j'ai le problème sur mon poste comme sur certain autre (
problème hasardeux ) lors de la mise à jour de mon fichier dans les
agences
je peux déclencher le même problème qu'ici et donc bloqué toutes les
agences, car les statisiques sont générés au chargement de l'application
sous Excel.

nota : reboot, modification droit dans la base de registre pour les
applications office n'y font rien.

"michdenis" a écrit dans le message de news:

Bonjour Vincent,

Ton code fonctionne ! Es-tu dans un environnement réseau ? Des
problèmes
de droit sur le répertoire ?


Salutations!


"Vincent Dartois" a écrit dans le message de
news:
Bonjour,

j'ai un soucis étrange, car celà à toujours fonctionner, sauf bien sur
le
jour ou je dois effectuer des modifs dans ma macro VBA.
J'ai fais une macro de test pour externaliser le problème, il est
encore
présent.

J'obtiens le message d'erreur suivant :

Erreur d'execution '54':
Mode d'accès au fichier incorrect

pour la fonction suivante :

Sub test()
Open "c:test.txt" For Append As #1
Print #1, "test"
Close #1
End Sub

peu importe le mode d'accès j'ai l'erreur également peu importe excel
2003
ou 97
nota : l'erreur est indiqué sur mon Print #1, "test"

merci de votre aide

Vincent.
Développeur .Net