Bonjour,

J'utilise une procédure :

Application.OnTime EarliestTime:=CloseTime, Procedure:="Test_Affichage_UF", Schedule:=False
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub AfficherSecondes()
Dim i As Integer, n As Single
 
    n = (CloseTime - Now) * 24 * 3600
    For i = n To 1 Step -1
        Me.LabelTime = i
        Application.Wait (Now + TimeValue("00:00:01"))
        DoEvents
        On Error GoTo fin   'si clic sur Fermer > Erreur > Fin:
        If Me.Visible = False Then Exit For
    Next i
fin:
End Sub
pour fermer un classeur automatiquement après compte à rebours (si aucune action de l'utilisateur).

Problème : mon UF s'affiche si je suis sur Excel (classeur actif ou autre) mais pas si je suis sur un autre programme.

Question : peut-on "forcer" l'affichage d'Excel à l'écran si une autre application (pptx, docx, navigateur, etc.) est "active" ?

En vous remerciant par avance pour vos lumières,
Cordialement,