Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Impossibilité de créer fichier txt ???? (vba)

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

3 réponses
Avatar
SylVBA
Bonsoir =E0 vous,

QQ chose de tr=E8s bizarre:

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

M=EAme Os XP pro + Office 2003, m=EAme r=E9glage et installation de excel,
fait par le m=EAme informaticien maison

tous les autres codes dans le m=EAme fichier fonctionnent sur TOUS les
PC y compris sur les 2 cit=E9s ci dessus.

Voici le code recalcitrant:

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


If MsgBox("Ce client a t'il un rayon sp=E9cialis=E9 ?", vbYesNo) =3D 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=E9er un fichier texte (si il n'existe pas) et inscrire le
code du client (qui est dans la cellule nom=E9e CodeClient suivi de Oui
ou Non

Sur 2 machines, pas de cr=E9ation de fichier !!!! et donc plantage

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

Erreur d'execution 75
Erreur d'acc=E8s Chemin/Fichier

Ce code fait bien la cr=E9ation du fichier si il est manquant ? (je suis
toute pensive ...)

Que passa ???

Avez vous une id=E9e

D'avance merci

Syl VBA
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Papy Jean
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 />
Avatar
SylVBA
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 />
Avatar
Papy Jean
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" a écrit dans le message de news:

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