Bonjour,
J'utilise une macro qui ouvre un classeur et attend sa fermeture à l'aide d'une boucle.
Lorsque je ferme manuellement ce classeur, la macro s'arrête totalement sans exécuter les instructions suivantes.
Voici la macro :
Lors de l'exécution, seul le texte "position 1" est écrit. Tout le reste est ignoré à la fermeture manuelle de Liste.xlsx.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18 Sub TestFermetureManuelleClasseurOuvertParProgramme() Workbooks.Open Filename:="c:\Liste.xlsx" Debug.Print "Position 1" Do DoEvents For i = 1 To Workbooks.Count If Workbooks(i).Name = "Liste.xlsx" Then Exit For End If Next i If i > Workbooks.Count Then Debug.Print "position 2" Exit Do End If Loop Debug.Print "position 3" Stop End Sub
Partager