Discussion :

[Maverick27]

Bonjour
Mon problème est le suivant: je voudrais créer une macro qui puisse chercher avec l'explorateur windows tous les fichiers dont les noms comprennent un numéro précis.
En fait le but est d'éviter d'avoir à copier le N° pour aller ensuite le coller dans l'onglet de recherche de l'explorateur manuellement.
Est-ce que cela est possible et si oui comment ??
Merci
A+

[casefayere]

Bonsoir,
quelle est ta version d'excel, car j'ai un exemple qui fonctionne avec excel 2007 et le complément ClFileSearch afin de remplacer filesearch

à voir

[Maverick27]

2000 et 2007 mais il faudrait que cela fonctionne avec la version 2000

[casefayere]

je ne crois pas me tromper mais clfilesearch ne fonctionnera pas avec excel 2000 par contre excel 2007 n'acceptera pas application.filesearch

j'ai vu sur ce lien :
http://silkyroad.developpez.com/vba/classefilesearch/
que classefilesearch peux fonctionner avec excel 2002

A toi de voir si mon exemple peut t'interesser

[DeaD78]

Bonsoir,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub recherche()
    With Application.FileSearch
        .NewSearch
        .RefreshScopes
        .LookIn = "C:\" 'Tous les fichiers de C: sont passés en revue
        .Filename = "*NuméroSouhaité*.*"
        .SearchSubFolders = True 'Et les sous-répertoires !
        .Execute
        For Ctr = 1 To .FoundFiles.Count
            Workbooks.Open (.FoundFiles(Ctr)) 'Ca te les ouvre mais tu peux faire ce que tu veux ici (par exemple, afficher les résultats)  
        Next
    End With
End Sub

Cela fonctionne très bien avec Excel 2003 !

Et re-bonsoir

[casefayere]

Bonsoir,

oui pour 2003 mais pas 2007

[ucfoutu]

Bonjour
Mon problème est le suivant: je voudrais créer une macro qui puisse chercher avec l'explorateur windows tous les fichiers dont les noms comprennent un numéro précis.
En fait le but est d'éviter d'avoir à copier le N° pour aller ensuite le coller dans l'onglet de recherche de l'explorateur manuellement.
Est-ce que cela est possible et si oui comment ??
Merci
A+

Bonjour, Maverick27,

Je n'aime en général pas travailler comme un rhinocéros "fonçant dans le tas" (ce que tui cherches à faire) , mais je vais faire une exception et y "aller comme un taureau dans l'arêne" ....

C'est bien ce que j'ai mis en rouge que tu veux ?
Soit, donc .... je vais obéir à ce voeu plutôt contraire à l'esprit de VB !!!!!

Allons-y :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
        (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
         ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Const SW_SHOW = 5
 
Public Sub OpenFindFile(Optional pFolder As String, Optional pFile As String, Optional pFindIn As String)
  Call ShellExecute(GetActiveWindow, "find", pFolder, vbNullString, vbNullString, SW_SHOW)
  If pFile <> "" Then
    SendKeys pFile, True
  End If
  If pFindIn <> "" Then
     SendKeys "{TAB}" & pFindIn, True
  End If
End Sub
 
 
Private Sub Command1_Click()
  mon_numero = "1"
  OpenFindFile "D:\monoutil", "*" & mon_numero & "*", "caractères"  ' tu changes ici, bien évidemment "D:\Monoutil" par le répertoiire de ton choix
' qui peut par exemple être "C:\"
  SendKeys "%R"
End Sub

Je te signale deux choses :
1) la durée de ta recherche sera proportionelle à la taille du répertoire dans lequel tu cherches ! Elle ne saurait être plus courte qu'en utilisant (ce qu'elle fait, d'ailleurs) l'onglet "rechercher" de l'explorateur !!!
2) ce genre de développement dénote une incompréhension quasi totale de l'utilité de l'informatique ....
Mais tu as eu ta réponse, hein ....

EDIT : mon code ouvre donc (comme tu l'as demandé) l'explorateur et choisit l'onglet "Rechercher" (comme tu l'as demandé !) ... puis se positionne sur le champ de filtre des noms de fichiers (comme tu l'as demandé) puis y "frappe", comme tu l'as demandé) ton filtre.... puis (comme tu l'as demandé), lance la recherche sur le répertoiore que tu as choisi ....!!!
Et après (et surtout : et après tout ce temps ?) ????

[DeaD78]

Bonsoir casefayere,

Je suis tout bête moi : on me dit j'ai 2000 et 2007 mais ça doit fonctionner avec 2000, je comprends ça doit être juste pour 2000

Alors Maverick27, qu'as voulu-tu dire ? Faut-il développer quelque chose pour Excel 2000 seulement ? Ou faut-il que ça marche sur 2000 ET 2007 ?

[casefayere]

Bonsoir Dead,

Non, tu n'es pas tout bête, on cherche chacun à comprendre les besoins exacts, tu as donné une solution pour les versions antérieures à 2007, UC, que je salue au passage, fais passer unautre message, moi, pour l'instant je ne propose pas ma solution qui obligerait Maverick de charger le complément classefilesearch, inutile si le code doit fonctionner sur 2 versions,

Bonne soirée

[Maverick27]

Merci à tous pour vos réponses
Concernant la version, le programme doit fonctionner sous 2000. (J'ai aussi la 2007 sur un autre PC d'où ma réponse)
Apparemment, la solution de ucfoutu répond complètement à mes attentes.
Concernant le développement, je sais bien que c'est assez bizar comme facon de faire mais cette macro sert juste dans une feuille permettant d'automatiser un traitement s'en avoir à faire le copier/coller manuellement. De même, les dossiers d'en lesquels la macro irait chercher sont assez petits donc pas de problèmes de vitesse.