Fermeture repertoire

  • Initiateur de la discussion embodu
  • Date de début
E

embodu

Guest
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
 
Z

zon

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

Discussions similaires

Réponses
8
Affichages
196

Statistiques des forums

Discussions
311 723
Messages
2 081 934
Membres
101 844
dernier inscrit
pktla