IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

recherche de classeur


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Mai 2006
    Messages
    83
    Détails du profil
    Informations personnelles :
    Âge : 51
    Localisation : Belgique

    Informations forums :
    Inscription : Mai 2006
    Messages : 83
    Par défaut recherche de classeur
    Pour faire ma recherche de classeur excel j'utilise ce code

    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
    Private Sub btnchercher_Click()
        Dim Fichier As String
     
        ListBoxResult.Clear  'on vide en premier
     
        'recherche dans un répertoire précis
     
        Fichier = Dir("C:\Documents and Settings\Vinc\Mes documents\Clients"): 
     
     
        Do While Fichier <> ""
        'UCase pour s'assurer d'une bonne comparaison entre les chaînes
            If UCase(Fichier) Like "*" & UCase(ZoneRech.Value) & "*.XLS" Then
                ListBoxResult.AddItem Fichier
            End If
            Fichier = Dir  ' Recherche suivante
        Loop
     
        'On spécifie l'Index à afficher seulement si la liste n'est pas vide
        If ListBoxResult.ListCount > 0 Then ListBoxResult.ListIndex = 0
    End Sub
    dans se dossier clients j'ai une série d'autres dossiers avec chacun des classeurs excel dedans et je voudrais trouver les classeurs de tous les dossiers, comment faudrait-il faire car avec se code ca ne marche pas. Faut-il rajouter une étoile à la fin du chemin?

    Je vous remercie de votre aide et @ bientôt.

  2. #2
    Expert confirmé
    Avatar de fring
    Homme Profil pro
    Engineering
    Inscrit en
    Février 2008
    Messages
    3 900
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : Belgique

    Informations professionnelles :
    Activité : Engineering

    Informations forums :
    Inscription : Février 2008
    Messages : 3 900
    Par défaut
    Bonjour,

    Dans la rubrique "Contribuer" tu devrais y trouver ton bonheur, notamment cette contribution http://www.developpez.net/forums/sho...d.php?t=529905


  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Mai 2006
    Messages
    83
    Détails du profil
    Informations personnelles :
    Âge : 51
    Localisation : Belgique

    Informations forums :
    Inscription : Mai 2006
    Messages : 83
    Par défaut
    Merci pour le lien, mais comme je suis novice je ne comprend pas comment l'insérer dans mon code
    je ne sais pas quoi en faire

  4. #4
    Membre confirmé
    Profil pro
    Inscrit en
    Mai 2006
    Messages
    83
    Détails du profil
    Informations personnelles :
    Âge : 51
    Localisation : Belgique

    Informations forums :
    Inscription : Mai 2006
    Messages : 83
    Par défaut
    Salut fring
    en réaliter je vient de remettre le code et j'ai changé le répertoire D par C mais il ne m'affiche rien du tout, si tu savais me m'aider j'apprécierais.
    Merci à toi et à bientôt

  5. #5
    Expert confirmé
    Avatar de fring
    Homme Profil pro
    Engineering
    Inscrit en
    Février 2008
    Messages
    3 900
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : Belgique

    Informations professionnelles :
    Activité : Engineering

    Informations forums :
    Inscription : Février 2008
    Messages : 3 900
    Par défaut
    Ci-dessous j'ai adapté le code de Ouske pour qu'il liste tous les fichiers dans la ListBox1 du UserForm1.

    Construit juste un UserForm avec une ListBox et tu pourras tester le code, après ce n'est plus qu'une question de petits réglages pour obtenir exactement ce que tu souhaites

    Ne pas oublier d'adapter le chemin dans le code (j'ai mis celui qui se trouvait dans ton code)

    Code àinsérer dans un module standard : 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
    24
    25
    26
    27
    Option Explicit
    Public nb As Integer
     
    Sub Appel()
    Dim chemin As String
        nb = 0
        chemin = "C:\Documents and Settings\Vinc\Mes documents\Clients" '<-- chemin à adapter
        Lister chemin
        UserForm1.Show
    End Sub
     
    Public Function Lister(chemin As String)
    Dim fs, Rep As Variant, NewRep As String, Nomfich As String
        Set fs = CreateObject("Scripting.FileSystemObject")
        Lister = fs.GetFolder(chemin).Files.Count
        Nomfich = Dir(chemin & "\*.xls")
     
        Do While Nomfich <> ""
            UserForm1.ListBox1.AddItem chemin & "\" & Nomfich
            Nomfich = Dir()
        Loop
     
        For Each Rep In fs.GetFolder(chemin).SubFolders
            NewRep = Lister(Rep.Path)
        Next Rep
     
    End Function

  6. #6
    Membre confirmé
    Profil pro
    Inscrit en
    Mai 2006
    Messages
    83
    Détails du profil
    Informations personnelles :
    Âge : 51
    Localisation : Belgique

    Informations forums :
    Inscription : Mai 2006
    Messages : 83
    Par défaut
    Salut fring
    Je te remercie vraiment de ton aide et je vais voir çà
    A bientôt

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2007] Macro recherche sur classeur
    Par PersianPrince dans le forum Macros et VBA Excel
    Réponses: 13
    Dernier message: 05/03/2020, 14h47
  2. [XL-2003] recherche de classeur
    Par olivier-tig dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 11/11/2009, 12h33
  3. Fonction de recherche plusieurs classeurs
    Par Bomba dans le forum Excel
    Réponses: 1
    Dernier message: 13/03/2008, 17h38
  4. [VBA-E] Recherche dans classeur masqué
    Par a.dequidt dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 15/10/2007, 14h16
  5. [Vba-E2003]Recherche sur classeur
    Par stargates dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 01/07/2007, 11h13

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo