bonjour Thomas
tu peux tester cette macro ...il restera à voir la mise en forme dans le document Word , une fois le collage efectué
Private Sub CommandButton1_Click()
Dim AppWrd As Word.Application
Dim docWrd As Word.Document
Dim IE As InternetExplorer
Set IE = CreateObject('InternetExplorer.Application')
IE.Visible = False
IE.Navigate WebBrowser1.LocationURL 'adresse du webbrowser
Do Until IE.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
'---------------------------------------------------------
IE.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT
IE.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT
DoEvents
'---------------------------------------------------------
Set AppWrd = CreateObject('Word.Application')
AppWrd.Visible = True
Set docWrd = AppWrd.Documents.Add
docWrd.Range.PasteAndFormat wdPasteDefault
IE.Quit
Set IE = Nothing
End Sub
bonne soiree
MichelXld