A voir également:
- Lien Hypertext VBA.. erreur
- Lien url - Guide
- Créer un lien pour partager des photos - Guide
- Lien copié ✓ - Forum Google Chrome
- Verificateur de lien - Guide
- Renommer un lien hypertexte ✓ - Forum Bureautique
5 réponses
Bonjour,
ex:
xx = 3
Worksheets("Maintenance").Hyperlinks.Add Anchor:=Selection, Address:=Worksheets("TT").Range("I" & xx)
'ou
With Worksheets("Maintenance")
.Hyperlinks.Add .Range("G12"), Worksheets("TT").Range("I" & xx)
End With
Bonne suite
ex:
xx = 3
Worksheets("Maintenance").Hyperlinks.Add Anchor:=Selection, Address:=Worksheets("TT").Range("I" & xx)
'ou
With Worksheets("Maintenance")
.Hyperlinks.Add .Range("G12"), Worksheets("TT").Range("I" & xx)
End With
Bonne suite
Merci le code se comporte exactement de la même maniére que mon code il crée le lien mais c'est un lien qui ne marche pas.
Il me fait un lien vers le bureau "...\Bureau\TT!I6778"Merci quand même
Il me fait un lien vers le bureau "...\Bureau\TT!I6778"Merci quand même
Je vous envoie un bou de code pour que vous puissiez comprendre..
Voila :
For Each Cell2 In Sheets("Trouble Ticket").Range("B2:B3399")
If Cell2.Offset(0, 0).Value Like "*" & ActiveCell.Value & "*" Then
With Cell2.Offset(0, 0)
.Interior.ColorIndex = 37
.ClearComments
.AddComment ActiveCell.Offset(0, -3) & vbNewLine & ActiveCell.Offset(0, -2) & vbNewLine & ActiveCell.Offset(0, -1) & vbNewLine & ActiveCell.Offset(0, -9) & vbNewLine & ActiveCell.Offset(0, -8) & vbNewLine & ActiveCell.Offset(0, -7)
Worksheets("Maintenance").Hyperlinks.Add Anchor:=Selection, Address:=Worksheets("TT").Range("I" & xx)
End With
End If
Next
Sur TT!I6778 je n'ai rien écrit c'est sur la céllute trouver que je fait un lien ver TT!I6778!
Voila :
For Each Cell2 In Sheets("Trouble Ticket").Range("B2:B3399")
If Cell2.Offset(0, 0).Value Like "*" & ActiveCell.Value & "*" Then
With Cell2.Offset(0, 0)
.Interior.ColorIndex = 37
.ClearComments
.AddComment ActiveCell.Offset(0, -3) & vbNewLine & ActiveCell.Offset(0, -2) & vbNewLine & ActiveCell.Offset(0, -1) & vbNewLine & ActiveCell.Offset(0, -9) & vbNewLine & ActiveCell.Offset(0, -8) & vbNewLine & ActiveCell.Offset(0, -7)
Worksheets("Maintenance").Hyperlinks.Add Anchor:=Selection, Address:=Worksheets("TT").Range("I" & xx)
End With
End If
Next
Sur TT!I6778 je n'ai rien écrit c'est sur la céllute trouver que je fait un lien ver TT!I6778!
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question