Discussion :

[GuiJenn34]

Bonjour,

J'ai cherché pour créer une boucle sur une macro.
Jusqu'ici implacable en revanche quand je ferme Excel avec la croix, la feuille s'ouvre au bout des x seconde (de la boucle).
Mais selon ma condition Excel ne se ré-ouvre plus (Ou se ré-ouvre le même nombre de fois que j'ai cliquer sur la croix rouge).

Je penses que cela vient du Private Sub Workbook_BeforeClose(Cancel As Boolean), mais je ne sais pas plus
Savez vous pourquoi ?

Code :

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

1
2
3
4
5
6
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnTime Now, "FerAuto", False
End Sub
Public Sub Workbook_Open()
    Call FerAuto
End Sub

Code :

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

1
2
3
Public Sub Lancer()
    Application.OnTime Now + TimeSerial(0, 0, 5), "FerAuto"
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub FerAuto()
    If Fermeture_Auto = 1 Then
    MsgBox "l'administrateur système requiert la fermeture du fichier excel" & vbLf _
    & "pour des raison de maintenance" & vbLf & vbLf _
    & "Merci de votre compréhention" _
    , vbCritical, "Information pour l'utilisateur " & UCase(Environ("Username"))
    ThisWorkbook.Close False
    Else
        Lancer
    End If
End Sub

[GuiJenn34]

Je penses comprendre est-ce que quand une autre feuille Excel est ouverte cela reste en mémoire ?
C'est à dire tant que toutes les feuilles Excel ne sont pas fermé la macro tourne ?

[GuiJenn34]

Bonjour,
Avez vous une solution ?
(Bien sur sans fermer les autres fichiers Excel).
Bien Cdt.