Discussion :

[MicheMTP13]

Bonjour,

j'ai un bug à cause de ce petit script en vb....ca marche mais j'ai le message d'erreur suivant:
"l'appel d'une fonction Sub n'admet pas de parenthèses"

Mon code est le suivant:

Code :

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

1
2
3
4
5
6
7
 
<script type="text/vbscript">
Function lotus
	Set objApp = CreateObject("WScript.Shell")
	objApp.Run "\\mspwin7\usr\PI\AccesBDDLotus\LancementBaseNotes.bat"
End Function
</script>

et l'appel de cette fonction est :

Code :

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

1
2
 
<a href="vbscript:lotus()" class="gris_over">Annuaire Retraite Lotus</a>

[pc75]

Bonjour,

Il ne te manquerai pas les parenthèses ?

Code :

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

1
2
3
4
5
6
7
 
<script type="text/vbscript"> 
Function lotus()
   Set objApp = CreateObject("WScript.Shell") 
   objApp.Run "\\mspwin7\usr\PI\AccesBDDLotus\LancementBaseNotes.bat" 
End Function 
</script>

[MicheMTP13]

ben j'ai testé avec les parenthèses et cela ne donne rien de mieux......

[Xo]

Je ne connais pas VBS, mais en VB, une fonction est faite pour renvoyer une valeur. Remplace Function par Sub dans ton code voir si ça fonctionne mieux ?

[MicheMTP13]

Non j'ai essayé en remplacant Function par Sub mais pas mieux....
J'ai testé également en mettant et enlevant les parenthèses......pas de résultats.....

[AlainTech]

"l'appel d'une fonction Sub n'admet pas de parenthèses"

C'est donc dans l'appel qu'il y a un problème.

J'essaierais:

Code :

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

<a href="vbscript:lotus" class="gris_over">Annuaire Retraite Lotus</a>

Et comme dit plus haut, si une fonction ne renvoie rien, c'est une Sub.