Fonction recherche un fichier automatiquement Résolu/Fermé

Question

Bonjour, 


Je suis sur excel 2010.

Je cherche un moyen où lorsque je clic sur la valeur dans la cellule An, une recherche automatique d'un fichier comprenant la valeur de la cellule An se fasse sur mon disque dur.

Par exemple:
- dans la cellule A2, j'ai 'premier' et en cliquant dessus j'aimerai que cela lance une recherche sur mon disque C d'un fichier dont le nom contiendrai 'premier'
- dans la cellule A3, j'ai 'deuxième' et en cliquant dessus j'aimerai que cela lance une recherche sur mon disque C d'un fichier dont le nom contiendrai 'deuxième'

et cela pour les quelques 800 lignes

j'espère avoir formuler ça correctement pour que ça se conprenne.

Merci d'avance pour votre aide !


Configuration: Windows 7 / Chrome 38.0.2125.111

ThauTheme · Answer

Bonsoir Bro, bonsoir le forum,

Ta recherche se fait sur tous les fichiers ou uniquement les fichiers Excel (ou autre) ?

ThauTheme · Answer

Bonjour Bro, bonjour le forum,

je pensais te proposer une solution rapidement mais j'ai surestimé mes compétences. Pour le moment je m'y casse les dents et n'y arrive pas... Désolé

Bro · Answer

Bonjour tout le monde,


Je me permet un petit up car j'en ai besoin pour le boulot.


Merci d'avance à ceux qui pourront m'aider.

Raymond PENTIER · Answer

N'attends pas de réponse : ça n'existe pas ... sauf peut-être par macro !

ThauTheme · Answer

N'attends pas de réponse... Pas d'accord Raymond ! C'est je crois faisable.  Le problème est d'aller dans tous les sous-dossiers de chaque dossier/sous-dossier. j'ai bataillé et n'y suis pas arrivé parce que je suis une bille en VBA mais je pense qu'un expert devrait résoudre ça en quelques ligne de code.

Bro, as tu posté sur d'autres forums ?

cs_Le Pivert · Answer

Bonjour,

J'ai fait cela, voir si cela convient!

La seul contrainte il faut le nom du fichier avec son extension

 http://www.cjoint.com/data3/3KgsMJ3jCTj.htm

cs_Le Pivert · Answer

Cela ouvre une boite de dialogue de choix de fichiers, a mettre dans la feuille concernée:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Value = "" Then Exit Sub
Ouverture
End Sub
Private Sub Ouverture()
Dim chemindossier, VoirDossier, DossierChoisi
If Val(Application.Version) >= 10 Then
   With Application.FileDialog(msoFileDialogFolderPicker)
     .InitialFileName = CurDir()
     .Show
     If .SelectedItems.Count > 0 Then
       chemindossier = .SelectedItems(1)
       ChDir chemindossier
     Else
       chemindossier = ""
     End If
   
    End With
  Else
    DossierChoisi = VoirDossier("Choisir le dossier")
    If DossierChoisi <> "" Then
      chemindossier = DossierChoisi
      ChDir DossierChoisi
    End If
    End If
End Sub

eriiic · Answer

Bonjour,

un essai : https://www.cjoint.com/c/DKgvDzX3nIT
Dès qu'un nom de fichier est satisfaisant la recherche s'arrête et passe au mot suivant. 
Les autres occurrences ne sont pas recherchées. Si pas ça, mettre une chaine plus précise.
eric
 
En essayant continuellement, on finit par réussir. 
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci

eriiic · Answer

Bonjour,

Version grandement améliorée.
Les répertoires ne sont parcourus plus qu'une fois alors qu'ils l'étaient pour chaque nom auparavant.
Et des dizaines de milliers de répertoires inutiles à parcourir en moins.
A tester : https://www.cjoint.com/c/DKjrlFeD8XI

eric

Fonction recherche un fichier automatiquement

9 réponses

Discussions similaires