Salut a tous,
Il m'arrive un truc bizzard... Je viens decréer une appli dans laquel je veux pouvoir copier des données pour les coller dans un fichier excel ou autre...
L'appli tourne nickel sur mon PC mais quand j'essaye sur un autre PC le presse papier est vide.... Les 2 PC sont sensiblement identique; WinXP, VB6 et office Xp d'installer...
Si quelqu'un à un début de piste je suis preneur...
mon code:
Private Sub ListeE2P_Keydown(Keycode As Integer, Shift As Integer) 'ListeE2P est un MSHflexgrid
Dim CtrlDown As Integer, Touche As Integer
CtrlDown = Shift
Touche = Keycode
If CtrlDown = 2 Then ' Si "Ctrl" est appuyé
Select Case Touche
Case vbKeyA ' "A" est appuyé
ListeE2P.Row = 0 ' ... je selectionne toutes
ListeE2P.Col = 0 ' ... les données
ListeE2P.RowSel = 255
ListeE2P.ColSel = ListeE2P.Cols - 1
Case vbKeyC ' "C" est appuyé je copie
Clipboard.Clear ' ...le text selectionné
Clipboard.SetText ListeE2P.Clip
End Select
End If
End Sub