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 ...