Discussion :

[Rigelus]

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

[Docmarti]

Dans ton exemple, tu ne sembles pas avoir besoin de passer par le Presse-Papiers.
Tu pourrais donc faire simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim Myvalue As String
Dim objRange As Range
 
Myvalue = Range("M1").Value
 
Set objRange = Range("B1").Offset(1, 0)
 
objRange.Value = Myvalue

[Docmarti]

Si tu veux utiliser .Paste ou .PasteSpecial, tu dois d'abord utiliser la commande .Copy

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim objRange As Range
 
Range("M1").Copy
 
Set objRange = Range("B1").Offset(1, 0)
 
objRange.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
ou
 
objRange.PasteSpecial Paste:=xlPasteAllExceptBorders

[Rigelus]

Tout d'abord merci pour ta réponse.

Cette méthode me permet de garder mes bordures en effet mais mon texte qui est en faite du HTML, est copié tel quel avec les balises.

As-tu une idée de comment résoudre cela ?

C'est à dire garder les bordure mais avec le HTML compilé.

[Docmarti]

C'est ce que fait ce code, il me semble : il reproduit une copie exacte de la cellule "M1", sauf les bordures.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim objRange As Range
 
Range("M1").Copy
 
Set objRange = Range("B1").Offset(1, 0)
 
objRange.PasteSpecial Paste:=xlPasteAllExceptBorders

[Rigelus]

C'est censé le faire. Mais Il ne me compile pas le code HTML avec cette méthode, ce qui est plutôt étrange.

[Docmarti]

Je ne comprends pas très bien.

Pourrais-tu me donner un exemple du contenu HTLM qui se trouve dans une cellule que tu veux copier et le résultat que tu souhaites obtenir?