bouton vers adresse variable

[jackfred]

bonjour,

Je voudrais que qd on clique sur on "bouton", cela redirige l'utilisateur vers une page ou un fichier dont l'adresse se trouve dans une cellule.

Autrement dit que le bouton utilise l'adresse d'une cellule pour effectuer la redirection.

Ainsi, je pourrais changer l'adresse de la cellule en question à loisir.


Merci

fred

 

[bqtr]

Re : bouton vers adresse variable

Bonsoir jackfred,

Une façon de faire :

Private Sub CommandButton1_Click()

Dim chemin As String, F As String
If Mid(Range("A2"), 2, 1) = ":" Then
   chemin = Range("A2").Value
   Workbooks.Open Filename:=chemin
Else
   F = Range("A2").Value
   Sheets(F).Activate
End If

End Sub

La cellule testée est A2.

Bonne nuit