Execution du code sur plusier fichier

Bonjour à tous,

Je rencontre actuellement un problème avec un code VBA que j'ai écrit pour traiter plusieurs fichiers, mais il semble ne traiter que le premier fichier et ignorer les autres. Je suis assez nouveau dans le monde de la programmation VBA et je suis un peu perdu.

Voici le code que j'ai utilisé :

Sub Remplacemennumlettre()
Dim ws As Worksheet
Dim cell As Range
Dim plageRecherche As Range
Dim cellValue As String
Dim i As Integer
Dim numeros As Variant
Dim lettres As Variant
numeros = Array("11", "10", "9", "8", "7", "6", "5", "4", "3", "2", "1")
lettres = Array("FICHE DE LIQUIDATION", "AQUIT A CAUTION", "bon de franchise", "AUTORISATION AUTRE ORGANISME DE CONTROLE", "AUTORISATION", "LISTE DE COLISAGE", "BAD", "LTA", "magic", "FACTURES", "DUM")
Set ws = ActiveSheet
Set plageRecherche = ws.Columns(2) ' colonne B
For Each cell In plageRecherche.Cells
If Not IsEmpty(cell.Value) Then
cellValue = cell.Value
For i = LBound(numeros) To UBound(numeros)
cellValue = Replace(cellValue, numeros(i), lettres(i))
Next i
cell.Value = cellValue
End If
Next cell
End Sub

Sub TraitePlusieursFichiers()
Dim dossier As String
Dim fichier As String
Dim wb As Workbook
dossier = "C:\Users\DARCONECT\Desktop\exemple\"
fichier = Dir(dossier & ".xls")
Do While fichier <> ""
Set wb = Workbooks.Open(dossier & fichier)
wb.Sheets(1).Activate
Remplacemennumlettre
wb.Close SaveChanges:=True
fichier = Dir
Loop
MsgBox "Tous les fichiers ont été remplacés !"
End Sub

Le problème est que ce code semble traiter uniquement le premier fichier trouvé dans le dossier spécifié, puis il se termine sans traiter les autres fichiers. J'aimerais que le code parcourt tous les fichiers Excel présents dans le dossier et effectue le même traitement sur chacun d'eux.

Est-ce que quelqu'un pourrait m'aider à comprendre ce qui ne va pas dans mon code et comment le corriger pour qu'il traite tous les fichiers ?

Merci d'avance pour votre aide précieuse !

Cordialement,

EDIT Modo : merci d'utiliser les balises de code lorsque vous postez un code et ce via l'icone </> dans la barre de menu. J'ai corrigé votre post

Hey,

Pour traiter des données de plusieurs fichiers dans un dossier, il vaut mieux passer par PowerQuery, tu serais ouvert sur cette option ?

On pourra reproduire les traitements que tu fais en PowerQuery avec un maintenance plus simple

@+

oui je suis ouvert a toutes les options

Tu peux envoyer un exemple de fichier représentatif ?

@+

merci j'ai trouvé un sollution