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.
Comment faire ?
Un grand merci pour votre aide