Microsoft 365 Code VBA - prise en compte de tous les types des extensions des fichiers Excel à ouvrir

[RCAVBA]

Bonjour à tous,

Je souhaiterais modifier mon code ci-dessous à telle sorte de prendre en compte tous les types d'extensions sans faire rentrer une extension donnée.

L'objectif est d'ouvrir un fichier via la fonction en renseignant au préalable dans des cellules le dossier du fichier, le nom du fichier ainsi que l'extension:

If (TestFichierOuvert(nom_fichier_origine + extension) = True) Then Workbooks.Open Filename:=adresse_dossier_du_fichier+ "\" + nom_du_fichier + extension

Serait-il possible de ne pas renseigner l'extension et de prendre en compte tous les types d'extension : xls, xlsx, xlsb...

NB. l'extension est une variable dans mon code.

Merci

Cdt,

 

[patricktoulon]

re
If TestFichierOuvert(nom_fichier) Then
x=dir(adresse_fichier & "\" & nom_fichier &".xl*")
if x<>"" then Workbooks.Open Filename:=adresse_fichier & "\"& x
End If

 

[RCAVBA]

Top !
Merci @patricktoulon

 

[_Thierry]

Bonsoir à tous,

Ah je n'avais pas vu qu'il y avait un Fil de Discussion "parallel" à cette histoire...

Pour ceci :

a moins que tu ai des fichiers de même nom mais pas les même extensions
au quel cas je te suggère de revoir la conception générale de ton projet

Oui c'est ce que je me suis efforcé de contre-carrer et blinder dans cet autre Fil de Discussion plus ou moins doublon de notre ami @RCAVBA :

Microsoft 365 - 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

www.excel-downloads.com

Bonne soirée
@+Thierry