Discussion :

[Snake38]

Bonjour,

J'essaie de faire quelque chose de très simple mais je n'y parviens pas.
Voilà, j'aimerais crééer une macro qui permet la chose suivante :

- on sélectionne d'abord une cellule
- je clique sur la macro et elle fait dans l'ordre :

• Clic droit, Lien hypertexte
• Texte à afficher : [X]
• Adresse : Ctrl+V (donc je colle une URL que j'ai au préalable copié manuellement)

Je n'arrive pas à faire le Ctrl+V dans ma macro. Voici mon code actuel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Lien()
'
' Lien Macro
'
 
'
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        Paste _
        , TextToDisplay:="[X]"
End Sub

Est-ce que quelqu'un aurait la solution ? Je serais curieux de la savoir...

Merci !

[Invité]

Bonjour,
j'ai rien compris!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Const DATAOBJECT_BINDING As String = "new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"
Public Property Let PressePapier(Value)
    With CreateObject(DATAOBJECT_BINDING)
        .SetText Value
        .PutInClipboard
    End With
End Property
 
 
Public Property Get PressePapier()
    With CreateObject(DATAOBJECT_BINDING)
        .GetFromClipboard
        PressePapier = .GetText
    End With
End Property
 
 
Private Sub test()
PressePapier = "toto"
Debug.Print PressePapier
End Sub

[unparia]

Bonjour Robert

j'ai rien compris!

Rien de plus normal, que tu n'aies pas compris.
Lorsque tu sauras de quoi il retourne en fait (je le sais par hasard), tu seras étonné de découvrir ce qu'il voulait dire