VBA ouvrir fichier Excel sans connaitre son extension

Bonsoir à tous et à toutes

j'utilise le code suivant pour ouvrir le fichier

Workbooks.Open Filename:=ThisWorkbook.Path & "\TEST.xls"

Mais si ce fichier est enregistré en .xlsx ou .xlsm ou autre, le code ne fonctionne plus

Avez-vous une solution à me proposer?

Merci

Bonsoir,

J'ai bien une petite idée...

Pourquoi ne pas gérer ça avec une condition? Genre:

Si ouverture de fichier .xls alors fin de la commande, sinon

Si ouverture de fichier .xlsx alors fin de la commande, sinon

Si ouverture de fichier .xlsm alors fin de la commande, sinon

et cetera

Bien à vous,

Aikamaru.

Bonjour à tous,

As-tu essayé en enlevant le ".xls" ?

Bonsoir aikamaru

c'est une possibilité mais je recherche une commande globale

Bonsoir vba-new

c'est si simple de se compliquer la vie

Cela a l'air de fonctionner

Merci de votre aide

Bonne soirée

je pense que tu peux essayer ça, tu remplaces le s de l'extension par une étoile

Workbooks.Open Filename:=ThisWorkbook.Path & "\TEST.xl*"