Tester toutes les extensions des fichiers Excel [Résolu/Fermé]

Signaler
Messages postés
21
Date d'inscription
vendredi 11 janvier 2013
Statut
Membre
Dernière intervention
11 décembre 2019
-
Messages postés
14617
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
14 août 2020
-
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

3 réponses

Messages postés
14617
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
14 août 2020
563
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
Messages postés
21
Date d'inscription
vendredi 11 janvier 2013
Statut
Membre
Dernière intervention
11 décembre 2019

Bonjour,

Super merci.

Mon problème est résolu.

Cordialement,
Guiiggs
Messages postés
14617
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
14 août 2020
563
De rien