Peut-être que : Sub Lien() adresse = [A1] ActiveSheet.Hyperlinks.Add Anchor:=Range("A4"), Address:resse End Sub
Serge
"Laurent" a écrit dans le message de news:
Bonjour,
Voici mon problème :
En A1 j'ai un chemin vers un fichier (ex : C:classeur.xls)
En A4 j'ai une cellule contenant 'Ouvrir'
J'aimerai qu'à l'aide d'un code, le chemin qui se trouve en A1 soit utilisé pour mettre un lien hypertexte dans la cellule A4 automatiquement.
Quelqu'un peut m'aider?
Merci beaucoup Laurent
garnote
ou bien :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$4" Then adresse = [A1] ActiveSheet.Hyperlinks.Add Anchor:=Target, Address:resse End If End Sub
Serge
"garnote" a écrit dans le message de news:
Salut Laurent,
Peut-être que : Sub Lien() adresse = [A1] ActiveSheet.Hyperlinks.Add Anchor:=Range("A4"), Address:resse End Sub
Serge
"Laurent" a écrit dans le message de news:
Bonjour,
Voici mon problème :
En A1 j'ai un chemin vers un fichier (ex : C:classeur.xls)
En A4 j'ai une cellule contenant 'Ouvrir'
J'aimerai qu'à l'aide d'un code, le chemin qui se trouve en A1 soit utilisé pour mettre un lien hypertexte dans la cellule A4 automatiquement.
Quelqu'un peut m'aider?
Merci beaucoup Laurent
ou bien :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$4" Then
adresse = [A1]
ActiveSheet.Hyperlinks.Add Anchor:=Target, Address:resse
End If
End Sub
Serge
"garnote" <rien@absent.com> a écrit dans le message de news:
uug9aetkFHA.3164@TK2MSFTNGP15.phx.gbl...
Salut Laurent,
Peut-être que :
Sub Lien()
adresse = [A1]
ActiveSheet.Hyperlinks.Add Anchor:=Range("A4"), Address:resse
End Sub
Serge
"Laurent" <Gadeyne.laurent@wanadoo.fr> a écrit dans le message de news:
OS882XtkFHA.2444@tk2msftngp13.phx.gbl...
Bonjour,
Voici mon problème :
En A1 j'ai un chemin vers un fichier (ex : C:classeur.xls)
En A4 j'ai une cellule contenant 'Ouvrir'
J'aimerai qu'à l'aide d'un code, le chemin qui se trouve en A1 soit
utilisé pour mettre un lien hypertexte dans la cellule A4
automatiquement.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$4" Then adresse = [A1] ActiveSheet.Hyperlinks.Add Anchor:=Target, Address:resse End If End Sub
Serge
"garnote" a écrit dans le message de news:
Salut Laurent,
Peut-être que : Sub Lien() adresse = [A1] ActiveSheet.Hyperlinks.Add Anchor:=Range("A4"), Address:resse End Sub
Serge
"Laurent" a écrit dans le message de news:
Bonjour,
Voici mon problème :
En A1 j'ai un chemin vers un fichier (ex : C:classeur.xls)
En A4 j'ai une cellule contenant 'Ouvrir'
J'aimerai qu'à l'aide d'un code, le chemin qui se trouve en A1 soit utilisé pour mettre un lien hypertexte dans la cellule A4 automatiquement.