Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 parcours et traitement de plusieurs fichiers d'un même dossier selon critère

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 !

hastaz

XLDnaute Nouveau
Bonjour le forum,
Je souhaiterai choisir un dossier de mon répertoire à travers une boite de dialogue et mettre en format spécifique plusieurs fichiers appartement au dossier séléctionné . Chaque fichier nécessite un traitement spécial et propre à lui , j'ai pensé à une VBA qui parcoure tous les fichiers d'un dossier et si le nom du fichier contient un mot que je spécifie "\*mot specifique*.xlsx". alors elle lui applique un traitement et ainsi de suite pour tout les autres fichier du dossier.
Peut on faire une boucle while avec des if, elsif imbriqués dedans ? si oui, pourriez vous me donner un exemple.
merci d'avance.
 
bonjour,
Voici un modèle que tu peux appliquer
Sub db()
motcles = Array("txt", "xlsm")
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
chemin = .SelectedItems(1) & "\"
End With
Set fso = CreateObject("scripting.filesystemobject")
Set dossier = fso.getfolder(chemin)
For Each i In dossier.Files
For n = 0 To UBound(motcles)
If InStr(1, i, motcles(n)) <> 0 Then Call traitement(i, n)
Next
Next
End Sub


Sub traitement(fichier, numtraitement)
Select Case numtraitement
Case Is = 0
MsgBox fichier & Chr(13) & " traitement 1"
Case Is = 1
MsgBox fichier & Chr(13) & " traitement 2"

End Select
 
- 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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…