apache88
Messages postés78Date d'inscriptionmercredi 26 janvier 2005StatutMembreDernière intervention19 mars 2014
-
18 mars 2014 à 15:09
jordane45
Messages postés37537Date d'inscriptionmercredi 22 octobre 2003StatutModérateurDernière intervention 6 juin 2023
-
19 mars 2014 à 14:28
Bonjour,
J'ai créé le script VBS suivant:
Dim Xl dim wk
Set Xl = WScript.CreateObject("Excel.Application") Xl.Visible = False set Wk = Xl.workbooks.open("C:\test\Indicateur_accident") Xl.Run "macro1"
wk.Close xl.Application.Quit
Il permet donc d'ouvrir un fichier Excel et lancer automatique une macro. Dans la macro Excel, il y a un UserForm qui est affiché:
Private Sub Workbook_Open() UserForm1.Show End Sub
Mon problème est le suivant, je dois faire en sorte que ce qui est affiché par la macro se ferme automatiquement après 30 sec.