A partir du Presse Papier, erreur 438 collage Table HTML

**JeanPaulR** · 26/01/2018, 16h46

Bonjour,
A noter que la TableHTML comporte des ActiveX (Boites à cocher).
A l’exécution du Sub, la table s'enregistre bien dans le gestionnaire du Presse Papier et ne se plante qu'au Paste (E 438). Si je la colle manuellement, elle me restitue le bon tableau avec les ActiveX.

Ci dessous la partie de code qui me pose problème :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
        Set TableHTML = IEdoc.getElementById("vendeursBiens")
 
        With CreateObject("htmlfile")
        If .parentWindow.clipboardData.setData("Text", TableHTML.outerHTML) Then
 
        With Sheets("Feuil1")
        .Activate
        .Range("A1").Select
        .Paste
        End With
 
        .parentWindow.clipboardData.clearData "Text"
    End If
    End With

Merci pour votre aide

**Marc-L** · 26/01/2018, 16h56

Bonjour,

tenter comme la ligne de code n°79 de cette discussion …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

**patricktoulon** · 26/01/2018, 21h22

bonsoir

sinon tu le fait dans le document en memoire autant l'utliser a fond!!!!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Set TableHTML = IEdoc.getElementById("vendeursBiens")
    With CreateObject("htmlfile")
        .body.innerhtml = TableHTML.outerhtml
        For Each elem In .all
            Select Case LCase(elem.tagname)
            Case "input", "button"    'etc....tout les tag des element que tu veux virer de ta table html.
                elem.ParentNode.RemoveChild (elem)
            End Select
        Next
        If .parentWindow.clipboardData.setData("Text", .body.innerhtml) Then
            '....reste de ton code
 
        End With

**JeanPaulR** · 27/01/2018, 17h17

Merci pour ton aide.
Ton code semble marcher à priori pour les checkbox, mais plante toujours sur le Paste.
Je pense donc que ce sont les liens hypertextes copiés dans la table qui provoque le plantage.
Aurais-tu une solution pour virer de la même façon les hyperliens.
Bon WE

**patricktoulon** · 28/01/2018, 10h17

Bonjour
on y va alors a grand coups de serpette coupecoupe

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Set TableHTML = IEdoc.getElementById("vendeursBiens")
    With CreateObject("htmlfile")
        .body.innerhtml = TableHTML.outerhtml
        For Each elem In .all
            Select Case LCase(elem.tagname)
            Case "input", "button"    'etc....tout les tag des element que tu veux virer de ta table html.
                elem.ParentNode.RemoveChild (elem)
            
            case "TD"
            elem.innerhtml=elem.innertext
            End Select
        Next
        If .parentWindow.clipboardData.setData("Text", .body.innerhtml) Then
            '....reste de ton code
 
        End With

**JeanPaulR** · 30/01/2018, 12h12

Bonjour,

Merci de tes précieuses informations.
J'ai maintenant réussi à tour virer (coupe, coupe) : hyperlinks, checkbox, formes automatiques, et cependant cela merde encore sur le Paste. Il copie une fois sur 2 et m'envoit après la copie ou pas le mess : Élément non ajouté. Format non pris en charge par le Presse Papier Office.

Tu sais pourquoi ?

Encore merci.