Tester toutes les extensions des fichiers Excel
Résolu
Guiiggs
Messages postés
30
Statut
Membre
-
Utilisateur anonyme -
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 :
Pourriez-vous m'aider s'il vous plaît ?
Cordialement,
Guiiggs
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
-
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
