Discussion :

[Vadorblanc]

Bonjour
La recherche d'un fichier particulier dont on n'a perdu son emplacement m'oblige à lister le contenu d'une arborescence de dossier et de fichiers, ma seule solution aujourd'hui est de lancer une commande DOS par Exécuter: cmd:C:Documents and Setting\Dossier>tree/C C:Public>liste.xls
J'ai ensuite ce fichier Excel "Liste.xls" dont je remplace certaines lettres par des lettres accentuées par Rechercher Remplacer dont je pourrais automatiser la tâche par une macro.
J'ai maintenant la liste de tous mes fichiers correctement nommées avec leurs emplacement dans l'arborescence (plusieurs milliers).
Par 'Rechercher' je trouve aussi facilement le fichier dont j'avais perdu une partie de son nom ansi que son emplacement.
Voilà ma demande sur le forum:
Comment avoir une macro qui puisse quand on a trouvé le fichier par Rechercher ... ouvrir le fichier directement sans devoir se faufiler dans toute l'arborescence pour le retrouver (car il faut annoter toutes l'arborescence sur un papier puis suivre tout le chemin), comme avoir par exemple un lien hyper texte qui pointe directement dessus.
Je précise que l'arborescence que je décrits est composée de 4 gros dossiers qui contiennent des sous dossiers avec des fichiers, puis des sous dosssiers, etc...
Voilà, est ce réalisable?
Merci

[tedo01]

Bonjour,
Je vois 2 solutions :

1. Créer un bouton ou menu qui lance le code suivant : il faut être placé dans la cellule contenant le nom du fichier et la macro l'ouvre.

   Code :

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

   Workbooks.Open ActiveCell.Value

2. Créer des hyper-liens sur chaque fichier avec :ActiveSheet.Hyperlinks.Add

Tout dépend de la manière dont tu préfère utiliser le résultat

[Vadorblanc]

Bonjour tedo01
J'ai essayé ta première solution mais j'ai le message m'indiquand fichier introuvable, et ta deuxième solution avec le lien hypertecte je n'arrive pas la mettre en place.
Merci

[tedo01]

Re,
Est-ce que tu peux joindre un fichier exemple ? Ma première solution part du principe que le contenu de ActiveCell est le nom complet (avec le chemin) du document.

[Vadorblanc]

tedo01,
Pour ta première solution, je sélectionne le fichier Essai2.xls, je lance ton code, et j'ai le message:
Erreur d'exécution 1004
'Essai2.xls' introuvable
Vérifier l'orthographe du nom du classeur et de la validité de l'emplacement
Si vous essayer d'ouvrir le fichier à partir de la liste des fichiers les plus récents, assurez vous que le fichier n'a pas été renommé, déplacé ou supprimé.

En fait à la sortie de la commande DOS, le fichier est un fichier TEXTE que je suis obligé de l'enregistrer au format xls car je lui mets le code proposé.
Merci

[tedo01]

OK, c'est normal que ça ne fonctionne pas. J'avais cru comprendre que ta liste Excel contenait déjà l'emplacement de chaque fichier, c'est ce qu'il faut pour ouvrir un classeur...
Il faut un travail conséquent pour coder une macro qui devra décortiquer la liste pour reconstituer tout le chemin d'un fichier !
Je n'ai pour le moment pas le temps de le faire, si personne ne prend le relais je regarderai ça dans quelques jours...
Sorry :-(