Fermeture repertoire

[embodu]

Bonsoir!

Je souhaite par une macro fermer tous les fichiers d'un répertoire tout en laissant ouverts ceux ou celui-ci qui n'y appartiennent (tient) pas.

Remerciements

 

[zon]

Bonsoir à tous,


embodu, pour commencer si tes fichiers sont dans la même appli Excel:

Ici j'ai mis D:, tu remplaces juste le chemin d'accés


Sub Rep()
Dim WB As Workbook
For Each WB In Workbooks
If WB.Path = "D:" Then WB.Close
Next WB
end sub

qu'on peut mettre avec une variable en paramètre comme suit :

Sub Rep(Pat as string)
Dim WB As Workbook
For Each WB In Workbooks
If WB.Path = Pat Then WB.Close 'rajouter savechanges:=false or true pour éviter les messages de fermetures
Next WB
end sub

Donc ensuite dans qhaque macro où tu en aurais besoin, tu l'appelles de la façon suivante:

Sub Toto()
call Rep("C:\tonrepertoire")
End Sub



A+++

Vu ton adresse, tu es expatrié en italie ...