Bonjour à tous
J'ai créer un userform dans un fichier excel. Je souhaiterais que cette userform s'affiche avant la fermeture du fichier pendant 3 secondes puis disparaisse sans l'intervention de l'utilisateur.
Pour cela j'ai donc créer une macro qui permet de fermer le fichier et d'afficher l'userform avant fermeture:
Sub quitter()
Application.CommandBars(1).Enabled = True
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayWorkbookTabs = True
Sheets("Feuil1").Select
FlagFin = True
ActiveWorkbook.Saved = True
UserForm4.Show
ActiveWorkbook.Close
End Sub
Mon problème c'est que ma macro affiche bien l'userform avant la fermeture mais ne la fait pas disparaitre automatiquement.
L'intervention de l'utilisateur est necessaire pour fermer l'userform.
Existe-t-il une solution ???
J'ai créer un userform dans un fichier excel. Je souhaiterais que cette userform s'affiche avant la fermeture du fichier pendant 3 secondes puis disparaisse sans l'intervention de l'utilisateur.
Pour cela j'ai donc créer une macro qui permet de fermer le fichier et d'afficher l'userform avant fermeture:
Sub quitter()
Application.CommandBars(1).Enabled = True
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayWorkbookTabs = True
Sheets("Feuil1").Select
FlagFin = True
ActiveWorkbook.Saved = True
UserForm4.Show
ActiveWorkbook.Close
End Sub
Mon problème c'est que ma macro affiche bien l'userform avant la fermeture mais ne la fait pas disparaitre automatiquement.
L'intervention de l'utilisateur est necessaire pour fermer l'userform.
Existe-t-il une solution ???