Tester toutes les extensions des fichiers Excel

Résolu/Fermé

Extension

Guiiggs Messages postés 27 Date d'inscription vendredi 11 janvier 2013 Statut Membre Dernière intervention 24 janvier 2022 - 14 févr. 2019 à 14:58
Utilisateur anonyme - 19 févr. 2019 à 09:52

Dans un tableau j'ai le nom complet de mes fichiers à ouvrir.
Je souhaite écrire en VBA le code suivant :

Pour i = 1 à 10
Si l'extension de mon fichier est "xlsm" ou xlsx" ou "xls" alors
J'ouvre mon fichier
Sinon
Rien
Fin Si

Dans ma ligne de code j'ai essayé le caractère "*" mais il ne me fait que pour un fichier.

Ma ligne de code est :

If Right(tableau_fichier(i), 4) = ".xls" Then

Pourriez-vous m'aider s'il vous plaît ?

Cordialement,
Guiiggs

A voir également:

Le format et l'extension du fichier ne correspondent pas excel
Fichier rar - Guide
Changer extension fichier - Guide
Format epub - Guide
Si et excel - Guide
Le fichier à télécharger contient un mot caché. quel est le format du fichier ? quel est le mot caché ? ✓ - Forum Windows

3 réponses

Réponse 1 / 3

Utilisateur anonyme
14 févr. 2019 à 15:18

Bonjour

tu peux utiliser

l'opérateur like

if tableau_fichier(i) = "*.xls" or tableau_fichier(i) = "*.xlsx" 'etc

une Regex

^.+\.xls[xm]?$

voir ic pour tester http://regexstorm.net/tester?p=%5E.%2B%5C.xls%5Bxm%5D%3F%24&i=trucmuche.xlsx

Discussions similaires

Impossible d'ouvrir un fichier : Erreur de format de fichier

Impossible d'ouvrir fichier excel : format ou extension invalide

Word ne peut pas ouvrir le fichier, car son format de fichier...

Extensions modifiées

Fichier Excel endommagé

Problème d' ouverture d'un fiche excel