Impossible d'écrire un code dans un fichier texte

[sun2k]

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

 

[Staple1600]

Re : Impossible d'écrire un code dans un fichier texte

Re

Et donc ?

Et au final tu voulais faire quoi ?
Créer par VBA un script VBS avec une extension *.txt ??
(ça ne risque pas de fonctionner)

Une petit réponse, svp ...🙄

[SUITE]
Et si tu crées au préalable un répertoire sur ton lecteur C et que tu crées/copies un fichier dans celui en VBA avec l'UAC activé
Cela fonctionne ou pas ?

Sans toucher à l'UAC, la macro ci-dessous crée bien un fichier texte dans un dossier créé pour l'occasion.

Sub Mtest()
Dim MDC
MDC = CreateObject("WScript.Shell").SpecialFolders("MyDocuments")
If Dir(MDC & "\dTmp", vbDirectory) = "" Then
MkDir MDC & "\dTmp"
Open MDC & "\dTmp\test.txt" For Output As #1
Print #1, "Ceci est un test"
Close #1
CreateObject("WScript.Shell").Run MDC & "\dTmp\test.txt"
Else
Exit Sub
End If
End Sub

 

[sun2k]

Re : Impossible d'écrire un code dans un fichier texte

Merci j'ai du mal a comprendre votre code .. pouvez vous le commenter ?

En faite ma question Essentiel est de savoir pourquoi avec un code de demande d’élévation VBA il demande un mot de passe + domaine alors qu'avec un code de demande d’élévation VBS rien de tout ça ?

 

[sun2k]

Re : Impossible d'écrire un code dans un fichier texte

Ma question initiale était de savoir comment écrire dans un fichier du code qui contient des caractères spéciaux, des guillemets ect.. et j'ai trouvé la solution ici...

Puis j'avais un problème de permission refusée car UAC est activé.

J'ai un bout de code VBS qui demande a l'ouverture du fichier une élévation pour avoir l'autorisation d'écrire dans un dossier en l'occurrence "C:\" mais ce code VBS ne fonctionne pas en VBA..

Donc après avoir résolu mon 1er problème je veux savoir si c'est possible d'avoir une élévation en VBA ?

 

[sun2k]

Re : Impossible d'écrire un code dans un fichier texte

Simplement parce que je dois écrire dans un fichier qui se trouve dans "C:\" et il faut une autorisation si UAC est activé..

Le code je l'ai déjà poster le voici:

If WScript.Arguments.length =0 Then
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "wscript.exe", Chr(34) & _
WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
Else

' Mon code ici

End If