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

Le
SylVBA
Bonsoir à vous,

QQ chose de très bizarre:

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

Même Os XP pro + Office 2003, même réglage et installation de excel,
fait par le même informaticien maison

tous les autres codes dans le même fichier fonctionnent sur TOUS les
PC y compris sur les 2 cités 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 spécialisé ?", 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 créer un fichier texte (si il n'existe pas) et inscrire le
code du client (qui est dans la cellule nomée CodeClient suivi de Oui
ou Non

Sur 2 machines, pas de création de fichier !!!! et donc plantage

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

Erreur d'execution 75
Erreur d'accès Chemin/Fichier

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

Que passa ???

Avez vous une idée

D'avance merci

Syl VBA
Vidéos High-Tech et Jeu Vidéo
Téléchargements
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