Hyperlien vers dossier

D

Demouret

Guest

• 15 Mars 2006

• #2

décidement

 

Vote positif 0 Vote négatif

D

Demouret

Guest

• 15 Mars 2006

• #3

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

 

Pièces jointes

• Hyperlink_20060315223924.zip

  9.7 KB · Affichages: 19

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 16 Mars 2006

• #4

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

 

Vote positif 0 Vote négatif

D

Demouret

Guest

• 16 Mars 2006

• #5

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

 

Vote positif 0 Vote négatif