Bonjour
C'est la première fois que je poste alors s'il vous plait essayer d'être indulgents. (en plus j'ai commencé le visual basic cette semaine)
Question : J'ai un texte qui est sélectionné sur mon écran comment est ce que je pourais le mettre dans le presse papier pour le mettre ensuite dans une variable string ?
Ce texte se trouve sur une page web (je sais pas si ca peut aider)
Si on pouvait me dire la commande pour vider le presse papier ce serais sympa aussi, d'après mes recherches ce serait "Clipboard.Clear".
Merci d'avance

bonjour

cet exemple permet de placer dans le presse papier le texte selectionné dans un WebBrowser
j'espere que tu pourras l'adapter à ta page Web


Private Sub Command1_Click()
    Dim Doc As HTMLDocument
    Dim txtRange As IHTMLTxtRange
   
    Set Doc = WebBrowser1.document
    Set txtRange = Doc.selection.createRange
   
    'Le texte sélectionné
    'MsgBox txtRange.Text

    'Insertion dans le press papier
    Clipboard.SetText txtRange.Text

   'Controle le contenu du prese papier
   MsgBox Clipboard.GetText(1)

End Sub

'Vide le presse papier
Private Sub Command2_Click()
    Clipboard.Clear
End Sub


bonne journée
michel

Dans VB6; le couper-copier-coller utlise le clipboard (presse papier) de Windows.

Dans le cas d'une form MDI, ou avec un formulaire classique, par exemple, tu ajoute dans la barre de menu du menu « Edition », les sous-menus Couper, Copier et Coller, nous leur attribuons le code suivant :
Private Sub coller_Click()
'Procédure utilisée pour coller le contenu du Presse-Papiers
'dans la zone de texte.
MDIForm1.ActiveForm.Text1.SelText = Clipboard.GetText()
End Sub

Private Sub copier_Click()
'Procédure utilisée pour copier le texte sélectionné
'dans la zone de texte dans le Presse-Papiers.
'Vérifier qu'un caractère au moins est sélectionné
'pour réaliser l'opération.
Clipboard.Clear
Clipboard.SetText MDIForm1.ActiveForm.Text1.SelText 'Place le texte dans le  Presse-papiers.
End Sub

Private Sub couper_Click()
'Procédure utilisée pour couper le texte sélectionné
'dans la zone de texte txtContenu dans le Presse-Papiers.
Clipboard.Clear
Clipboard.SetText MDIForm1.ActiveForm.Text1.SelText   'Place le texte dans le  Presse-papiers.
Text1.SelText = ""
End Sub