Impossibilité de créer fichier txt ???? (vba)

Le
SylVBA
Bonsoir vous,

QQ chose de trs bizarre:

J'ai une petite proc qui marche trs bien sur 7 Pc portables de
commerciaux et 2 ou la macro ne fonctionne pas !!!!!

Mme Os XP pro + Office 2003, mme rglage et installation de excel,
fait par le mme informaticien maison

tous les autres codes dans le mme fichier fonctionnent sur TOUS les
PC y compris sur les 2 cits ci dessus.

Voici le code recalcitrant:

Dim Chemin As String, Fichier As String
Chemin = "C:"
Fichier = "Specialiste.txt"


If MsgBox("Ce client a t'il un rayon spcialis ?", vbYesNo) = vbYes
Then

On Error Resume Next
Open Chemin & Fichier For Append As #1
Write #1, [CodeClient] & " Oui"
Close #1

Else

On Error Resume Next
Open Chemin & Fichier For Append As #1
Write #1, [CodeClient] & " Non"
Close #1

End If

Cela doit crer un fichier texte (si il n'existe pas) et inscrire le
code du client (qui est dans la cellule nome CodeClient suivi de Oui
ou Non

Sur 2 machines, pas de cration de fichier !!!! et donc plantage

En enlevant le On error resume next on obtient l'erreur suivante:

Erreur d'execution 75
Erreur d'accs Chemin/Fichier

Ce code fait bien la cration du fichier si il est manquant ? (je suis
toute pensive )

Que passa ???

Avez vous une ide

D'avance merci

Syl VBA
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Papy Jean
Le #7021531
Bonsoir Sylvia<br />
<br />
Par hasard, les 2 PC ne seraient-ils pas sous Vista.<br />
Si oui, voir 2 lignes plus haut<br />
Papy Jean<br />
SylVBA
Le #7021731
merci Papy Jean<br />
<br />
Non ils sont comm les autres sous vista<br />
<br />
Ala maison j'Ai vista et la le probl&egrave;me est aussi effectif<br />
<br />
2 lignes plus haut il faut lire quoi ?<br />
<br />
A tout &agrave; l'heure<br />
<br />
Merci d'avance pour vos recherches, je s&egrave;che ..............<br />
<br />
Syl VBA<br />
Papy Jean
Le #7028521
Bonjour

D'abord, 1000zexcuses, mais je n'ai pas été clair hier soir
et de plus je ne reviens que ce mardi soir
C'est pas bien !

Ce que j'ai voulu dire, c'est que j'ai eu un problème aux effets identiques.
Cela provenait de ce que la copie de fichiers était bloquée dans Windows et
non pas dans VB.

Pour voir si c'est ta réponse, essaie de déplacer un fichier d'un dossier
source vers un fichier but
alors que le fichier existe déjà dans But.

Si ce n'est pas cela, je ne vois pas.

2 lignes plus haut = le message que j'ai envoyé le 16 à 21:03
Papy Jean

"SylVBA"
merci Papy Jean

Non ils sont comm les autres sous vista

Ala maison j'Ai vista et la le problème est aussi effectif

2 lignes plus haut il faut lire quoi ?

A tout à l'heure

Merci d'avance pour vos recherches, je sèche ..............

Syl VBA
Publicité
Poster une réponse
Anonyme