Private Sub Commandbutton1_click()
If TextBox1.Value = "" Then
fichier = Application.GetOpenFilename
TextBox1.Value = fichier
CommandButton1.BackColor = &H80FF80
Else
TextBox1.Hyperlinks(1).Follow NewWindow:=False 'marche pas....
Workbooks.Open TextBox1.Value, local:=True 'Marche pas non plus...
End If
End Sub