Bonjour à tous, j'ai un problème tout bête "je pense", mais je bute dessus
Ci dessous j'ai un code qui me permet d'ouvrir tous les fichiers xls ou xlsx d'un même dossier pour pouvoir leurs effectuer une action.
Par contre si mon dossier comporte que des fichiers xlsm la macro ne fonctionne plus.
Merci aux personnes qui voudront bien s'y pencher dessus.
Sub ouvrirfichiers()
Dim Fichier As String, Chemin As String
Dim Wb As Workbook
Chemin = "C:\Users\Alexandre\Desktop\Nouveau dossier (4)\"
Fichier = Dir(Chemin & "*.xlsm")
Do While Fichier <> "0. IMPORT.xlsm"
Set Wb = Workbooks.Open(Chemin & Fichier)
Call action
Wb.Close True
Set Wb = Nothing
Fichier = Dir
Loop
End Sub