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 fichiers


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Expert confirmé Avatar de casefayere
    Homme Profil pro
    RETRAITE
    Inscrit en
    Décembre 2006
    Messages
    5 138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Ardennes (Champagne Ardenne)

    Informations professionnelles :
    Activité : RETRAITE
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Décembre 2006
    Messages : 5 138
    Par défaut recherche de fichiers
    Bonjour,

    j'ai fait une procédure afin de rechercher des fichiers qui contiennent le résultat d'un inputbox dans leur nom mais je ne sais pas comment attribuer l'inputbox à la recherche, voici mon 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
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    Sub chercherfichiers2()
    Dim rechfic As Office.FileSearch
    Dim vanomfichier As Variant
    Dim stmessage, message As String
    Dim i As Long
    Dim inombre As Long
      With Application.FileSearch
    'd'abord réinitialiser les critères (Attention : Le LookIn ne se réinitialise pas comme ça)
        .NewSearch
    'Pour mettre à jour la liste des dossiers, au cas ou on viendrait de créer un nouveau dossier par VBA :
        .RefreshScopes
    'Dossier(s) de recherche :
        .LookIn = "g:\bruno\dossier terroir\"
    message = InputBox("rechercher fichier contenant :")
    'Fichiers à rechercher
    .Filename = "message.xls" 'recherche tous les fichiers qui contiennent c ou C quelque par dans leur nom, et qui se terminent par .php ou .PHP    .FileType = msoFileTypeAllFiles
    'Tous les fichiers créés ou modifiés cette semaine :
        .LastModified = msoLastModifiedAnyTime
    'On va rechercher dans les sous dossiers :
        .SearchSubFolders = True
    'c'est parti :
        'procède à la recherche et capture le nombre de fichiers trouvés
        inombre = .Execute
        stmessage = Format(inombre, "0 ""fichiers trouvés""")
        'repertorie les fichiers dans la collection foundfiles
        For Each vanomfichier In .FoundFiles
        stmessage = stmessage & vbCr & vanomfichier
        Next vanomfichier
        MsgBox stmessage
     
      End With
    End Sub
    Si quelqu'un pouvait m'aider....

    Merci a+
    Cordialement,
    Dom
    _____________________________________________
    Vous êtes nouveau ? pour baliser votre code, cliquer sur cet exemple : Anomaly
    pensez à cliquer sur :resolu: si votre problème l'est
    Par contre, il est désagréable de voir une discussion résolue sans message final du demandeur (satisfaction, désarroi, remerciement, conclusion...)

  2. #2
    Expert confirmé
    Avatar de Qwazerty
    Homme Profil pro
    La très haute tension :D
    Inscrit en
    Avril 2002
    Messages
    4 128
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 45
    Localisation : France

    Informations professionnelles :
    Activité : La très haute tension :D
    Secteur : Service public

    Informations forums :
    Inscription : Avril 2002
    Messages : 4 128
    Par défaut
    SAlut
    J'ai juste jeté un coup d'oeil mais je pense que c'est cette ligne qui ne va pas
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
     .Filename = "message.xls"
    message est une variable dan ton code, si tu l'a met entre guillement ca devient juste du texte, si tu veux faire reference au text contenu dans message
    il faut faire comme ca
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
     .Filename = message + ".xls"
    Attention cela va te faire une recherche exact si tu veux plus de flexibilité il te faudra rajouter des *

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
     .Filename = "*" + message + "*.xls"
    Par exemple


    [Edit]
    Citation Envoyé par casefayere
    j'ai fait une procédure afin de rechercher des fichiers [...]
    On dit j'ai recopié une procedure, que j'ai modifiée pour qu'elle[...] , je vient de remarquer le commentaire placé a coté de la ligne en question
    [/Edit]

    A++
    Qwaz

    MagicQwaz := Harry Potter la baguette en moins
    Le monde dans lequel on vit
    Ma page perso DVP
    Dernier et Seul Tutoriel : VBA & Internet Explorer
    Dernière contribution : Lien Tableau Structuré et UserForm
    L'utilisation de l’éditeur de message

  3. #3
    Expert confirmé Avatar de casefayere
    Homme Profil pro
    RETRAITE
    Inscrit en
    Décembre 2006
    Messages
    5 138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Ardennes (Champagne Ardenne)

    Informations professionnelles :
    Activité : RETRAITE
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Décembre 2006
    Messages : 5 138
    Par défaut
    bonjour et merci Owazerty,

    ce n'est pas la prmeière fois que tu me dépannes, ça marche impeccable.
    Excuses-moi pour les termes que j'emploie

    a +
    Cordialement,
    Dom
    _____________________________________________
    Vous êtes nouveau ? pour baliser votre code, cliquer sur cet exemple : Anomaly
    pensez à cliquer sur :resolu: si votre problème l'est
    Par contre, il est désagréable de voir une discussion résolue sans message final du demandeur (satisfaction, désarroi, remerciement, conclusion...)

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

Discussions similaires

  1. [Système][fichier] recherche de fichier dans tout le disque dur
    Par helonear dans le forum Entrée/Sortie
    Réponses: 11
    Dernier message: 15/12/2010, 10h43
  2. Recherche dans fichiers
    Par Tchinkatchuk dans le forum Linux
    Réponses: 2
    Dernier message: 17/06/2005, 10h32
  3. Réponses: 14
    Dernier message: 25/10/2004, 21h33
  4. batch de recherche de fichier ...
    Par Félia dans le forum Scripts/Batch
    Réponses: 5
    Dernier message: 29/07/2004, 15h54
  5. Recherche support fichier
    Par sydiop dans le forum Informix
    Réponses: 5
    Dernier message: 18/03/2004, 10h15

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