Lancement automatique d'un script exemple

[jean-pierre2]

Comment lancer à l'ouverture d'un compte le script "Porte monnaie" par exemple sans avoir à passer par le menu Outils "lancer un script".
Merci et à bientôt

[patrick]

Pour cela vous devez utiliser le script chargé automatiquement :

AUTOLOAD.VBS

Ce script doit contenir une fonction Sub de nom OnOpen(), cette fonction sera appellée à chaque ouverture d'un compte. Vous pouvez alors décider en fonction du nom de clé du compte d'ouvrir ou non le Porte Monnaie pour ce compte.

Penser aussi à inclure le chargement du script Porte Monnaie dans le fichier AUTOLOAD.VBS.

Voici un exemple de code à insérer dans AUTOLOAD.VBS pour réaliser ceci; On suppose ici que le script portemon.vbs se trouve dans le sous répertoire SCRIPT de votre répertoire données. Le script AUTOLOAD.VBS doit lui être à la racine du répertoire données pour être chargé automatiquement au lancement de VBW.

Code: Tout sélectionner

' Chargement du script Porte Monnaie
#include=script\portemon.vbs
VBW.DeleteMenu "Porte Monnaie"      ' Pour éviter un doublon si rechargement
VBW.AddMenu "Porte Monnaie","Monnaie"
                                   
' Script lancé automatiquement à l'ouverture d'un compte
sub OnOpen()
if not IsObject(VBW.LastDoc())  then exit Sub
' Si c'est un des comptes qui nous intéressent alors on ouvre le Porte Monnaie
if VBW.LastDoc.Entry.Key = "CPTX" then Monnaie
if VBW.LastDoc.Entry.Key = "CPTY" then Monnaie
End sub


Patrick