1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VBA Office (Excel, Word ...)
Sujet Précédent Sujet Suivant

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
32958
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
14 juin 2021
 -
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

3 réponses

Réponse 1 / 3
Messages postés
32958
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
14 juin 2021
 351
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
32958
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
14 juin 2021
 351
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
32958
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
14 juin 2021
 351
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