1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VBA Office (Excel, Word ...)

VBS et Macro Excel [Résolu]

Signaler
Messages postés
78
Date d'inscription
mercredi 26 janvier 2005
Statut
Membre
Dernière intervention
19 mars 2014
 -
Messages postés
30286
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
24 novembre 2020
 -
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
Afficher la suite

3 réponses

Réponse 1 / 3
Messages postés
30286
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
24 novembre 2020
 338
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

Réponse 2 / 3
Messages postés
30286
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
24 novembre 2020
 338
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.
Réponse 3 / 3
Messages postés
78
Date d'inscription
mercredi 26 janvier 2005
Statut
Membre
Dernière intervention
19 mars 2014
Bonjour,

Un très grand merci à vous, ça fonctionne parfaitement !

Bonne journée
--
Signaler
Messages postés
30286
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
24 novembre 2020
 338
Bonjour,

Pensez à cliquer sur le lien "Marquer comme résolu" qui se trouve sous le titre de votre question.

Bonne continuation.
Répondre Posez votre question