VBS et Macro ExcelRésolu

Question

Bonjour, 

J'ai créé le script VBS suivant:

Dim Xldim wkSet Xl = WScript.CreateObject("Excel.Application")Xl.Visible = Falseset Wk = Xl.workbooks.open("C:	est\Indicateur_accident")Xl.Run "macro1"wk.Closexl.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.ShowEnd 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

jordane45 · Answer

Bonjour,
je dois faire en sorte que ce qui est affiché par la macro se ferme automatiquement après 30 sec. 
Cette question concerne donc du VBA. Je déplace le sujet dans la bonne section du forum.

jordane45 · Answer

Bonjour,

Fermeture automatique de la USERFORM au bout de 30 secondes :


Dans ta USERFORM :

Private Sub UserForm_Initialize()
    dTime = Time + TimeValue("00:00:30")
    Application.OnTime dTime, "KillUserForm"
End Sub

Dans un MODULE :

Public dTime As Date
Sub KillUserForm()
    Unload UserForm1
End Sub

apache88 · Answer

Bonjour,

Un très grand merci à vous, ça fonctionne parfaitement ! 
 
Bonne journée
--

VBS et Macro Excel

3 réponses

Votre réponse