Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel plusieurs extensions possibles

plusieurs extensions possibles

2 réponses
Avatar
Sunburn
Bonjour,
j'ai une macro qui me liste les fichiers d'une certaine extension (.doc en
l'espèce).
je souhaite y ajouter les .docx,mais comment faire, j'ai essayé "Or", mais
ça n'est pas ça.
merci de votre aide.
YANN
-----
Dim LeMessage As String, LeRepertoire As String, Lextension As String
Dim Profondeur As VbMsgBoxResult
Dim nRow As Long
LeMessage = "Choisissez le dossier à analyser"
LeRepertoire = Chemin
Lextension = "*.doc" Or "*.docx" '******* là ça plante
nRow = 6
truc = Lister(nRow, LeRepertoire, Lextension, True)
ActiveWorkbook.Protect Structure:=True ', Windows:=True 'protection du
classeur
-----
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
Ludo
T'as essayer avec Lextension = "*.doc*"
avec la derniere * qui sert de joker !
-----------------------------------------

"Sunburn" a écrit dans le message de
news:
Bonjour,
j'ai une macro qui me liste les fichiers d'une certaine extension (.doc en
l'espèce).
je souhaite y ajouter les .docx,mais comment faire, j'ai essayé "Or", mais
ça n'est pas ça.
merci de votre aide.
YANN
-----
Dim LeMessage As String, LeRepertoire As String, Lextension As String
Dim Profondeur As VbMsgBoxResult
Dim nRow As Long
LeMessage = "Choisissez le dossier à analyser"
LeRepertoire = Chemin
Lextension = "*.doc" Or "*.docx" '******* là ça plante
nRow = 6
truc = Lister(nRow, LeRepertoire, Lextension, True)
ActiveWorkbook.Protect Structure:=True ', Windows:=True 'protection du
classeur
-----



Avatar
Sunburn
ben oui, ça marche, j'y avais meme pas pensé.
merci.
YANN

"Ludo" a écrit :

T'as essayer avec Lextension = "*.doc*"
avec la derniere * qui sert de joker !
-----------------------------------------

"Sunburn" a écrit dans le message de
news:
> Bonjour,
> j'ai une macro qui me liste les fichiers d'une certaine extension (.doc en
> l'espèce).
> je souhaite y ajouter les .docx,mais comment faire, j'ai essayé "Or", mais
> ça n'est pas ça.
> merci de votre aide.
> YANN
> -----
> Dim LeMessage As String, LeRepertoire As String, Lextension As String
> Dim Profondeur As VbMsgBoxResult
> Dim nRow As Long
> LeMessage = "Choisissez le dossier à analyser"
> LeRepertoire = Chemin
> Lextension = "*.doc" Or "*.docx" '******* là ça plante
> nRow = 6
> truc = Lister(nRow, LeRepertoire, Lextension, True)
> ActiveWorkbook.Protect Structure:=True ', Windows:=True 'protection du
> classeur
> -----
>