recup lien vers répertoire et ouvrir

Pierrot93

XLDnaute Barbatruc

• 18 Août 2009

• #2

Re : recup lien vers répertoire et ouvrir

Bonjour Patrick

Sans voir le code utilisé, cela va être dur de t'aider...

Bonne journée
@+

 

Vote positif 0 Vote négatif

P

p.pat27

Guest

• 18 Août 2009

• #3

Re : recup lien vers répertoire et ouvrir

Slt
C'est justement le code qu'il me faut!!! ou plutot la syntaxe pour les dossier
Je sais ecrire le code pour un lien hypertext vers un fichier, mais je n'y arrive pas pour un dossier !

le "#" est un deuxieme pb

Pat

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 18 Août 2009

• #4

Re : recup lien vers répertoire et ouvrir

Re

pas tout compris, mais pour ajouter un lien vers un dossier dans la cellule A1 par exemple :

Code:

    ActiveSheet.Hyperlinks.Add Anchor:=Cells(1, 1), Address:= _
        "Z:\Dossier\SousDossier", TextToDisplay:="Z:\Dossier\SousDossier"

@+

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 18 Août 2009

• #5

Re : recup lien vers répertoire et ouvrir

Salut,si cela peut aider

 

Dernière édition: 20 Août 2009

Vote positif 0 Vote négatif

P

p.pat27

Guest

• 18 Août 2009

• #6

Re : recup lien vers répertoire et ouvrir

Merci

mais je ne connais pas " msoFileDialogFolderPicker" comment la déclarer?

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 18 Août 2009

• #7

Re : recup lien vers répertoire et ouvrir

Salut, c'est vrai que FileDialog(msoFileDialogFolderPicker) n'existe qu'à partir d'Excel 2002
donc SelDossier à remplacer par

Code:

Sub SelDossier()
Dim oShell As Object, oFolder As Object, oFolderItem As Object
Dim Chemin As String
   
    Set oShell = CreateObject("Shell.Application")
    Set oFolder = oShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
    
    On Error Resume Next
    Set oFolderItem = oFolder.Items.Item
    Chemin = oFolderItem.Path

    If Len(Chemin) > 0 Then Liste Chemin
    
    Set oFolderItem = Nothing
    Set oFolder = Nothing
    Set oShell = Nothing
End Sub

PS : Pour personnaliser BrowseForFolder http://www.oaltd.co.uk/DLCount/DLCount.asp?file=BrowseForFolder.zip ( affectation d'un répertoire de démarrage, centrage boite de dialogue etc )

 

Dernière édition: 19 Août 2009

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 20 Août 2009

• #8

Re : recup lien vers répertoire et ouvrir

Salut, avec le code du lien donné plus haut

 

Pièces jointes

• ListeLiensDossiers.zip

  29.1 KB · Affichages: 54

Vote positif 0 Vote négatif