VBA Excel macro boîte de message de fermeture auto
J'ai une macro Excel qui s'exécute sur l'ouverture du fichier, ouvre un autre fichier excel, actualise les données, enregistre et ferme ensuite.
J'ai aussi un peu moyen (Dim AckTime) qui affiche un message pop-up pour la deuxième montrer de quoi il est fait.
MAIS.. Depuis que j'ai mis la macro à exécuter sur l'ouverture d'un classeur à l'aide de Public Sub Workbook_Open() la boîte de message pop-up s'ouvre mais ne se ferme pas automatiquement sur 1 seconde de plus.
Peut aider quelqu'un?
Public Sub Workbook_Open()
Application.ScreenUpdating = False Application.DisplayAlerts = False
Application.AskToUpdateLinks = False
With Workbooks.Open("\\filename.xlsm")
ActiveWorkbook.RefreshAll 'updates the data
ActiveWorkbook.Sheets("Dashboard").Range("A2").Value = DateTime.Now
' updates this cell with the current time
Dim AckTime As Integer, InfoBoxWebSearches As Object
Set InfoBoxWebSearches = CreateObject("WScript.Shell")
AckTime = 1
Select Case InfoBoxWebSearches.Popup("Updated, saving & closing...", _
Case 1, -1
End Select
.Save
.Saved = True 'when saved..
.Close 0 'close the file
End With
End Sub
Avons constaté que cela fonctionne tout aussi bien
CreateObject("WScript.Shell").Popup "de votre message. .", 1, "en-tête de message" " pop up qui se ferme en 1 seconde
C'était vraiment sympa Mike 🙂
Cela est-il encore travailler? Microsoft ont fait quelques changements à la manière dont un processus peut fermer une boîte de message lancé par un autre: j'ai posté une longue explication ici
CreateObject("WScript.Shell").Popup "de votre message. .", 1, "en-tête de message" " pop up qui se ferme en 1 seconde
C'était vraiment sympa Mike 🙂
Cela est-il encore travailler? Microsoft ont fait quelques changements à la manière dont un processus peut fermer une boîte de message lancé par un autre: j'ai posté une longue explication ici
OriginalL'auteur Mike | 2013-09-25
Vous devez vous connecter pour publier un commentaire.
Devrait être votre seule erreur. Vous venez de ne pas définir le temps d'attente.
OriginalL'auteur Joe Laviano