erreur 1004 sur utilisation de "Range"

Question

bonsoir,

Avec la commande suivante

ActiveSheet.Paste Destination:=Worksheets("cm(1)").Range("A780:G790")

le bloc-note se retrouve bien dans les cellules désignées

mais la commande ci-dessous renvoie une erreur 1004.

Comment puis-je mettre le bloc-note dans les cellules désignées par rw et fz,  

ActiveSheet.Paste Destination:=Worksheets("cm(1)").Range("cells(rw,1):cells(fz,5)")

Merci

Answer 1

Bonjour,

Coche la référence MS Forms 2.0 Object Library.

Utilise :

  Dim DataObj As New MSForms.DataObject
  Dim S As String
  DataObj.GetFromClipboard
  S = DataObj.GetText
  Worksheets("cm(1)").Range("A780:G790").Value = S

Cordialement.

Daniel

Answer 2

merci, ça marche !