Discussion :

[Dali29]

Bonjour,

J'ai fait une macro qui permet d'ouvrir une page html à partir de l'internet explorer et j'arrive pas à faire la copier coller en utilisant SendKeys sachant qu'on travaille sous word.
Merci d'avance.

la partie de code qui permet la copier/coller

Code :

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

1
2
3
4
5
6
7
8
9
 
AppActivate("Internet Explorer")
SendKeys "^a", True
SendKeys "^c", True
SendKeys "^q", True
 
' Je pense qu'il faut changer cette instruction par une autre où on va sélectionner le document word qui est déjà ouvert
AppActivate ("Microsoft Word") 
SendKeys "^v", True

[patricktoulon]

RE
BONJOUR regarde du cote de getobject et ses arguments

[Dali29]

Merci pour votre réponse,

avec la fonction GetObject, on sélectionne un fichier Excel en indiquant son chemin mais comment le sélectionner quand il est ouvert ?

exemple :

Set MyXL = Getobject("c:\vb4\MYTEST.XLS")

[patricktoulon]

re
ben de la meme maniere je suppose

[Dali29]

Excusez moi j'ai pas bien compris

[patricktoulon]

re
exemple

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
17
18
19
Dim wd As Object
 Sub TestWord()
    On Error Resume Next
    Err.Clear
    Set wd = GetObject(, "Word.application")
    If Err.Number = 429 Then
        MsgBox "Word n'est pas lancé": Exit Sub
    ElseIf Err.Number > 0 Then
        MsgBox "Erreur : " & Err.Number & vbCrLf & Err.Description: Exit Sub
    Else
              mess = "Word est déjà lancé" & vbCrLf & "liste des document ouverts"
        For Each doc In wd.Documents
        i = i + 1
        mess = mess & vbCrLf & doc
        Next
    End If
    MsgBox mess
    On Error GoTo 0
End Sub

[clementmarcotte]

Bonjour,

Même pas besoin de macro. Tu enregistres ta page web et tu ouvres le fichier avec Word.

[Dali29]

Bonjour,

Même pas besoin de macro. Tu enregistres ta page web et tu ouvres le fichier avec Word.

J'ai un fichier d'extension XX, je l'ai convertir en html, après je le fais ouvrir avec Internet Explorer et puis je vais la copier coller depuis ce dernier vers word (dans seul code VBA) pour l'instant ça marche mais ça buggue par fois.

[patricktoulon]

bonjour
si ca bug parfois et pas tout le temps c'est une question de focus sur la fentre html/excel et les senskeys tape pas sur la bonne fentre

un moyen simple c'est de lancer tes sendkeys par wscript.shell

Code :

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

1
2
3
4
5
6
7
8
9
10
dim WsCL as object
Set WsCL = CreateObject("wscript.shell")
AppActivate ("Internet Explorer")
WsCL.SendKeys "^a", True
WsCL.SendKeys "^c", True
WsCL.SendKeys "^q", True
 
' Je pense qu'il faut changer cette instruction par une autre où on va sélectionner le document word qui est déjà ouvert
AppActivate ("Microsoft Word")
WsCL.SendKeys "^v", True

cela dit pour mettre dans le clipboard une page html il y a d'autre moyen on pourrait meme copier uniquement ce que tu veux exactement sur ta page web
fait le moi savoir si ca t'interesse

[Dali29]

bonjour
si ca bug parfois et pas tout le temps c'est une question de focus sur la fentre html/excel et les senskeys tape pas sur la bonne fentre

un moyen simple c'est de lancer tes sendkeys par wscript.shell

Code :

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

1
2
3
4
5
6
7
8
9
10
dim WsCL as object
Set WsCL = CreateObject("wscript.shell")
AppActivate ("Internet Explorer")
WsCL.SendKeys "^a", True
WsCL.SendKeys "^c", True
WsCL.SendKeys "^q", True
 
' Je pense qu'il faut changer cette instruction par une autre où on va sélectionner le document word qui est déjà ouvert
AppActivate ("Microsoft Word")
WsCL.SendKeys "^v", True

cela dit pour mettre dans le clipboard une page html il y a d'autre moyen on pourrait meme copier uniquement ce que tu veux exactement sur ta page web
fait le moi savoir si ca t'interesse

Merci bien Patrick,
j'utilise " ActiveDocument.ActiveWindow.Selection.Paste " pour faire coller dans le document word ouvert mais je ne sais pas comment intégrer WsCL avec ActiveDocument
j'ai essayé de faire cette ligne mais ça marche plus WsCL.ActiveDocument.ActiveWindow.Selection.Paste

[patricktoulon]

re
oulah!!
si tu utilise

Code :

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

ActiveDocument.ActiveWindow.Selection.Paste

pas la peine d'utiliser le
WsCL.sendkeys"^V"
c'est evident

[Dali29]

re
oulah!!
si tu utilise

Code :

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

ActiveDocument.ActiveWindow.Selection.Paste

pas la peine d'utiliser le
WsCL.sendkeys"^V"
c'est evident

mais j'ai trouvé un soucis, la fenêtre de l'internet explorer ne se ferme pas, elle reste ouvert !! mais le code fonctionne bien
j'ai utilisé " WsCL.SendKeys "^q", True " comme tu m'as indiqué mais pas de résultat
j'ai essayé avec " WsCL.SendKeys "%{F4}", True " la fenêtre de l'internet explorer se ferme mais il me fait copier ça " WsCL.SendKeys "%{F4}", True " dans le word

Est ce que vous avez une solution ?

[patricktoulon]

re
puré!
comment est ouverte cette page web locale ??

repond a ca et donne moi le code si c'est oui

[Dali29]

re
puré!
comment est ouverte cette page web locale ??

repond a ca et donne moi le code si c'est oui

Bonjour Patrick,

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
17
18
 
'RECUPERATION
 
    Set IE = CreateObject("InternetExplorer.application")
    qurl = fichier_html
    IE.navigate qurl
 
'Copier les données depuis IE
 
       AppActivate ("Internet Explorer")
 
            SendKeys "^a", True                            
 
            SendKeys "^c", True                              
 
            SendKeys "^q", True
 
       ActiveDocument.ActiveWindow.Selection.Paste

[patricktoulon]

re
bonjour
cadeau

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub test()
    Dim Ie As Object, wordapp As Object, OdoC As Object, qurl As String, chemin As String
    Set Ie = CreateObject("InternetExplorer.application")
    qurl = fichier_html
    qurl = "https://www.developpez.net/forums/d1837612/logiciels/microsoft-office/excel/macros-vba-excel/copier-page-html-coller-word/#post10148809"   '
    Ie.navigate qurl
    Do: DoEvents: Loop While Ie.readystate <> 4
    With CreateObject("htmlfile"): r = .parentwindow.clipboarddata.setdata("text", Ie.document.body.innerhtml)    'integration du code innertext dans le clipboard
        Ie.Quit    'on ferme ie on en a plus besoins
        'Debug.Print .parentwindow.clipboarddata.GetData("text")'verifie si le code est bon
    End With
    'peut etre ici réactiver word
    Set wordapp = CreateObject("word.Application")    'créée un instance de word
    wordapp.Visible = True    ' word est visible
    Set OdoC = wordapp.Documents.Add    ' on crée un new document dans le word que l'on vien de créer
    'OU!!OPTION 2  ci dessous
    'wordapp.Documents.Open "chemindemondocument.doc" ' on ouvre un fichier dans le l'intance precedement créé
    With wordapp
        '.Activate
        .ActiveDocument.ActiveWindow.Selection.Paste
    End With
    chemin = Environ("userprofile") & "\DeskTop\monfichier.doc"
    Response = MsgBox("voulez vous enrgistrer sur le bureau le fichier word " & vbCrLf & "Si non cliquez sur non pour afficher le fichier word a l'ecran", vbYesNo, "enregistrement")
    If Response = vbYes Then    ' L'utilisateur a choisi Oui.
            ' Effectue une action.
        OdoC.SaveAs chemin
    Else
        wordapp.Activate
    End If
End Sub

[Dali29]

re
bonjour
cadeau

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub test()
    Dim Ie As Object, wordapp As Object, OdoC As Object, qurl As String, chemin As String
    Set Ie = CreateObject("InternetExplorer.application")
    qurl = fichier_html
    qurl = "https://www.developpez.net/forums/d1837612/logiciels/microsoft-office/excel/macros-vba-excel/copier-page-html-coller-word/#post10148809"   '
    Ie.navigate qurl
    Do: DoEvents: Loop While Ie.readystate <> 4
    With CreateObject("htmlfile"): r = .parentwindow.clipboarddata.setdata("text", Ie.document.body.innerhtml)    'integration du code innertext dans le clipboard
        Ie.Quit    'on ferme ie on en a plus besoins
        'Debug.Print .parentwindow.clipboarddata.GetData("text")'verifie si le code est bon
    End With
    'peut etre ici réactiver word
    Set wordapp = CreateObject("word.Application")    'créée un instance de word
    wordapp.Visible = True    ' word est visible
    Set OdoC = wordapp.Documents.Add    ' on crée un new document dans le word que l'on vien de créer
    'OU!!OPTION 2  ci dessous
    'wordapp.Documents.Open "chemindemondocument.doc" ' on ouvre un fichier dans le l'intance precedement créé
    With wordapp
        '.Activate
        .ActiveDocument.ActiveWindow.Selection.Paste
    End With
    chemin = Environ("userprofile") & "\DeskTop\monfichier.doc"
    Response = MsgBox("voulez vous enrgistrer sur le bureau le fichier word " & vbCrLf & "Si non cliquez sur non pour afficher le fichier word a l'ecran", vbYesNo, "enregistrement")
    If Response = vbYes Then    ' L'utilisateur a choisi Oui.
            ' Effectue une action.
        OdoC.SaveAs chemin
    Else
        wordapp.Activate
    End If
End Sub

Merci bien Patrick,
je vais vous montrer mon code complet (je travail sur un fichier d’extension 'mm'. au lieu de .** j'ai mis .mm.

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
 
Sub test
 
'Copier le fichier
Dim fDialog As FileDialog, result As Integer, it As Variant
Set fDialog = Application.FileDialog(msoFileDialogOpen)
fDialog.Title = "Importer le fichier html"
 
'repertoire en cours
fDialog.InitialFileName = ActiveDocument.Path
fDialog.Filters.Add "Fichier exporté html", "*.**", 1
fDialog.AllowMultiSelect = False
 
If fDialog.Show = -1 Then
  Debug.Print fDialog.SelectedItems(1)
End If
 
On Error Resume Next
fichier_mm = fDialog.SelectedItems(1)
 
On Error GoTo sortie
 
fichier_html = Left$(fichier_**, Len(fichier_**) - 3)
fichier_html = fichier_html & ".html"
 
FileCopy fichier_**, fichier_html
 
'RECUPERATION
 
    Set IE = CreateObject("InternetExplorer.application")
    qurl = fichier_html
    IE.navigate qurl
 
'Copier les données depuis IE
 
       AppActivate ("Internet Explorer")
 
            SendKeys "^a", True                            
 
            SendKeys "^c", True                              
 
            SendKeys "^q", True
 
       ActiveDocument.ActiveWindow.Selection.Paste
 
End Sub

[patricktoulon]

laisse tomber ton code c'est pas bon donne moi un de tes ".mm" il y a encore un autre moyen plus simple encore sans instance de IE

ps mon exemple fonctionne parfaitement bien
donne un ".mm" en piece jointe

[Dali29]

re
bonjour
cadeau

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub test()
    Dim Ie As Object, wordapp As Object, OdoC As Object, qurl As String, chemin As String
    Set Ie = CreateObject("InternetExplorer.application")
    qurl = fichier_html
    qurl = "https://www.developpez.net/forums/d1837612/logiciels/microsoft-office/excel/macros-vba-excel/copier-page-html-coller-word/#post10148809"   '
    Ie.navigate qurl
    Do: DoEvents: Loop While Ie.readystate <> 4
    With CreateObject("htmlfile"): r = .parentwindow.clipboarddata.setdata("text", Ie.document.body.innerhtml)    'integration du code innertext dans le clipboard
        Ie.Quit    'on ferme ie on en a plus besoins
        'Debug.Print .parentwindow.clipboarddata.GetData("text")'verifie si le code est bon
    End With
    'peut etre ici réactiver word
    Set wordapp = CreateObject("word.Application")    'créée un instance de word
    wordapp.Visible = True    ' word est visible
    Set OdoC = wordapp.Documents.Add    ' on crée un new document dans le word que l'on vien de créer
    'OU!!OPTION 2  ci dessous
    'wordapp.Documents.Open "chemindemondocument.doc" ' on ouvre un fichier dans le l'intance precedement créé
    With wordapp
        '.Activate
        .ActiveDocument.ActiveWindow.Selection.Paste
    End With
    chemin = Environ("userprofile") & "\DeskTop\monfichier.doc"
    Response = MsgBox("voulez vous enrgistrer sur le bureau le fichier word " & vbCrLf & "Si non cliquez sur non pour afficher le fichier word a l'ecran", vbYesNo, "enregistrement")
    If Response = vbYes Then    ' L'utilisateur a choisi Oui.
            ' Effectue une action.
        OdoC.SaveAs chemin
    Else
        wordapp.Activate
    End If
End Sub

Je n'arrive pas à vous envoyer un exemple de fichier mm (erreur) donc vous trouvez le code de ce fichier et vous pouvez l'enregistrer en '.mm' et Merci bien.

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
<map version="freeplane 1.6.0">
<!--To view this file, download free mind mapping software Freeplane from http://freeplane.sourceforge.net -->
<node TEXT="Carte" FOLDED="false" ID="ID_1982290669" CREATED="1522764682010" MODIFIED="1522765004149" STYLE="oval">
<font SIZE="18"/>
<hook NAME="MapStyle">
    <properties edgeColorConfiguration="#808080ff,#ff0000ff,#0000ffff,#00ff00ff,#ff00ffff,#00ffffff,#7c0000ff,#00007cff,#007c00ff,#7c007cff,#007c7cff,#7c7c00ff" fit_to_viewport="false" show_note_icons="true"/>
 
<map_styles>
<stylenode LOCALIZED_TEXT="styles.root_node" STYLE="oval" UNIFORM_SHAPE="true" VGAP_QUANTITY="24.0 pt">
<font SIZE="24"/>
<stylenode LOCALIZED_TEXT="styles.predefined" POSITION="right" STYLE="bubble">
<stylenode LOCALIZED_TEXT="default" ICON_SIZE="12.0 pt" COLOR="#000000" STYLE="fork">
<font NAME="SansSerif" SIZE="10" BOLD="false" ITALIC="false"/>
</stylenode>
<stylenode LOCALIZED_TEXT="defaultstyle.details"/>
<stylenode LOCALIZED_TEXT="defaultstyle.attributes">
<font SIZE="9"/>
</stylenode>
<stylenode LOCALIZED_TEXT="defaultstyle.note" COLOR="#000000" BACKGROUND_COLOR="#ffffff" TEXT_ALIGN="LEFT"/>
<stylenode LOCALIZED_TEXT="defaultstyle.floating">
<edge STYLE="hide_edge"/>
<cloud COLOR="#f0f0f0" SHAPE="ROUND_RECT"/>
</stylenode>
</stylenode>
<stylenode LOCALIZED_TEXT="styles.user-defined" POSITION="right" STYLE="bubble">
<stylenode LOCALIZED_TEXT="styles.topic" COLOR="#18898b" STYLE="fork">
<font NAME="Liberation Sans" SIZE="10" BOLD="true"/>
</stylenode>
<stylenode LOCALIZED_TEXT="styles.subtopic" COLOR="#cc3300" STYLE="fork">
<font NAME="Liberation Sans" SIZE="10" BOLD="true"/>
</stylenode>
<stylenode LOCALIZED_TEXT="styles.subsubtopic" COLOR="#669900">
<font NAME="Liberation Sans" SIZE="10" BOLD="true"/>
</stylenode>
<stylenode LOCALIZED_TEXT="styles.important">
<icon BUILTIN="yes"/>
</stylenode>
</stylenode>
<stylenode LOCALIZED_TEXT="styles.AutomaticLayout" POSITION="right" STYLE="bubble">
<stylenode LOCALIZED_TEXT="AutomaticLayout.level.root" COLOR="#000000" STYLE="oval" SHAPE_HORIZONTAL_MARGIN="10.0 pt" SHAPE_VERTICAL_MARGIN="10.0 pt">
<font SIZE="18"/>
</stylenode>
<stylenode LOCALIZED_TEXT="AutomaticLayout.level,1" COLOR="#0033ff">
<font SIZE="16"/>
</stylenode>
<stylenode LOCALIZED_TEXT="AutomaticLayout.level,2" COLOR="#00b439">
<font SIZE="14"/>
</stylenode>
<stylenode LOCALIZED_TEXT="AutomaticLayout.level,3" COLOR="#990000">
<font SIZE="12"/>
</stylenode>
<stylenode LOCALIZED_TEXT="AutomaticLayout.level,4" COLOR="#111111">
<font SIZE="10"/>
</stylenode>
<stylenode LOCALIZED_TEXT="AutomaticLayout.level,5"/>
<stylenode LOCALIZED_TEXT="AutomaticLayout.level,6"/>
<stylenode LOCALIZED_TEXT="AutomaticLayout.level,7"/>
<stylenode LOCALIZED_TEXT="AutomaticLayout.level,8"/>
<stylenode LOCALIZED_TEXT="AutomaticLayout.level,9"/>
<stylenode LOCALIZED_TEXT="AutomaticLayout.level,10"/>
<stylenode LOCALIZED_TEXT="AutomaticLayout.level,11"/>
</stylenode>
</stylenode>
</map_styles>
</hook>
<hook NAME="AutomaticEdgeColor" COUNTER="3" RULE="ON_BRANCH_CREATION"/>
<node TEXT="a" POSITION="right" ID="ID_1157209752" CREATED="1522764691365" MODIFIED="1522764739815">
<edge COLOR="#ff0000"/>
<node TEXT="AB" ID="ID_419721048" CREATED="1522764692053" MODIFIED="1522764835446"><richcontent TYPE="NOTE">
 
<html>
  <head>
 
  </head>
  <body>
    <table border="0" style="width: 73px; border-top-style: solid; border-right-style: solid; border-bottom-style: solid; border-left-style: solid; border-top-width: 0; border-right-width: 0; border-bottom-width: 0; border-left-width: 0">
      <tr>
        <td valign="top" style="width: 33%; border-top-style: solid; border-right-style: solid; border-bottom-style: solid; border-left-style: solid; border-top-width: 1; border-right-width: 1; border-bottom-width: 1; border-left-width: 1">
          <p style="margin-top: 1; margin-right: 1; margin-bottom: 1; margin-left: 1">
            ABN
          </p>
        </td>
        <td valign="top" style="width: 33%; border-top-style: solid; border-right-style: solid; border-bottom-style: solid; border-left-style: solid; border-top-width: 1; border-right-width: 1; border-bottom-width: 1; border-left-width: 1">
          <p style="margin-top: 1; margin-right: 1; margin-bottom: 1; margin-left: 1">
            jkllm
          </p>
        </td>
        <td valign="top" style="width: 33%; border-top-style: solid; border-right-style: solid; border-bottom-style: solid; border-left-style: solid; border-top-width: 1; border-right-width: 1; border-bottom-width: 1; border-left-width: 1">
          <p style="margin-top: 1; margin-right: 1; margin-bottom: 1; margin-left: 1">
            p^^$$$
          </p>
        </td>
      </tr>
      <tr>
        <td valign="top" style="width: 33%; border-top-style: solid; border-right-style: solid; border-bottom-style: solid; border-left-style: solid; border-top-width: 1; border-right-width: 1; border-bottom-width: 1; border-left-width: 1">
          <p style="margin-top: 1; margin-right: 1; margin-bottom: 1; margin-left: 1">
            ikkjm
          </p>
        </td>
        <td valign="top" style="width: 33%; border-top-style: solid; border-right-style: solid; border-bottom-style: solid; border-left-style: solid; border-top-width: 1; border-right-width: 1; border-bottom-width: 1; border-left-width: 1">
          <p style="margin-top: 1; margin-right: 1; margin-bottom: 1; margin-left: 1">
            ljdjhdj jkldmlkd
          </p>
        </td>
        <td valign="top" style="width: 33%; border-top-style: solid; border-right-style: solid; border-bottom-style: solid; border-left-style: solid; border-top-width: 1; border-right-width: 1; border-bottom-width: 1; border-left-width: 1">
          <p style="margin-top: 1; margin-right: 1; margin-bottom: 1; margin-left: 1">
            ikkokd plk^pk^k^^k^k^k
          </p>
        </td>
      </tr>
      <tr>
        <td valign="top" style="width: 33%; border-top-style: solid; border-right-style: solid; border-bottom-style: solid; border-left-style: solid; border-top-width: 1; border-right-width: 1; border-bottom-width: 1; border-left-width: 1">
          <p style="margin-top: 1; margin-right: 1; margin-bottom: 1; margin-left: 1">
            idjioekop
          </p>
        </td>
        <td valign="top" style="width: 33%; border-top-style: solid; border-right-style: solid; border-bottom-style: solid; border-left-style: solid; border-top-width: 1; border-right-width: 1; border-bottom-width: 1; border-left-width: 1">
          <p style="margin-top: 1; margin-right: 1; margin-bottom: 1; margin-left: 1">
            opkfeijifjeip^pepkeokop
          </p>
        </td>
        <td valign="top" style="width: 33%; border-top-style: solid; border-right-style: solid; border-bottom-style: solid; border-left-style: solid; border-top-width: 1; border-right-width: 1; border-bottom-width: 1; border-left-width: 1">
          <p style="margin-top: 1; margin-right: 1; margin-bottom: 1; margin-left: 1">
            ikojijfeljjkljfoijlleff
          </p>
        </td>
      </tr>
    </table>
  </body>
</html>
 
</richcontent>
</node>
<node TEXT="AVVB" FOLDED="true" ID="ID_1396633680" CREATED="1522764726394" MODIFIED="1522764941294"><richcontent TYPE="NOTE">
 
<html>
  <head>
 
  </head>
  <body>
    <table border="0" style="width: 73px; border-top-style: solid; border-right-style: solid; border-bottom-style: solid; border-left-style: solid; border-top-width: 0; border-right-width: 0; border-bottom-width: 0; border-left-width: 0">
      <tr>
        <td valign="top" style="width: 33%; border-top-style: solid; border-right-style: solid; border-bottom-style: solid; border-left-style: solid; border-top-width: 1; border-right-width: 1; border-bottom-width: 1; border-left-width: 1">
          <p style="margin-top: 1; margin-right: 1; margin-bottom: 1; margin-left: 1">
            nkfofo
          </p>
        </td>
        <td valign="top" style="width: 33%; border-top-style: solid; border-right-style: solid; border-bottom-style: solid; border-left-style: solid; border-top-width: 1; border-right-width: 1; border-bottom-width: 1; border-left-width: 1">
          <p style="margin-top: 1; margin-right: 1; margin-bottom: 1; margin-left: 1">
            kdododod
          </p>
        </td>
        <td valign="top" style="width: 33%; border-top-style: solid; border-right-style: solid; border-bottom-style: solid; border-left-style: solid; border-top-width: 1; border-right-width: 1; border-bottom-width: 1; border-left-width: 1">
          <p style="margin-top: 1; margin-right: 1; margin-bottom: 1; margin-left: 1">
            djdjdjdidopp
          </p>
        </td>
      </tr>
      <tr>
        <td valign="top" style="width: 33%; border-top-style: solid; border-right-style: solid; border-bottom-style: solid; border-left-style: solid; border-top-width: 1; border-right-width: 1; border-bottom-width: 1; border-left-width: 1">
          <p style="margin-top: 1; margin-right: 1; margin-bottom: 1; margin-left: 1">
            kddjdjdj
          </p>
        </td>
        <td valign="top" style="width: 33%; border-top-style: solid; border-right-style: solid; border-bottom-style: solid; border-left-style: solid; border-top-width: 1; border-right-width: 1; border-bottom-width: 1; border-left-width: 1">
          <p style="margin-top: 1; margin-right: 1; margin-bottom: 1; margin-left: 1">
            odkdodkdj
          </p>
        </td>
        <td valign="top" style="width: 33%; border-top-style: solid; border-right-style: solid; border-bottom-style: solid; border-left-style: solid; border-top-width: 1; border-right-width: 1; border-bottom-width: 1; border-left-width: 1">
          <p style="margin-top: 1; margin-right: 1; margin-bottom: 1; margin-left: 1">
            kdjddodddo
          </p>
        </td>
      </tr>
      <tr>
        <td valign="top" style="width: 33%; border-top-style: solid; border-right-style: solid; border-bottom-style: solid; border-left-style: solid; border-top-width: 1; border-right-width: 1; border-bottom-width: 1; border-left-width: 1">
          <p style="margin-top: 1; margin-right: 1; margin-bottom: 1; margin-left: 1">
            ndnlnlknd
          </p>
        </td>
        <td valign="top" style="width: 33%; border-top-style: solid; border-right-style: solid; border-bottom-style: solid; border-left-style: solid; border-top-width: 1; border-right-width: 1; border-bottom-width: 1; border-left-width: 1">
          <p style="margin-top: 1; margin-right: 1; margin-bottom: 1; margin-left: 1">
            knklnldknlkdnldk
          </p>
        </td>
        <td valign="top" style="width: 33%; border-top-style: solid; border-right-style: solid; border-bottom-style: solid; border-left-style: solid; border-top-width: 1; border-right-width: 1; border-bottom-width: 1; border-left-width: 1">
          <p style="margin-top: 1; margin-right: 1; margin-bottom: 1; margin-left: 1">
            ndlknieniipk,eioj
          </p>
        </td>
      </tr>
    </table>
  </body>
</html>
 
</richcontent>
<node TEXT="AJKL" ID="ID_167193376" CREATED="1522764727588" MODIFIED="1522764766554"/>
</node>
</node>
<node TEXT="C" POSITION="left" ID="ID_889608482" CREATED="1522764706099" MODIFIED="1522764782760">
<edge COLOR="#0000ff"/>
<node TEXT="CJKLD" ID="ID_909977480" CREATED="1522764707412" MODIFIED="1522764991640"><richcontent TYPE="NOTE">
 
<html>
  <head>
 
  </head>
  <body>
    <table border="0" style="width: 73px; border-top-style: solid; border-right-style: solid; border-bottom-style: solid; border-left-style: solid; border-top-width: 0; border-right-width: 0; border-bottom-width: 0; border-left-width: 0">
      <tr>
        <td valign="top" style="width: 33%; border-top-style: solid; border-right-style: solid; border-bottom-style: solid; border-left-style: solid; border-top-width: 1; border-right-width: 1; border-bottom-width: 1; border-left-width: 1">
          <p style="margin-top: 1; margin-right: 1; margin-bottom: 1; margin-left: 1">
            kjdjk
          </p>
        </td>
        <td valign="top" style="width: 33%; border-top-style: solid; border-right-style: solid; border-bottom-style: solid; border-left-style: solid; border-top-width: 1; border-right-width: 1; border-bottom-width: 1; border-left-width: 1">
          <p style="margin-top: 1; margin-right: 1; margin-bottom: 1; margin-left: 1">
            jkdmdmdm
          </p>
        </td>
        <td valign="top" style="width: 33%; border-top-style: solid; border-right-style: solid; border-bottom-style: solid; border-left-style: solid; border-top-width: 1; border-right-width: 1; border-bottom-width: 1; border-left-width: 1">
          <p style="margin-top: 1; margin-right: 1; margin-bottom: 1; margin-left: 1">
            mldkmdlkm
          </p>
        </td>
      </tr>
      <tr>
        <td valign="top" style="width: 33%; border-top-style: solid; border-right-style: solid; border-bottom-style: solid; border-left-style: solid; border-top-width: 1; border-right-width: 1; border-bottom-width: 1; border-left-width: 1">
          <p style="margin-top: 1; margin-right: 1; margin-bottom: 1; margin-left: 1">
            lmlkmlkmlkdkkm
          </p>
        </td>
        <td valign="top" style="width: 33%; border-top-style: solid; border-right-style: solid; border-bottom-style: solid; border-left-style: solid; border-top-width: 1; border-right-width: 1; border-bottom-width: 1; border-left-width: 1">
          <p style="margin-top: 1; margin-right: 1; margin-bottom: 1; margin-left: 1">
            kdmlkdml
          </p>
        </td>
        <td valign="top" style="width: 33%; border-top-style: solid; border-right-style: solid; border-bottom-style: solid; border-left-style: solid; border-top-width: 1; border-right-width: 1; border-bottom-width: 1; border-left-width: 1">
          <p style="margin-top: 1; margin-right: 1; margin-bottom: 1; margin-left: 1">
            kdmlkdmlkdml
          </p>
        </td>
      </tr>
      <tr>
        <td valign="top" style="width: 33%; border-top-style: solid; border-right-style: solid; border-bottom-style: solid; border-left-style: solid; border-top-width: 1; border-right-width: 1; border-bottom-width: 1; border-left-width: 1">
          <p style="margin-top: 1; margin-right: 1; margin-bottom: 1; margin-left: 1">
            kdmlk m,mkmlkml
          </p>
        </td>
        <td valign="top" style="width: 33%; border-top-style: solid; border-right-style: solid; border-bottom-style: solid; border-left-style: solid; border-top-width: 1; border-right-width: 1; border-bottom-width: 1; border-left-width: 1">
          <p style="margin-top: 1; margin-right: 1; margin-bottom: 1; margin-left: 1">
            dkd kdjdoik
          </p>
        </td>
        <td valign="top" style="width: 33%; border-top-style: solid; border-right-style: solid; border-bottom-style: solid; border-left-style: solid; border-top-width: 1; border-right-width: 1; border-bottom-width: 1; border-left-width: 1">
          <p style="margin-top: 1; margin-right: 1; margin-bottom: 1; margin-left: 1">
            iojdijdio dioo iodid
          </p>
        </td>
      </tr>
      <tr>
        <td valign="top" style="width: 33%; border-top-style: solid; border-right-style: solid; border-bottom-style: solid; border-left-style: solid; border-top-width: 1; border-right-width: 1; border-bottom-width: 1; border-left-width: 1">
          <p style="margin-top: 1; margin-right: 1; margin-bottom: 1; margin-left: 1">
            ididiid didi diididid
          </p>
        </td>
        <td valign="top" style="width: 33%; border-top-style: solid; border-right-style: solid; border-bottom-style: solid; border-left-style: solid; border-top-width: 1; border-right-width: 1; border-bottom-width: 1; border-left-width: 1">
          <p style="margin-top: 1; margin-right: 1; margin-bottom: 1; margin-left: 1">
            ididd dididi dididi
          </p>
        </td>
        <td valign="top" style="width: 33%; border-top-style: solid; border-right-style: solid; border-bottom-style: solid; border-left-style: solid; border-top-width: 1; border-right-width: 1; border-bottom-width: 1; border-left-width: 1">
          <p style="margin-top: 1; margin-right: 1; margin-bottom: 1; margin-left: 1">
            dndiddkpod idpokd iodpokd
          </p>
        </td>
      </tr>
    </table>
  </body>
</html>
 
</richcontent>
</node>
</node>
<node TEXT="&#xa8;B" POSITION="right" ID="ID_1886069784" CREATED="1522764713625" MODIFIED="1522764773077">
<edge COLOR="#00ff00"/>
</node>
</node>
</map>

[patricktoulon]

RE
deja c'est pas du HTML mais du XML ton .MM

une simple lecture avec open et copy dans clipboard et document paste et c'est tout ce dont tu a besoins

maintenant si tu veux récupérer le texte des nodes il te faudra créer un xlmdocument en memoire et le scruter

[Dali29]

RE
deja c'est pas du HTML mais du XML ton .MM

une simple lecture avec open et copy dans clipboard et document paste et c'est tout ce dont tu a besoins

maintenant si tu veux récupérer le texte des nodes il te faudra créer un xlmdocument en memoire et le scruter

Merci pour votre réponse mais franchement j'ai pas bien compris de que ce qu'il faut faire (créer un xlmdocument en memoire et le scruter) c'est un peu flou pour moi