Problème utilisation PasteSpecial (arguments)
Bonjour,
Je voudrais réaliser la copie du contenu du cellule
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13
| Sub Parser_HTML()
Dim Myvalue As String
Dim objData As New DataObject, objRange As Range
Myvalue = Range("M1").Value
Set objRange = Range("B1").Offset(1, 0)
objData.SetText (Myvalue)
objData.PutInClipboard
objRange.PasteSpecial
End Sub |
Jusque la tout ce passe bien !
Mais le problème c'est au moment ou je rajoute un argument. Afin que le format en l’occurrence les bordures de la cellule réceptrice ne se modifie pas
Code:
objRange.PasteSpecial Paste:=xlPasteValues
ou
Code:
objRange.PasteSpecial Paste:=xlPasteAllExceptBorders
Erreur d'exécution '1004':
Erreur définie par l'application ou par l'objet
Pouvez-vous m'aider ?
Merci d'avance