Action macro sur plusierus fichiers du même dossier

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Ken Hutchinson

XLDnaute Occasionnel
Bonjour le forum,

J'ai créé une macro qui fait une action sur un type de fichier. Je voudrais que cette macro puisse s'executer sur tous les fichiers d'un dossier qui sont identiques.

Genre je choisi le dossier et la macro les ouvre un par un et fait son travail...

Comment faire ça ?

merci de votre aide.
 
Re : Action macro sur plusierus fichiers du même dossier

Bonjour,


Code:
Sub essai()
  repertoire = ThisWorkbook.Path & "\BD\"
  nf = Dir(repertoire & "*.xls") ' Premier fichier excel
  Do While nf <> ""
     Workbooks.Open Filename:=repertoire & nf
     Range("C3:C11").Interior.ColorIndex = 3
     Workbooks(nf).Close savechanges:=True
     nf = Dir()             ' fichier suivant
  Loop
End Sub

JB
Formation Excel VBA JB
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
9
Affichages
521
Réponses
3
Affichages
516
Retour