Fermer un type de fichier

[Fred]

Bonsoir,

Je souhaiterais en quittant mon application fermé un type de fichier bien précis

J'ai essayé :

Workbooks.close 'Ferme tous les classeurs ouverts
Workbook(Nom du fichier).close 'Ferme un classeur bien défini

Comment faire pour fermer uniquement les classeurs avec extension txt ???

Merci de vos réponses
Fred

 

[michel]

Bonsoir fred

l'exemple ci dessous ferme tous les fichiers TXT ouverts dans Excel

Sub FermerFormatTXT()
Dim Classeur As Workbook
Application.ScreenUpdating = False
For Each Classeur In Workbooks
If Right(Classeur.Name, 3) = "txt" Then Classeur.Close
Next Classeur
Application.ScreenUpdating = True
End Sub


bonne soirée
Michel

 

[Fred]

Merci beaucoup ....
ça me convient parfaitement

Bonne soirée Michel
A+