Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichD
Le 14/03/20 à 11:51, Roland Miller a écrit :
Bonjour, Je recherche à rechercher des fichiers selon 2 types d'extensions. Dans le code ci-dessous j'obtiens un message d'erreur à la ligne .Extension = "*.xls" Or "*.xlsb". Sauriez-vous comment le faire efficacement? Merci à l'avance. With Recherche .FolderPath = UF_DossierXLStart.TB_Copy.Value .Extension = "*.xls" Or "*.xlsb" .SubFolders = False .Execute
Bonjour, .Extension = "*.xls*" MichD
Le 14/03/20 à 11:51, Roland Miller a écrit :
Bonjour,
Je recherche à rechercher des fichiers selon 2 types d'extensions.
Dans le code ci-dessous j'obtiens un message d'erreur à la ligne .Extension = "*.xls" Or "*.xlsb".
Sauriez-vous comment le faire efficacement? Merci à l'avance.
Bonjour, Je recherche à rechercher des fichiers selon 2 types d'extensions. Dans le code ci-dessous j'obtiens un message d'erreur à la ligne .Extension = "*.xls" Or "*.xlsb". Sauriez-vous comment le faire efficacement? Merci à l'avance. With Recherche .FolderPath = UF_DossierXLStart.TB_Copy.Value .Extension = "*.xls" Or "*.xlsb" .SubFolders = False .Execute
Bonjour, .Extension = "*.xls*" MichD
MichD
Le 14/03/20 à 14:07, MichD a écrit :
Le 14/03/20 à 11:51, Roland Miller a écrit :
Bonjour, Je recherche à rechercher des fichiers selon 2 types d'extensions. Dans le code ci-dessous j'obtiens un message d'erreur à la ligne .Extension = "*.xls" Or "*.xlsb". Sauriez-vous comment le faire efficacement? Merci à l'avance. With Recherche .FolderPath = UF_DossierXLStart.TB_Copy.Value .Extension = "*.xls" Or "*.xlsb" .SubFolders = False .Execute
Bonjour, .Extension = "*.xls*" MichD
Cela va retourner tous les fichiers dont l'extension contient .xls comme xlsx ou xlsb. Pour être certain que tu as seulement des fichiers .xls ou xlsb, sur chacun des noms de fichiers tu fais un test afin d'exclure les fichiers .xlsx dans le genre : if lcase(right(NomFichier,5)) <> ".xlsx" then 'Le traitement à effectuer end if MichD
Le 14/03/20 à 14:07, MichD a écrit :
Le 14/03/20 à 11:51, Roland Miller a écrit :
Bonjour,
Je recherche à rechercher des fichiers selon 2 types d'extensions.
Dans le code ci-dessous j'obtiens un message d'erreur à la ligne
.Extension = "*.xls" Or "*.xlsb".
Sauriez-vous comment le faire efficacement? Merci à l'avance.
Cela va retourner tous les fichiers dont l'extension contient .xls comme
xlsx ou xlsb. Pour être certain que tu as seulement des fichiers .xls ou
xlsb, sur chacun des noms de fichiers tu fais un test afin d'exclure les
fichiers .xlsx dans le genre :
if lcase(right(NomFichier,5)) <> ".xlsx" then
'Le traitement à effectuer
Bonjour, Je recherche à rechercher des fichiers selon 2 types d'extensions. Dans le code ci-dessous j'obtiens un message d'erreur à la ligne .Extension = "*.xls" Or "*.xlsb". Sauriez-vous comment le faire efficacement? Merci à l'avance. With Recherche .FolderPath = UF_DossierXLStart.TB_Copy.Value .Extension = "*.xls" Or "*.xlsb" .SubFolders = False .Execute
Bonjour, .Extension = "*.xls*" MichD
Cela va retourner tous les fichiers dont l'extension contient .xls comme xlsx ou xlsb. Pour être certain que tu as seulement des fichiers .xls ou xlsb, sur chacun des noms de fichiers tu fais un test afin d'exclure les fichiers .xlsx dans le genre : if lcase(right(NomFichier,5)) <> ".xlsx" then 'Le traitement à effectuer end if MichD