Forcer affichage Excel si autre programme "actif"
Bonjour,
J'utilise une procédure :
Citation:
Application.OnTime EarliestTime:=CloseTime, Procedure:="Test_Affichage_UF", Schedule:=False
Code:
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,
