Lien hypertexte

Pierrot93

XLDnaute Barbatruc

• 3 Août 2010

• #2

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
@+

 

Vote positif 0 Vote négatif

M

Madjon6

XLDnaute Occasionnel

• 3 Août 2010

• #3

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.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 3 Août 2010

• #4

Re : Lien hypertexte

Bonjour Madjon6, Bonjour Pierrot,

en effet, pas super clair...

peut être :

Code:

Activecell.value = Activeworkbook.Fullname

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 3 Août 2010

• #5

Re : Lien hypertexte

Re, bonsoir Toto

si tu veux juste le chemin :

Code:

ActiveCell.Value = ActiveWorkbook.Path

@+

 

Vote positif 0 Vote négatif

M

Madjon6

XLDnaute Occasionnel

• 3 Août 2010

• #6

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

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 3 Août 2010

• #7

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

 

Vote positif 0 Vote négatif

M

Madjon6

XLDnaute Occasionnel

• 3 Août 2010

• #8

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.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 3 Août 2010

• #9

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

Cliquez pour agrandir...

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/

 

Vote positif 0 Vote négatif

M

Madjon6

XLDnaute Occasionnel

• 3 Août 2010

• #10

Re : Lien hypertexte

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

Merci à vous

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 3 Août 2010

• #11

Re : Lien hypertexte

Re,

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

Code:

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

@+

 

Vote positif 0 Vote négatif

M

Madjon6

XLDnaute Occasionnel

• 4 Août 2010

• #12

Re : Lien hypertexte

Bonjour,

comment puis je ajouter plus de lecteurs dans le code ?

merci à vous

 

Dernière édition: 4 Août 2010

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 4 Août 2010

• #13

Re : Lien hypertexte

Bonjour,

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

 

Vote positif 0 Vote négatif

M

Madjon6

XLDnaute Occasionnel

• 4 Août 2010

• #14

Re : Lien hypertexte

Oui c'est dû à mon pc.

Comment pourrais je étendre la recherche sur plusieurs lecteurs ?

Merci

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 4 Août 2010

• #15

Re : Lien hypertexte

Bonjour Pierrot, Bonjour Madjon6,

Comment pourrais je étendre la recherche sur plusieurs lecteurs ?

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif