Lien hypertexte

[Madjon6]

Bonjour,

Je cherche un code VBA permettant de récupérer le lien hypertexte d'un fichier.

Pourriez vous m'aider s'il vous plaît ?

Merci à tous

 

[Pierrot93]

Re : Lien hypertexte

Bonjour Madjon,

on peut peut être t'aider... mais il faudrait sans doute nous en dire un peu plus.... car là en l'état, perso je ne comprends pas trop ta demande...

bonne fin d'après midi
@+

 

[Madjon6]

Re : Lien hypertexte

En fait je souhaite avoir l'emplacement oû le fichier excel sur lequel je suis est enregistré.

Exemple j'ouvre un fichier excel et en cliquant sur un bouton macro (vba) le chemain s'affiche dans une cellule.

Merci.

 

[tototiti2008]

Re : Lien hypertexte

Bonjour Madjon6, Bonjour Pierrot,

en effet, pas super clair...

peut être :

Activecell.value = Activeworkbook.Fullname

 

[Pierrot93]

Re : Lien hypertexte

Re, bonsoir Toto

si tu veux juste le chemin :

ActiveCell.Value = ActiveWorkbook.Path

@+

 

[Madjon6]

Re : Lien hypertexte

Parfait merci à vous.

Serait il possible de trouver l'emplacement d'un fichier juste en mettant le nom du fichier en question ?

J'ouvre excel et en mettant le nom du fichier dans une cellule, j'obtiens l'emplacement dans une autre cellule ?

Merci encore

 

[tototiti2008]

Re : Lien hypertexte

Re,

Quand le fichier est ouvert ?

si non, ça risque d'être long de scanner tous tes disques, sans compter que plusieurs classeurs peuvent porter le même nom

 

[Madjon6]

Re : Lien hypertexte

Non quand le fichier est fermé en fait.

L'idée serait que la macro s'exécute en arrière plan.

 

[tototiti2008]

Re : Lien hypertexte

Re,

On ne peut pas vraiment lancer de "macro" en arrière plan (pas d'exécution asynchrone en VBA, à ma connaissance)
A moins peut-être de créer une nouvelle session Excel qui ouvrirait la macro pour la lancer... ce qui me semble un peu lourd
Ce qui ne règle pas les 2 soucis que j'ai évoqué :

ça risque d'être long de scanner tous tes disques, sans compter que plusieurs classeurs peuvent porter le même nom

Parce que s'il faut attendre 15 minutes pour avoir l'adresse d'un fichier dont on aurait tapé le nom... pas trés réactif

Pour la recherche de fichier moi j'avais fait un truc comme ça :

https://www.excel-downloads.com/threads/recherche-fichiers-sur-disque.142158/

 

[Madjon6]

Re : Lien hypertexte

Oui si ça prend plus de 15 secondes ce n'est plus intérressant pour mon besoin.

Merci à vous

 

[Pierrot93]

Re : Lien hypertexte

Re,

pour une recherche sur le disque C, le nom du fichier en A1 (avec extension) :

Option Explicit
Sub test()
Dim Fso As Object, fs As Object, f As Object
Set Fso = CreateObject("Scripting.FileSystemObject")
Set fs = Application.FileSearch
fs.NewSearch
With fs
    .SearchSubFolders = True
    .LookIn = "C:\"
    .Filename = Range("A1").Value
    If .Execute > 0 Then
        Set f = Fso.GetFile(.FoundFiles(.FoundFiles.Count))
        Range("B1").Value = f.parentfolder.Path
    End If
End With
End Sub

@+

 

[Madjon6]

Re : Lien hypertexte

Bonjour,

comment puis je ajouter plus de lecteurs dans le code ?

merci à vous

 

[Pierrot93]

Re : Lien hypertexte

Bonjour,

pas de plantage chez moi, même si lecteur très "chargé", c'est long mais fini par répondre....

 

[Madjon6]

Re : Lien hypertexte

Oui c'est dû à mon pc.

Comment pourrais je étendre la recherche sur plusieurs lecteurs ?

Merci

 

[tototiti2008]

Re : Lien hypertexte

Bonjour Pierrot, Bonjour Madjon6,

Comment pourrais je étendre la recherche sur plusieurs lecteurs ?

il faut boucler sur tous les lecteurs ou seulement certains choisi ?