Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionOption Explicit Private Sub Command1_Click() Dim shellWins As SHDocVw.ShellWindows,explorer As SHDocVw.InternetExplorer Set shellWins = New SHDocVw.ShellWindows For Each explorer In shellWins 'votre traitement ici pour récupérer la sélection sur internet explorer 'allez un chti effort Next Set shellWins = Nothing Set explorer = Nothing End Sub
text1.text = WebBrowser1.Document.selection.createRange().Text