Fermer application Excel sous conditions

Bonjour a vous tous,

Voila mon problème :

J'ai cree une macro qui lorsque je suis en lecture seule et demande la fermeture de mon classeur, celui ci se ferme sans que excel ne demande d'enregistrer une copie. l'application excel ne se ferme pas au cas ou d'autres classeurs seraient ouverts.

J'aimerai que une fois mon classeur fermé, excel se ferme aussi si aucun autre classeur n'est ouvert.

voici mon code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

If ThisWorkbook.ReadOnly = True Then

ThisWorkbook.Saved = True

ThisWorkbook.Close ' Ferme uniquement le classeur consulté ; laisse les autres éventuels classeurs ouverts dans EXCEL

Else

End If

End Sub

Merci a vous

Hello,

Tu peux tester stp :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

if Workbooks.Count >1  and ThisWorkbook.ReadOnly = True then
ThisWorkbook.Saved = True 
ThisWorkbook.Close ' Ferme uniquement le classeur consulté ; laisse les autres éventuels classeurs ouverts dans EXCEL

elseif ThisWorkbook.ReadOnly = True Then

ThisWorkbook.Saved = True 
ThisWorkbook.Close ' Ferme uniquement le classeur consulté ; laisse les autres éventuels classeurs ouverts dans EXCEL
Application.Quit
End If

End Sub

R@g

Re bonjour,

j'ai un peu avancé sur mon code mais excel (l'application ne se ferme pas)...surement car ma macro n'est plus active lorsque le classeur est fermé...

voici mon code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

If ThisWorkbook.ReadOnly = True and Application.Workbooks.Count = 1 Then

ThisWorkbook.Saved = True

ThisWorkbook.Close ' Ferme uniquement le classeur consulté ; laisse les autres éventuels classeurs ouverts dans EXCEL

Application.Quit

ElseIf ThisWorkbook.ReadOnly = True and Application.Workbooks.Count > 1 Then

ThisWorkbook.Saved = True

ThisWorkbook.Close ' Ferme uniquement le classeur consulté ; laisse les autres éventuels classeurs ouverts dans EXCEL

else

end if

End Sub

il faudrait que le code soit actif jusqu a la fin des instructions....

Peut etrre placer mon code ailleurs ?

Merci de votre aide

ps : Rag02700 je viens de te lire en meme temps que j'ecrivais, notre code semble similaire

excel ne se ferme pas

Jc Jez

bonsoir,

Supprimer le deuxième

ThisWorkbook.Close

A+

Bonsoir Galopin01,

cela ne fonctionne pas, excel reste ouvert...

Je te cause de la solution de jc ! (Avec Application.Quit)

Évidemment à ta sauce...

Nota : A l'avenir prière d'utiliser la balise </> pour le code VBA

A+

Au temps pour moi Galopin01, cela fonctionne !!

Merci A toi

Bonne soirée

Jc Jez