VBScript - Excel - lancer une fonction VBA ou appuyer sur un bouton VBARésolu

Question

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

_erwan · Accepted Answer

ç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 !!

mortalino · Answer

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~

VBScript - Excel - lancer une fonction VBA ou appuyer sur un bouton VBA

2 réponses

Votre réponse

Discussions similaires