Discussion :

[aalex_38]

Bonjour,

J'utilise un USF pour pouvoir copier un tableau présent dans word.
Après la recopie manuelle par l'utilisateur, un bouton est rendu accessible
pour la copie dans word.

Code :

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

1
2
3
4
5
Sheets.Add After:=Sheets(Sheets.Count)
With ActiveSheet
       .Paste
      ...
 End With

Pour plus de souplesse, je voudrai que le bouton soit toujours accessible et tester si quelque chose (ce serait deja pas mal) est contenu dans le presse-papier.

Edit : j'ai trouvé du code pour VB chez monsieur plasserre mais je ne sais pas si c'est possible en VBA.
Un lien aussi ici, mais ne répond pas à ma question

[aalex_38]

Bonjour,

Bon j'ai fini par trouver ce que je cherchais :

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
Declare Function OpenClipboard Lib "user32"     (ByVal hwnd As Long) As Long
Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Long) As Long
Declare Function CloseClipboard Lib "user32" () As Long
Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
 
Sub test_du_pressepapiers()
 
Dim données As Long
 
OpenClipboard GetWindow(0, 0)
données = GetClipboardData(1)
If données <> 0 Then
  ...
Else
  MsgBox "il n'y a pas de texte dans le presse-papiers"
End If
CloseClipboard
End Sub

Edit : je mets sur résolu quand j'aurai terminé, en attendant si quelqu'un a une suggestion...

[aalex_38]

Bon, le code fonctionne parfaitement.

Juste une question quelqu'un pourrai m'expliquer le fonctionnement de

Code :

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

GetClipboardData(1)

apparemment 1 correspond au format texte, comment peut-on connaitre les valeurs possibles ? Je n'arrive pas par exemple à utiliser CF_TEXT

EDIT dans les exemples que j'ai vu on donne en fait la valeur 1 à CF_TEXT
mais je n'ai pas encore trouvé de tableau avec ces valeurs.

[aalex_38]

Bonjour,

J'ai cru comprendre qu'avec VBA on ne pouvait pas recuperrer le HANDLE
donc il faut donner la valeur 1 à CF_TEXT; 2 pour CF_BITMAP...