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

OriginalL'auteur Mike | 2013-09-25