VBScript - Excel - lancer une fonction VBA ou appuyer sur un bouton VBA [Résolu]

Signaler
Messages postés
4
Date d'inscription
samedi 23 juillet 2005
Statut
Membre
Dernière intervention
21 mai 2007
-
_erwan
Messages postés
4
Date d'inscription
samedi 23 juillet 2005
Statut
Membre
Dernière intervention
21 mai 2007
-
Bonjour,

j'ai actuellement un feuille Excel sur laquelle j'ai réalisé tout un enchainement de fonctions/procédures qui s'effectue après avoir appuyé sur un bouton.

c'est une action que je dois réaliser tous les jours, j'ai donc pensé pour cela à automatiser cette action.
pour cela j'ai exploré 2 pistes :

- l'utilisation de OnTime : en utilisant ce code :

Sub Test()

  Application.OnTime ("09:00:00"), "commandbutton1_Click"

End Sub

mais cela ne fonctionne pas, cela ne lance pas commandbutton1_Click () même si ce code est sur la même feuille Excel.

- l'utilisation d'un VBScript qui me laisse à mon goût plus de possibilité (ouvrir et ferme Excel et travailler en tache de fond) que je lancerais par le planificateur de tâche.
j'arrive à lancer Excel, ouvrir ma feuille, aller sur la feuille comportant mon bouton mais je n'arrive pas à cliquer sur le bouton même OU alors à lancer directement ma fonction qui se trouve sur cette page.

avez-vous des idées pour me débloquer ? Merci

2 réponses

Messages postés
4
Date d'inscription
samedi 23 juillet 2005
Statut
Membre
Dernière intervention
21 mai 2007

ça pas l'air de fonctionner j'ai ce message d'erreur au lancement de mon VBScript :
---------------------------
Windows Script Host
---------------------------
Script :    C:\************************
Ligne :    22
Caract. :    1
Erreur :    Type incompatible: 'LeClicDeMonBouton'
Code :    800A000D
Source :     Erreur d'exécution Microsoft VBScript
----------------------------------------------------

mais par contre à la place du Call LeClicDeMonBouton, j'ai utilisé :

Set appExcel = CreateObject("Excel.Application") 
appExcel.Run "LeClicDeMonBouton"

et là ça marche.

Merci !!
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
16
Salut,

tout le code qui se trouve dans CommandButton1_Click, tu le coupes,
tu insères un Module dans ton projet, avec une procédure Public
(style Public Sub LeClicDeMonBouton()  )
et le colles dans cette procédure le code qui se trouvait dans le CommandButton1_Click

Dedans à la plce tu mets Call LeClicDeMonBouton
Pareil, avec le OnTime : Application.OnTime ("09:00:00"), "Module1.
LeClicDeMonBouton"

@++

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~