Private Sub Form_Load() WebBrowser1.Navigate "www.yahoo.fr" End Sub Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) Clipboard.Clear 'execute tous selectionner WebBrowser1.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT 'execute copier WebBrowser1.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT 'recuperation du texte dans le presspapier Text1 = Clipboard.GetText End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question