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

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

Bonjour,

Dans ta macro une instruction spécifique permet d'exclure le fichier "0. IMPORT.xlsm" ...

est-ce ce fichier dont tu parles ...?

Bonjour,

Essaie avec :

Fichier = Dir(Chemin & "*.xls", "*.xlsx")

Mais ta boucle devra être modifiée.

Cdlt.

@James007 oui je fait exprès d'exclure le fichier import, mais je souhaite ouvrir les autres fichiers xlsm du dossier

@Jean-Eric Je n'ai aucun problème pour ouvrir les fichiers xls ou xlsx suffit juste de modifier la ligne

Fichier = Dir(Chemin & "*.xls")

ou

Fichier = Dir(Chemin & "*.xlsx")

Par contre si je met xlsm, la macro ne fonctionne plus

Fichier = Dir(Chemin & "*.xlsm")

Re,

Pas sûr de tout comprendre ...

Tu pourrais essayer ... comme extension :

"*.xls*"

En espèrant que cela t'aide

J'avais essayé cette solution, mais non les fichiers xlsm ne s'ouvrent pas

Le problème paraît tout bête, et pourtant un vrai casse-tête lol

Re,

Ci-dessous une modification ... à tester ...

Sub OuvrirFichiers2()
Dim Fichier As String, Chemin As String
Dim Wb As Workbook
Chemin = "C:\Users\Alexandre\Desktop\Nouveau dossier (4)\"
Fichier = Dir(Chemin & "*.xls*") 
Do While Fichier <>"" 
If Fichier.Name <> "0. IMPORT.xlsm" Then 
         Set Wb = Workbooks.Open(Chemin & Fichier)
         Call action
         Wb.Close True
         Set Wb = Nothing
         Fichier = Dir
End If
Loop
End Sub

En espèrant que cela t'aide

Merci James malheureusement j'ai une erreur

capture

Re,

Effectivement la variable Fichier est un String ...

Bien sûr, le nom du fichier Import à exclure doit être correctement orthographié ....

Sub OuvrirFichiers3()
Dim Fichier As String, Chemin As String
Dim Wb As Workbook
Chemin = "C:\Users\Alexandre\Desktop\Nouveau dossier (4)\"
Fichier = Dir(Chemin & "*.xls*") 
Do While Fichier <>"" 
If Fichier<> "0. IMPORT.xlsm" Then 
         Set Wb = Workbooks.Open(Chemin & Fichier)
         Call action
         Wb.Close True
         Set Wb = Nothing
         Fichier = Dir
End If
Loop
End Sub

A tester ...

Malheureusement il boucle à l'infini sans jamais rentré dans le if

Re,

Désolé que cela ne puisse pas t'aider ...

De mon côté, je viens de faire le test .... qui fonctionne correctement sur mon PC ...

Rechercher des sujets similaires à "ouvrir tous fichier xlsm meme dossier"