Discussion :

[zz99]

Bonjour,

J'aimerai savoir s'il existe un moyen d'appeler un programme vbs (appelé) à partir d'un autre programme vbs (appelant).
Le but et que mon programme appelé écrive une liste d'un formulaire en boule et que le programme appelant intègre les noms des données créés pour la suite de ce programme.

Sinon existe t-il une instruction pouvant écrite ses ligne directement dans le programme principale; voici un exemple :

For ii = 1 To nbrenr
if document.formu.aliste10" & ii & ".options(document.formu.aliste10" & ii & ".selectedIndex).value > "" Then
ii = ii + 1
document.formu.aaa & ii & .value = document.formu.aunlib & ii & .value
("document.formu.aab" & ii & ".value") = ("document.formu.aunliba" & ii & ".value ")
("num1 = document.formu.aliste10" & ii & ".options(document.formu.aliste10" & ii & ".selectedIndex).value ")
("document.formu.aac" & ii & ".value = num1 ")
("num3 = resultat(num1) ")
("document.formu.aad" & ii & ".value = num3 ")
("resul = num3 ")
end if
Next

Voici un exemple et par exemple

aaa & ii & .value

sera générique aaa1, aaa2 autant qu'il y a d'enregistrement.

Car il peut y avoir 50 lignes voir plus. C'est pour cela que je voudrais les créer par une boucle et de pouvoir utiliser les "Name" pour exploiter le formulaire.
Mais vbs me l'interdit.

Avez vous une solution.

Merci d'avance
Lucie

[Fredledingue]

Essayes ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
For ii = 1 To nbrenr
'--- Il faut définir "aliste10ii" parcequ'il est difficile 
'--- d'introduire un If...Then dans une commande Execute sans se tromper
Execute "Set aliste10ii = document.formu.aliste10" & ii
	If aliste10ii.options(aliste10ii.selectedIndex).value > "" Then
	ii = ii + 1
             Execute "Set aliste10ii = document.formu.aliste10" & ii
	Execute "document.formu.aaa" & ii & ".value = document.formu.aunlib" & ii & ".value"
	Execute "document.formu.aab" & ii & ".value" = "document.formu.aunliba" & ii & ".value"
	num1 = aliste10ii.options(aliste10ii.selectedIndex).value
	Execute "document.formu.aac" & ii & ".value = num1"
	num3 = resultat(num1)
	Execute "document.formu.aad" & ii & ".value = num3"
	resul = num3
	End If
Next

[zz99]

Bonjour,

J'ai eu votre réponse aujourd'hui,
Sans faute je la testerai demain, mais je pense que c'est la solution.

Je vous donnerais de mes nouvelles.

Merci.

[zz99]

Salut,
ça marche

Merci pour votre aide