fermer des fichiers xls en VBA

[mauco]

Bonjour à tous,

Ci-dessous quelques lignes pour enregistrer et fermer tous les classeurs excel ouverts :

Sub ExitExcel_QuandClic()
For Each w In Application.Workbooks
w.Save
Next w
Application.Quit
End Sub

Je souhaite améliorer la procédure en testant le nom des fichiers à fermer.
Pour tous les fichiers commençant par la lettre 'T' je veux fermer SANS sauvegarder et sans avoir le message automatique de demande de confirmation si on souhaite enregistrer ou non.

Merci pour votre aide

 

[CBernardT]

Bonsoir Mauco,

Je te propose le code suivant :

Sub ExitExcel_QuandClic()
Dim Wb As Object

For Each Wb In Workbooks
If Left(Wb.Name, 1) <> 'T' And Wb.Name <> ThisWorkbook.Name Then
Wb.Save
Wb.Close
End If
Next Wb
For Each Wb In Application.Workbooks
If Left(Wb.Name, 1) = 'T' And Wb.Name <> ThisWorkbook.Name Then
On Error Resume Next
Wb.Saved = True
Wb.Close
End If
Next Wb
ThisWorkbook.Saved = True
ThisWorkbook.Close
End Sub


Cordialement

Bernard

 

[mauco]

Un grand merci à toi Bernard, pour ta réponse rapide et pour l'efficacité de ton post.