fichiers et arborescence

Le
maud s
Bonjour,

J 'ai un repoertoire nommé facture 2008..

je voudrais si c est possible qu'une macro cherche tous les fichiers
"*facture*.doc" ou "*facture*.pdf"

sous le repertoire et les multiples sou-repertoires

merci bcp pour votre aide

maud
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
Philippe.R
Le #19832041
Bonjour,
Pour ce faire, un coup d'oeil au site de Frédéric s'impose :
http://frederic.sigonneau.free.fr/Fichiers.htm
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"maud s" news:u1bcC%
Bonjour,

J 'ai un repoertoire nommé facture 2008..

je voudrais si c est possible qu'une macro cherche tous les fichiers
"*facture*.doc" ou "*facture*.pdf"

sous le repertoire et les multiples sou-repertoires...

merci bcp pour votre aide

maud



LE TROLL
Le #19834561
Bonsoir,

C'est un peu spécial à gérer ça :

Si tu as ça en VB, alors il faut prendre les objets
DriveListBox + DirListBox + FileListBox

Exp :

Sub Drive1_Change() ' DriveListBox
On Error Resume Next
Dir1.Path = Drive1.Drive
Text1 = Drive1
End Sub
'
Sub Dir1_Change() ' DirListBox
File1.Path = Dir1.Path
Text1 = Dir1
End Sub
'
Sub File1_Click() ' FileListBox
Text1 = Dir1 & "" & File1 ' avec un textBox en +
End Sub

Pour le filtre, par exemple, suffit de lire la liste et de tester
l'extension, et si elle n'est pas désirée : de la supprimer. Tu peux aussi
te servir in fine d'une liste normale pour mettre dedans ce qui est
filtré...

Attention : bien te remettre au bon endroit ensuite App.Path
ChDrive App.Path
ChDir App.Path
-*-*-*-*-*--*---*-

Voici les filtres d'un CommandDialog, mais c'est encore plus ésotérique
(API) :

COMMANDDIALOG
CommonDialog = boite
boite.DialogTitle = "titre de la boîte"
boite.Filter = "EXE, BIN, TXT | *.exe; *.bin; *.txt"
......1........2
1 = indication visuelle des filtres
2 | filtre1, 2.
boite.Filter = "All Files (*.*)|*.*"
boite.ShowOpen
variable_receptrice = boite.FileName



Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.


"maud s" news:u1bcC%
Bonjour,

J 'ai un repoertoire nommé facture 2008..

je voudrais si c est possible qu'une macro cherche tous les fichiers
"*facture*.doc" ou "*facture*.pdf"

sous le repertoire et les multiples sou-repertoires...

merci bcp pour votre aide

maud



Publicité
Poster une réponse
Anonyme