Contrôle du presse papier

Réponse acceptée !
Pas la peine de poster 10 messages d'affilé pour cà, un seul suffit tu sais ! C'est pas pour cà que tu aura plus de chance d'avoir des réponses !

Pour récupèrer le contenu du presse papier : Clipboard.GetText

Ensuite, à toi de l'utiliser pour ce que tu veux faire.
_______________________________________

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

Réponse acceptée !
Merci de ta réponse,

Si j'ai un prog en execution mais reduit à coté de l'horloge, comment activer cette fonctionnalité via le double clic de la roulette de ma souris ?

Merlin

Réponse acceptée !
Il te faut intercepter le message du double click dans le Form_MouseMove de ta feuille réduite en systray :

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

'on interception des événements sur l'icône du systray
Select Case x
Case 7725

List1.AddItem Clipboard.GetText

End Select


_______________________________________

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

Réponse acceptée !
Ok, et si je veux copier le contenu du presse papier dans une cellule Excel, cela donne ça ???

Dim toto

'récupération du presse papier dans le Clipboard
Clipboard.SetText Screen.ActiveControl.SelText

'vider le presse papier
Screen.ActiveControl.SelText = ""

'copier le Clipboard dans la variable toto
toto = Clipboard.GetText()

'afficher dans une cellule Excel le contenu du Clipboard
Worksheets("Feuil1").Cells(1, 3).Value = toto

Réponse acceptée !
Là par contre je ne peux pas te dire : je n'ai jamais programmé en VBA, uniquement en VB !
_______________________________________

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

Réponse acceptée !
mais si je souhaite copier le contenu du presse papier dans une variable,on fait bien comme ça en VB ???

Dim toto As String
Clipboard.Clear

'récupération du presse papier dans le Clipboard
Clipboard.SetText Screen.ActiveControl.SelText

'vider le presse papier
Screen.ActiveControl.SelText = ""

'copier le Clipboard dans la variable toto
toto = Clipboard.GetText()

'j'affiche le contenu de mon presse papier
msgbox toto

Merlin

Réponse acceptée !
Ah non,, il ne faut pas vider le contenu du presse papier :

Dim toto As String
Clipboard.Clear

'récupération du presse papier dans le Clipboard
Clipboard.SetText Screen.ActiveControl.SelText

'copier le Clipboard dans la variable toto
toto = Clipboard.GetText()

'j'affiche le contenu de mon presse papier
msgbox toto
_______________________________________

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

Réponse acceptée !
Le prog m'informe qu'il me manque un "objet requis"
Merlin

Réponse acceptée !
Chez moi ca marche très bien sous VB6 avec un textbox...

Peut-être que le ActiveControl de l'objet Screen ne marche pas sous Excel...
_______________________________________

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer