bonjour , j'ai une petite question rapide, j'utilise la méthode fso pour inventorier mes fichiers ( pas forcement des fichier excel ) et fermer ceux ci que ne m 'intéresse pas s'il sont ouverts :
Dim fso As Object
Set fso = CreateObject("scripting.filesystemobject")
chemin = "c:\users\" & Environ("username") & "\desktop"
Set f = fso.GetFolder(chemin).Files
For Each f In f
If Mid(fso.GetFileName(f), 1, Len(fso.GetFileName(f)) - 4) <> "ABC Or _ 'je recupere le nom du fichier sans l'extension
Mid(fso.GetFileName(f), 1, Len(fso.GetFileName(f)) - 4) <> "DEF" Then
f.Close 'ici cette instruction ne marche pas
End If
Next
j'ai indiqué la ligne du beug , comment pourrais je la modifier ? Encor merci pour vos idées