plusieurs extensions possibles

Le
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
--
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Ludo
Le #18153101
T'as essayer avec Lextension = "*.doc*"
avec la derniere * qui sert de joker !
-----------------------------------------

"Sunburn" 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
-----



Sunburn
Le #18153071
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" 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
> -----
>




Publicité
Poster une réponse
Anonyme