Tester toutes les extensions des fichiers Excel

Résolu
Guiiggs Messages postés 27 Date d'inscription   Statut Membre Dernière intervention   -  
 Utilisateur anonyme -
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:

3 réponses

Réponse 1 / 3
Utilisateur anonyme
 
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
0

Discussions similaires

Le code postal d Dakar
Daniel -
noctambule28 -

3 réponses
"L'archive n'a pas pu être installée. Il manque le fichier style.css à ce
Ivoire -
elgazar -

3 réponses
Supprimer en mode sans échec Mac book pro 2009
Ronyco55 -
_Ritchi_ -

15 réponses
changer l'extension de plusieurs fichier en un seul coup
010190 -
Malekal_morte- -

1 réponse
Mes fichiers ont changé d'extension
akjsoft -
Malekal_morte- -

5 réponses
Tous mes fichiers et programmes changé d'extension
gsghb -
Malekal_morte- -

16 réponses