Compatibilite de FileSearch2007 avec version 2010

Version imprimable

18/02/2014, 19h31
jldancet

Compatibilite de FileSearch2007 avec version 2010

Bonjour à tous

J'ai un problème pour référencer FileSearch2007 dans Excel 2010, l'enregistrement est au poil dans les options
complément, mais après (même après redémarrage) dans développeur, VBA, outils, référence
on ne voit pas Filesearch2007.
Est-ce un problème de droits (l'installation se fait sur un réseau) ou un problème de compatibilité ?
J'ai fait plusieurs essais mais hélas infructueux.

:(
à votre bon coeur pour me trouver une réponse.

Merci d'avance

JL DANCET
19/02/2014, 20h36
parmi

Bonjour,

D'où provient ce Filesearch2007 ?
Et qu'est-ce au juste ? un fichier XLA ou XLAM ?
26/02/2014, 14h37
jldancet

1 pièce(s) jointe(s)

Filesearch2007 avec version2010

Bonjour Parmi, et désolé d'avoir mis tout ce temps.

FileSearch2007 a été téléchargé dans un forum suite au problème que filesearch2003
n'existe plus dès 2007. Il fonctionne super avec Excel 2007. Par contre j'ai un problème
en l'installant sur un réseau qui utilise office 2010. Je n'arrive pas à la référencer, elle n’apparaît
pas dans "développeur, Visual Basic, Outils, Références"
Je liste ci-dessous le document origine. (en pièce jointe)
Soit je me suis planté en l'installant ou soit c'est un problème de compatibilité.

Merci d'avance

Salutations

JLDANCET
26/02/2014, 15h05
Marc-L

Bonjour, bonjour,

depuis la régression de 2007 avec l'abandon de FileSearch (assez lent quand même) entre autres,
je me suis passé de cette classe de remplacement FileSearch2007
car la fonction Dir s'acquitte bien des besoins courants et est rapide …
Au pire il y a le FileSystemObject … Voir aussi le tutoriel Manipulation des fichiers en VBA et la :faq: !

FAQ Excel : les répertoires et les fichiers …
26/02/2014, 15h53
parmi

Comme le dit Marc-L, moi aussi je préfère de loin la fonction Dir()

Mais si tu veux utiliser ton fichier, assure-toi de le copier dans le répertoire AddIns (ou autre à ton goût)

Par la suite, tu dois activer cette macro complémentaire
Dans le menu Excel (l'icône en boule en haut à gauche)
clique le bouton en bas à droite "Options Excel"
(ici, Alt-f-i m'y mène directement)
Dans la liste de gauche, sélectionne Compléments, puis, en bas à droite, choisir dans la liste "Compléments Excel" puis clique le bouton Atteindre
Dans la liste qui s'affiche, coche ta macro puis OK. Si elle n'y est pas, fais Parcourir et retrouve-là dans le répertoire que tu as utilisé.

Tu ne devrais pas avoir à utiliser les références dans VBA, je pense.
03/03/2014, 19h05
jldancet

Merci à tous, je vais essayer DIR

Merci pour vos réponses, je vais essayer DIR avant de clôturer le sujet
bonne semaine
JL DANCET:lol:
03/03/2014, 19h47
jldancet

Filesearch2007 avec version2010

Bonsoir
J'ai consulté DIR et chDIR mais cela ne répond pas au besoin.
filesearch permet de faire une recherche, ex se pointer dans C:\Documents, si on veut aller plus loin
sélectionner un dossier qui existe à l’intérieur de Documents et ainsi de suite jusqu'à satisfaction
et récupérer le path complet et le nom du fichier rechercher, on peut même lui dire de ne chercher que les fichiers.txt.

Alors que DIR a besoin du path connu d'avance pour se pointer sur le fichier voulu.

Je ne comprends pas pourquoi mon fichier xlam qui se voit dans les compléments sous options excel n'est pas atteignable
au niveau des références et pourquoi sous éditeur il fait état d'un problème de compatibilité. Et ce sous 2010, 2007 est parfait.

Merci d'avance
Bonne soirée
JL DANCET

Regarde ce bout de code pour sortir les répertoires.
On peut facilement adapter pour sortir les fichiers avec l'extension voulue en utilisant vbArchive et vérifier la partie droite des fichiers pour les extensions voulues.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
'Macro de départ
Sub RechercheRépertoires()
 
    Cells.ClearContents
    Range("A1") = "Répertoires"
 
    ListerRépertoires "C:\windows\System32"  ' répertoire principal à rechercher
 
    MsgBox "Terminé"
 
End Sub
 
'Fonction récursive
Private Sub ListerRépertoires(FilePath As Variant)
    Dim Ligne As Long
    Dim Fichier As Variant
    Dim Liste As Collection
 
    On Error GoTo Erreur
 
    If Right(FilePath, 1) <> "\" Then
        FilePath = FilePath & "\"
    End If
 
    Set Liste = New Collection
    Fichier = Dir(FilePath & "*.*", vbDirectory)
 
    On Error Resume Next
    While Fichier > ""
        If GetAttr(FilePath & Fichier) And vbDirectory Then
            If Left(Fichier, 1) <> "." Then
                Ligne = Cells(Rows.Count, "A").End(xlUp).Row + 1
                Liste.Add FilePath & Fichier
                Range("A" & Ligne) = FilePath & Fichier
            End If
        End If
 
        Fichier = Dir
 
        DoEvents
    Wend
    On Error GoTo 0
 
    For Each Fichier In Liste
        ListerRépertoires Fichier
        DoEvents
    Next
 
    Set Liste = Nothing
 
    Exit Sub
Erreur:
    MsgBox Err.Number & vbCrLf & Err.Description
 
End Sub

03/03/2014, 23h41
Marc-L

Citation:

Envoyé par jldancet

filesearch permet de faire une recherche, ex se pointer dans C:\Documents
si on veut aller plus loin sélectionner un dossier qui existe à l’intérieur de Documents et ainsi de suite jusqu'à satisfaction
et récupérer le path complet et le nom du fichier rechercher, on peut même lui dire de ne chercher que les fichiers.txt

Comme déjà évoqué, je fais tout cela avec Dir (j'ai juste lu son aide) un peu comme parmi
et même en utilisant encore la version 2003, cela fait longtemps que je n'utilise plus FileSearch et
j'évite aussi au maximum FSO car cette fonction Dir pour les besoins simples est tellement plus rapide !

Récemment je suis intervenu sur un code dans lequel une recherche prenait un poil plus de 2 minutes,
en réorganisant le code en utilisant cette fonction, moins de 20 secondes sont nécessaires ! …
19/03/2014, 10h03
jldancet

ClasseFileSearch est compatible excel 2010 et 2013

Bonjour
Je reviens dans la discussion pour clôturer le dossier.

J'ai téléchargé plus haut dans la discussion un PDF qui explique comment installer ce complément.
Or je suis allé plus vite que la musique, j'ai fait du copier-coller de l'affichage des modules dans
un dossier xlam. ----> cela n'a pas fonctionné.

Si on lit plus bas, il y a possiblité de telecharger le xlam, je l'ai fait et ça fonctionne à merveille.

Merci à tous et à l'auteur de ClasseFileSearch2007.

A la prochaine pour d'autres aventures

Jean-Louis :lol:
PROBLEME RESOLU