Discussion :

[joponta]

Bonjour,

Dans les macros ci-dessous, j'effectue la fermeture automatique du fichier après un certain temps.
Par contre lorsque que j'ai des Userforms ouvert, il ne se passe rien.
Je cherche donc à fermer les userforms dans la macro.

Dans this workbook :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
temp = Now + TimeValue("00:30:10")
Application.OnTime temp, "arret"

Dans un module :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub arret()
Unload UserForm3
ActiveWorkbook.Close True
End Sub

[Ben_L]

Bonjour,

Lorsque vous demandez l'affichage de votre UserForm, le faîtes-vous en modal ou en non modal ?
Ou pour dire les choses peut-être un petit peu plus clairement, pouvez vous poster la (ou les) lignes qui mettent en œuvre la méthode Show ?

Cdt

[joponta]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
UserForm3.Show
temp = Now + TimeValue("00:30:10")
Application.OnTime temp, "arret"

[Ben_L]

L'utilisation de la méthode Show sans argument revient à lancer la UserForm en modal.
Cela signifie que le code de la routine qui demande l'affichage de la Userform va s'arrêter jusqu'à ce que la UserForm soit fermée (je ne sais plus si le fait de la cachée sans la fermer provoque la reprise du code de la routine appelante, c'est à vérifier).

Vous pouvez vous en rendre compte en plaçant un point d'arrêt sur la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

temp = Now + TimeValue("00:30:10")

. En lançant votre code, vous devriez alors voir que la ligne en question n'est exécutée qu'une fois la UserForm fermée.

Il est possible de contourner ce problème en demandant l'affichage de la UserForm de la façon suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

UserForm3.Show vbModeless

Cdt

[joponta]

Cela fonctionne.
Merci à vous.