Discussion :

[freeman43]

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.

[unparia]

Bonjour
je ne sais personnellement déjà pas comment tu peux écrire que :

Si j’accède au presse papier par la méthode getfromclipboard, cela marche bien.

alors que tu tentes de mettre dans le presse-papier un subitem d'index 0 lorsque ColumnHeader.Index = 1
Commence par m'expliquer ce phénomène qui m'échappe.

[freeman43]

Bonjour,

Cela est normal car dans mon listItems je charge un tableau.
par contre à l'affichage j'ajoute en début de mon listitem une valeurs numérique que je ne veux pas copier.
Ce qui fait que le subitems 2 correspond à la première valeur de mon tableau donc pour y accéder j’enlève une valeurs.

Cette fonction marche bien, le problème ne viens pas de l'index de l'item.
le code suivants marche bien, mais lorsque je colle ma données dans une autre applications, cela ne fonctionne pas :

Code :

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

1
2
3
4
 
MyData.GetFromClipboard
Resultat = MyData.GetText(1)
MsgBox Resultat