Macro pour coller le contenu du presse-papierRésolu

Question

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

Je n'arrive pas à faire le Ctrl+V dans ma macro. Voici mon code actuel :

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 !

cs_Le Pivert · Answer

Bonjour,

copie la cellule sélectionnée:

Dim contenu
 Application.CutCopyMode = False
    Selection.Copy
With New DataObject
.GetFromClipboard
contenu = .GetText(1)
End With
MsgBox (contenu)

ucfoutu · Answer

Un CTRL + V = paste (= coller)
Il n'y a pas de "paste" sans quelque chose dans le presse-papiers (mis par CTRL + C ou autrement.)
Et ne ne vois rien qui, dans ton code, copie quoi que ce soit !
 
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.

Snake38 · Answer

Je pense que vous avez mal compris ma requête !

C'est normal qu'il y ai rien à copier, JE copie le contenu.

- Je copie qqchose dans Chrome, une URL en l'occurence
- Je vais dans une cellule quelconque dans mon fichier Excel
- Je lance la macro : cela crée le lien hypertexte, et colle comme URL ce que j'ai moi-même copié auparavant !

Snake38 · Answer

cs_Le Pivert, j'ai essayé ton code donné plus haut, mais j'ai une erreur de compilation "type non défini" sur le New DataObject...

cs_Le Pivert · Answer

Il te manque une référence, va dans Outils, Référence:
coche celle qui est en surbrillance

Snake38 · Answer

Un grand merci l'ami ça marche !!!

Code final :

Sub Lien()Dim contenu As StringWith New DataObject.GetFromClipboardcontenu = .GetText(1)End WithActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=contenu _, TextToDisplay:="[X]"End Sub

Macro pour coller le contenu du presse-papier

6 réponses

Votre réponse