Discussion :

[Daniel.C]

Bonjour,

J'utilise (sans comprendre) ces API pour mettre du texte dans le presse-papiers :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Declare Function OpenClipboard Lib "user32.dll" ( _
    ByVal hwnd As Long) As Long
Private Declare Function CloseClipboard Lib "user32.dll" () As Long
Private Declare Function EmptyClipboard Lib "user32.dll" () As Long
Private Declare Function SetClipboardData Lib "user32.dll" ( _
    ByVal wFormat As Long, _
    ByVal hMem As Long) As Long
Private Declare Function GlobalAlloc Lib "kernel32.dll" ( _
    ByVal wFlags As Long, _
    ByVal dwBytes As Long) As Long
Private Declare Function GlobalLock Lib "kernel32.dll" ( _
    ByVal hMem As Long) As Long
Private Declare Function GlobalUnlock Lib "kernel32.dll" ( _
    ByVal hMem As Long) As Long
Private Declare Function GlobalFree Lib "kernel32.dll" ( _
    ByVal hMem As Long) As Long
Private Declare Function lstrcpy Lib "kernel32.dll" ( _
    ByVal lpStr1 As Any, _
    ByVal lpStr2 As Any) As Long
 
Private Const CF_TEXT As Long = 1&
 
Private Const GMEM_MOVEABLE As Long = 2
'
Public Sub Exemple()
    Call StringToClipboard("Hello ...")
End Sub

Quelqu'un pourrait-il adapter ce code pour qu'il soit également utilisable avec une version 64 bits d'Excel ?

Merci d'avance.

[Invité]

Bonjour Daniel,
http://www.developpez.net/forums/d15...r/#post8435855

[Daniel.C]

Bonjour,

Super ! Merci beaucoup !

[patricktoulon]

re
Bonjour Daniel
on est pas obligé d'engager les api pour le clipboard

mettre un texte dans le clipboard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim string 
TString = "quelque chose dans le clipboard"
Set WshShell = WScript.CreateObject("WScript.Shell") 
WshShell.Run "cmd.exe /c echo " & TString & " | clip", 0, TRUE

lire le contenu du clipboard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim TextClip 
set clipo=createobject("htmlfile")
TextClip =clipo.ParentWindow.ClipboardData.GetData("Text")
msgbox TextClip

vider le clipboard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set WshShell = WScript.CreateObject("WScript.Shell") 
WshShell.Run "cmd.exe /c echo off " &" | clip", 0, TRUE

[Marc-L]

Salut Daniel !

Quelqu'un pourrait-il adapter ce code pour qu'il soit également utilisable avec une version 64 bits d'Excel ?

Une page intéressante où il y a pas mal de pré-mâché vers le bas : Declaring API functions in 64 bit Office …

[Daniel.C]

Merci à tous.

Daniel