Bonjour
@RCAVBA , le Forum
As-tu essayé sans indiquer l'extension du tout ?
Workbooks.Open Filename:=ThisWorkbook.Path & "\TEST"
Normalement il ouvrira le premier "Text.xl*" qu'il trouvera dans le répertoire...
Et sinon il reste à faire appel à la boite de dialog :
Application.GetOpenFilename("microsoft excel files (*.xl*),")
Bonne soirée
@+Thierry