Problème utilisation PasteSpecial (arguments)

Version imprimable

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

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

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

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

Code:

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

22/05/2013, 10h48
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é.

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

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

22/05/2013, 13h42
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.
22/05/2013, 14h21
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?
22/05/2013, 14h39
Rigelus

J'ai du code dans une cellule, par exemple :

Sans objet Frais de gestion 

La méthode permet d'afficher ce code mais avec les balises html compilées.

Je retrouve dans la cellule de destination mon texte avec le style écrit en html.

Ma source me fournit du texte html et je ne veux pas perdre le style

Pour conserver le formatage HTLM, il faut créer un véritable document HTML avec le contenu de la cellule. C'est-à-dire débuter par <html><body> et finir par "</body></html>"

Pour conserver les bordures, tu n'as qu'à les garder dans des variables pour pouvoir les rétablir après la commande Activesheet.Paste
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Sub Parser_HTML() Dim Myvalue As String Dim objData As New DataObject, objRange As Range htlmDebut = "<html> <body>" htlmFin = "</body></html>" Myvalue = Range("M1").Value contenu = htlmDebut & Myvalue & htlmFin Set objRange = Range("B1").Offset(1, 0) objData.SetText (contenu) objData.PutInClipboard objRange.Select ActiveSheet.Paste End Sub

23/05/2013, 10h54
Rigelus

Bonjour merci pour la réponse.

Les balises HTML sont déjà présentes lors de la récupération depuis la source.

J'ai simplement fait la conversion du code HTML dans des cellules masquées puis j'ai copié le texte dans les cellules avec les bordures.
23/05/2013, 12h36
Docmarti

Pourrais-tu envoyer un exemple dans un fichier attaché?