Coller spécial sous macro

[BAT]

Bonjour à tous,

Je cherche à créer la macro qui me colle le contenu de mon dernier "copier" dans la cellule B24.

J'y arrive par l'enregistreur mais pas avec les petites spécificités suivantes :
--> Si le presse papier est vide le débogage se lance. Il fauudrait que le message "Presse papier vide" s'affiche.

Mon code actuel est le suivant :
Range("D34").Select
ActiveSheet.PasteSpecial Format:="Texte", Link:=False, DisplayAsIcon:= _
False


J'espère que vous pourrez m'aider !

Cordialement

 

[porcinet82]

Re : Coller spécial sous macro

Salut,

Pas testé, mais je dirai quelque chose de ce genre :

Sub test()
Range("D34").Select
On Error GoTo fin:
ActiveSheet.PasteSpecial Format:="Texte", Link:=False, DisplayAsIcon:=False
Exit Sub
fin: MsgBox "Presse papier vide"
End Sub

@+