Bonjour,

Je voudrais réaliser la copie du contenu du cellule

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
objRange.PasteSpecial Paste:=xlPasteValues
ou

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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