Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Application.quit bizarre...

Application.quit bizarre...

1 réponse
Avatar
René Delcourt
Il n'y a qu'une application ouverte mais msgbox(workbooks.count) me dit 2!!!

Y a-t-il des fichiers cachés?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Workbooks.Count = 1 Then
Application.Quit
End If
End Sub

--
René Delcourt
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Clément Marcotte
Y a-t-il des fichiers cachés?


Oui, Perso.xls



"René Delcourt" a écrit dans le message de news:

Il n'y a qu'une application ouverte mais msgbox(workbooks.count) me dit
2!!!

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Workbooks.Count = 1 Then
Application.Quit
End If
End Sub

--
René Delcourt