Hyperlien vers dossier

[Demouret]

Bonsoir le forum...

J'ai bien trouvé une petite appli de Thierry qui permet d'inserer un lien hypertexte vers un fichier mais je ne sais pas le transformer pour qu'il puisse me servir d'hyperlien vers un Dossier... ( où j'ai pour le même client, Plans, Devis, Descriptifs...)

Merci de votre aide

Fichier joint...

 

[Demouret]

décidement

 

[Demouret]

.... il est tard [file name=Hyperlink_20060315223924.zip size=9981]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Hyperlink_20060315223924.zip[/file]

 

[MichelXld]

bonjour

si tu disposes d'OfficeXP ou ulterieur , tu peux tester dans le classeur de Thierry

Private Sub CommandButton1_Click()
Dim Repertoire As FileDialog

Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
Repertoire.Show

If Not Repertoire.SelectedItems.Count = 0 Then Me.Label1 = Repertoire.SelectedItems(1)
End Sub

Private Sub Label1_Click()
If Me.Label1.Caption = '' Then Exit Sub
ThisWorkbook.FollowHyperlink Label1
End Sub



bonne journée
MichelXld

 

[Demouret]

Merci Michel...
En repos aujourd'hui j'essaye ca demain
Bonne journée