généré un VBS a partir d'une macro

[DjeDje_zr7]

Bonjour,
ce fait de nouveau appel a vous pour me sortir d'un mauvais pas.

Voila, j'essaye de généré un fichier VBS en a partir d'une marcro Excel (qd j'appuie sur un bouton plus exactement).

Le code de ma macro est le suivant :

Sub Bouton1_QuandClic()
MsgBox ("coucou")
Open "c:\addgrp.vbs" For Output As #1 ' Ouvre le fichier en écriture.

Write #1, strComputer = "My_Computer"
Write #1, Set colAccounts = GetObject("WinNT://" & strComputer & "")

Write #1, Set objUser = colAccounts.Create("group", "Grp1")
objUser.SetInfo

Write #1, Set objUser = colAccounts.Create("group", "Grp2")
Write #1, objUser.SetInfo

Write #1, Set objUser = colAccounts.Create("group", "Grp3")
Write #1, objUser.SetInfo

End Sub

toutes les commandes après les Write #1, sont les commandes que je dois mettre dans mon VBS de sortie (qui doit me créer des groupes locaux sur une machine. Les valeurs Grp1, Grp2, Grp3 sont le nom de mes groupes locaux que je récupererais plus tard dans une de mes feuilles Excel)

Mon problème est que les commandes VBS s'éxécutent au lieu de "s'ecrire" dans le fichier de sortie et que les " sont apparement interdit dans la commande Write.

Merci pour votre aide.
DjeDje

 

[jmps]

Bonjour DjeDje_zr7,

Tu dois mettre les données à écrire entre guillemets. Si tu dois écrire des guillemets, il faut les indiquer par leur code ascii (34 en décimal). Je te mets la première ligfne en exemple, fais pareil pour les autres.

Write #1, "strComputer = " & chr(34) & "My_Computer" & chr(34)

J'espère que je suis clair, sinon n'hésite pas à revenir.

Bon appétit.

José

 

[bricolo]

Bonjour DjeDje_zr7, jmps

C'est presque ça . Remplaces simplement dans l'exemple de jmps write par print .

Bonne journée à tous

 

[DjeDje_zr7]

Yop,
Merci a tout les deux

j'avais entre autre déjà essayés la solution avec le Write #, mais ca le laissait des guillements au début et à la fin, avec le print ca marche.

encore Merci pour votre aide.

A+
DjeDje