Menu

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

Messages postés
20
Date d'inscription
vendredi 11 janvier 2013
Statut
Membre
Dernière intervention
17 avril 2019
- - Dernière réponse : Whismeril
Messages postés
13520
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
21 juillet 2019
- 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
Afficher la suite 

3 réponses

Messages postés
13520
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
21 juillet 2019
359
0
Merci
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
Commenter la réponse de Whismeril
Messages postés
20
Date d'inscription
vendredi 11 janvier 2013
Statut
Membre
Dernière intervention
17 avril 2019
0
Merci
Bonjour,

Super merci.

Mon problème est résolu.

Cordialement,
Guiiggs
Commenter la réponse de Guiiggs
Messages postés
13520
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
21 juillet 2019
359
0
Merci
De rien
Commenter la réponse de Whismeril