Extension du fichier

Bonjour le forum,

J'ai conçu récemment une macro pour fusionner plusieurs fichiers d'un même répertoire.

Cependant il me fusionne également les fichiers cachés

Du coup, j'essaye de savoir comment je peux faire pour que cette macro prenne en compte que les fichier XLS.

For Each Fichier In dossier.Files
            NomFichier = Fichier.Name
             If Not Fichier.Name = "transactions.xlsm" Then 
....

Pour l'instant, elle s’exécute pour tous les fichiers sauf celui qui se nomme "transaction.xlsm"

Il faudrait que je la modifie de la sorte à ce qu'elle prenne uniquement les fichiers avec l'extension .xls

Si quelqu'un à la solution, ça serait cool.

Merci

Bonjour,

As tu essayer juste avec "*.xl*"

J'ai résolu un code grâce à ça.

Bonjour cucuclan,

j'ai essayé ça mais sans succès :

 If Fichier.Name = "*.xls*" Then

Finalement j'ai enlevé la seconde étoile et ça marche :

 If Fichier.Name = "*.xls" Then