XL 2016 Ouvrir tous les fichier xlsm d'un même dossier

alexandreb06

XLDnaute Nouveau
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.

VB:
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
 

job75

XLDnaute Barbatruc
Bonsoir alexandreb06, JM,

Une boucle comme celle-ci sera sans doute mieux :
VB:
Do While Fichier <> ""
    With Workbooks.Open(Chemin & Fichier)
        If .Name <> ThisWorkbook.Name Then Call Action
        .Close False
    End With
    Fichier = Dir
Loop
A+
 

Discussions similaires