variable avec du vbs et vba

Version imprimable

Bonjour a tous,
j'ai un scrip avec du vba, j'arrive bien a utiliser une variable de vbs vers vba
mais pas de vba vers vbs
Mavariable ==>ok
Mavariable2==>nok
j'essaye plusieurs combinaisons de guillemet , mais erreur vbscript !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
dim Mavariable,Mavariable2
Mavariable=1
Set sh = WScript.CreateObject("WScript.Shell") 
on error resume next
sh.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\Security\accessVBOM",1,"REG_DWORD"
on error goto 0
Set exl = WScript.CreateObject("excel.Application")
exl.Visible = false
set fichxl=exl.workbooks.add
Set mdle = fichxl.VBProject.VBComponents.Add(1)
mdle.CodeModule.InsertLines 1,"sub Macro1()"
mdle.CodeModule.InsertLines 2,"msgbox " & Mavariable
mdle.CodeModule.InsertLines 3,Mavariable2 & " = Mavariable+1" '<=====NOK
mdle.CodeModule.InsertLines 4,""
mdle.CodeModule.InsertLines 5,"End sub"
exl.Run "Macro1"
fichxl.close(false)
exl.quit
Set fichxl=nothing
set mdle=nothing
set exl=nothing
set sh=nothing
msgbox Mavariable2   '<===== "VIDE"

merci pour votre aide !

14/10/2009, 11h31
pitchalov

Salut.

Es-tu sûr d'avoir initialisé ta variable Mavariable2 avant de l'appeler?
Je pense que c'est pour ça que ça ne marche pas.
14/10/2009, 12h16
loufred

salut,
je suis débutant ,
que veux tu dire par initialisé ta variable Mavariable2 ?
merci.
16/10/2009, 08h50
pitchalov

Tu essaie d'afficher 2 fois ta variable Mavariable2 (une fois dans excel et une fois dans une msgbox) sans lui avoir attribué de valeur au préalable.

C'est donc normal que rien ne soit affiché dans l'un comme dans l'autre.

Si tu veux que Mavariable2 soit égal à Mavariable+1, alors il faut l'écrire :

Code:

Mavariable2 = Mavariable+1

avant l'affichage ou l'utilisation de cette variable.