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

[hastaz]

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.

 

[sousou]

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