Tester toutes les extensions des fichiers Excel
Résolu
Guiiggs
Messages postés
27
Date d'inscription
Statut
Membre
Dernière intervention
-
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
A voir également:
- Le format et l'extension du fichier ne correspondent pas excel
- Fichier bin - Guide
- Changer extension fichier - Guide
- Format epub - Guide
- Format factory - Télécharger - Conversion & Codecs
- Word et excel gratuit - Guide
3 réponses
Bonjour
tu peux utiliser
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