Discussion :

[car]

Bonjour,

Mon problème est le suivant : je veux récupérer une valeur d'un tableau excel (owc object) que je veux transmettre à une autre page grâce à un formulaire (transmission POST)

En fait mon problème est que la valeur de i recueilli au niveau client n'est pas transmise au niveau serveur

calcul de i sur client

Code :

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

1
2
3
4
5
6
7
8
<SCRIPT LANGUAGE="VBScript">
Sub Button1_OnClick 
    i= Excel.range("a1").value 
   ' je tire ma valeur d'un objet owc 
  MsgBox i & " valeur de I" 
 
end sub 
</SCRIPT>

et transmission qui ne fonctionne pas au niveau serveur :

Code :

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

1
2
3
4
>FORM> 
  <form action="" method=POST id=form1 name=form1> 
<input type=text name="mavaleur" value=<%i%>> 
  <INPUT NAME="Button2" TYPE="submit" VALUE="Click Here"></FORM>

value=<%i%>> n'est pas instancié a la valeur client...

[car]

Je me demande est il possible de mettre du VBSCRIPT dans une balise INPUT?

j'ai essayé
<input type=hidden name="mavaleur" value="<SCRIPT LANGUAGE="VBScript">i</SCRIPT>">

mais ça ne marche pas. le principe étant comme j'ai récupére des données au niveau client je voudras pouvoir la poster.

[totoche]

Oui c'est possible mais l'initialisation de la page, mais si tu fais de l'evenementiel côté client faut que tu passes par du javascript.

[pc75]

Bonjour,

value=<%i%>> n'est pas instancié a la valeur client...

Ce ne serait pas plutot :

Code :

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

1
2
 
value=<%=i%>

[car]

J'ai trouvé:
le formulaire qui réceptionne la valeur client et envoi au serveur

Code :

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

1
2
3
4
5
 <form  action="ExcelSheets.asp" method=post id=form1 name=form1> 
  <INPUT NAME="Button1" TYPE="submit" VALUE="Click Here">
 <input type=hidden name="mavaleur" >
 
</form>

et le script qui permet cette opération

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
<SCRIPT LANGUAGE="VBScript"> 
 
Sub Button1_OnClick
 Dim TheForm
 Set TheForm = Document.forms("form1")
TheForm.mavaleur.Value =  Excel.range("a1").value
'MsgBox TheForm.mavaleur.Value 
      TheForm.Submit   
 
 
End Sub
 
</SCRIPT>