[vba] protection du caractère guillemet

Résolu/Fermé

0seb0 Messages postés 37 Date d'inscription jeudi 16 août 2007 Statut Membre Dernière intervention 6 mars 2008 - 5 nov. 2007 à 14:30
0seb0 Messages postés 37 Date d'inscription jeudi 16 août 2007 Statut Membre Dernière intervention 6 mars 2008 - 5 nov. 2007 à 14:49

Bonjour,

Grâce à une subroutine vba, je voudrais créer le fichier texte a.txt suivant :

gloup
tu as dit "gloup"

Alors je fais ceci :

Set FS = CreateObject("Scripting.FileSystemObject")
Set a = FS.CreateTextFile(a.txt, True)
TmpStr = "gloup"
a.WriteLine ("gloup")
a.WriteLine ("tu as dit" + TmpStr)
a.Close

Mais ça ne donne que le fichier :

gloup
tu as dit gloup (<------sans les guillemets)

Bref... Au s'cours ! Comment faire ?! ;-)

A voir également:

[vba] protection du caractère guillemet
Caractère ascii - Guide
Caractere speciaux - Guide
Caractère spéciaux - Guide
Caractère spéciaux mac clavier - Guide
Rav endpoint protection - Forum Antivirus

3 réponses

Réponse 1 / 3

ShaBoo Messages postés 392 Date d'inscription mercredi 12 septembre 2007 Statut Membre Dernière intervention 5 septembre 2009 50
5 nov. 2007 à 14:36

Bonjour,

essaye ceci :

Set FS = CreateObject("Scripting.FileSystemObject")
Set a = FS.CreateTextFile(a.txt, True)
TmpStr = Chr(34) & "Gloup" & Chr(34)
a.WriteLine ("gloup")
a.WriteLine ("tu as dit" + TmpStr)
a.Close

Réponse 2 / 3

0seb0 Messages postés 37 Date d'inscription jeudi 16 août 2007 Statut Membre Dernière intervention 6 mars 2008 16
5 nov. 2007 à 14:49

Merci à tous, ça marche !
---> Résolu ! :-)

Réponse 3 / 3

Utilisateur anonyme
5 nov. 2007 à 14:32

Salut,
Pour rajouter des guillemets dans ton mot, fait:
TmpStr=chr$(34)+"gloup"+chr$(34)

Bonne chance !

Utilisateur anonyme
5 nov. 2007 à 14:36

Set FS = CreateObject("Scripting.FileSystemObject")
Set a = FS.CreateTextFile(a.txt, True)
TmpStr = chr$(34)+"gloup"+chr$(34)
a.WriteLine ("gloup")
a.WriteLine ("tu as dit" + TmpStr)
a.Close

Set FS = CreateObject("Scripting.FileSystemObject")
Set a = FS.CreateTextFile(a.txt, True)
TmpStr = "gloup"
a.WriteLine ("gloup")
a.WriteLine ("tu as dit" + chr$(34)+TmpStr+chr$(34))
a.Close

Si ca ne fonctionne pas, ca veux dir que la commende Chr$() n'existe pas.

Utilisateur anonyme > Utilisateur anonyme
5 nov. 2007 à 14:38

Mince, il se pourait qu'il faut remplacer "+" par "&", dans mes changements.

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Caractère invisible ou vide pour pseudo invisible

Comment insérer correctement des caractères spéciaux ou émojis ?

clavier guillemets français

Dessiner avec son clavier et avec des lettres

Discussions similaires

Newsletters