Bonjour,

Je souhaite lorsque je clique sur un boutons mettre dans le presse papier une données. Pour cela j'utilise le code suivants.
Mon problème est que lorsque je colle cette données préalablement copier cela colle du blanc ou des hiéroglyphes ex : " " et si le je le colle dans notepad cela représente "￿￿".

Si j’accède au presse papier par la méthode getfromclipboard, cela marche bien.
Pouvez vous m'éclairer sur cette problématique .

Voici mon code : je précise que je récupère ma données via un listview et que tous fonctionne à part le presse papier.

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
 
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
Dim MyData As DataObject
Set MyData = New DataObject
Dim reference As String
 
'Set MyData.SetText = Nothing
 
    If Not IsNumeric(ListIndex) Then ListIndex = 1
    If ColumnHeader.Index = 1 Then
        Col = 1
    Else
        Col = ColumnHeader.Index
        'MyData.SetText ListView1.ListItems(ListIndex).ListSubItems(ColumnHeader.Index - 1)
        reference = ListView1.ListItems(ListIndex).ListSubItems(ColumnHeader.Index - 1)
        'MsgBox reference
        MyData.SetText reference
        MyData.PutInClipboard
 
        MyData.GetFromClipboard
        Resultat = MyData.GetText(1)
        MsgBox Resultat
    End If
End Sub
Merci d'avance.