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

[alexandreb06]

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

 

[Staple1600]

Bonsoir

En testant avec cette modif, cela donne quoi?
Fichier = Dir(Chemin & "*.xls*")
ou aussi
Fichier = Dir(Chemin & "*.xls?")

 

[alexandreb06]

Je ne connaissais pas la deuxième solution malheureusement aucune fonctionne 😕

 

[job75]

Bonsoir alexandreb06, JM,

Une boucle comme celle-ci sera sans doute mieux :

Do While Fichier <> ""
    With Workbooks.Open(Chemin & Fichier)
        If .Name <> ThisWorkbook.Name Then Call Action
        .Close False
    End With
    Fichier = Dir
Loop

A+

 

[alexandreb06]

merci job75 malheureusement sans succès.

Le code est bien écrit mais impossible d'ouvrir les fichiers xlsm

 

[job75]

Le code est bien écrit mais impossible d'ouvrir les fichiers xlsm

Alors c'est que le chemin d'accès n'est pas bon ou que la macro "Action" bloque la boucle.