Impossible d'écrire un code dans un fichier texte

Salut a tous

J'essaie depuis un bon moment a écrire cette liste (code) ci-dessous dans un fichier texte sans succès car VBA me souligne presque toute les lignes

Sub Ecriture()
Open "C:\écriture.txt" For Output As #1
Print #1, "If WScript.Arguments.length =0 Then"
Print #1, "Set objShell = CreateObject("Shell.Application")"
Print #1, "objShell.ShellExecute "WScript.exe", Chr(34) & _"
Print #1, "WScript.ScriptFullName & Chr(34) & " uac ", "", "runas", 1"
Print #1, "Else"
Print #1, "End If"
Close #1
End Sub

Pourquoi il veut pas m'écrire tout ce qui se trouve entre les "" de Print ?

merci

Bonjour,

Il faut que tu doubles tous les " internes pour lui dire que ce n'est pas une fin de chaine mais un caractère à écrire.

Ca devrait donner ça :

Sub Ecriture()
    Open "C:\écriture.txt" For Output As #1
    Print #1, "If WScript.Arguments.length =0 Then"
    Print #1, "Set objShell = CreateObject(""; Shell.Application; "")"
    Print #1, "objShell.ShellExecute ""; WScript.exe; "", Chr(34) & _"
    Print #1, "WScript.ScriptFullName & Chr(34) & ""; uac; "", """", ""; runas; "", 1"
    Print #1, "Else"
    Print #1, "End If"
    Close #1
End Sub

eric

Merci Eric..

Et pour l'insertion des ";" c'est volontaire?

Bonjour,

Non, pas du tout.

Je ne sais pas comment ils sont venus là (?), j'avais juste doublé les "

eric

Ah c'est VBA qui les rajoute

En tout cas, mon problème est résolu en doublant les " interne

Encore merci

Ah oui, c'est pour lister plusieurs champs sur la même ligne dans un Print.

eric