Macro pour envoyer un userform vers une feuille excel

Bonjour le forum
Je viens pour la n-ième fois vers vous pour solliciter votre aide.
J'utilise Excel 2014
Voilà le code que j'essaie d'utiliser pour copier un userform vers une feuille excel :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Déclaré sub Keybd_Event Lib "user32" (Byval bVk As Byte , Byval bScan As Byte, Byval dwFlags As Long, Byval dwExtraInfo As Long) Dim Ws As Worksheet   Private Sub CommandButton1_Click () Keybd_Event vbKeySnapshot, 1, 0&, 0& Doevents   Set Ws= Sheets.Add Ws.Paste   With Ws .PrintOut End Sub

---

Le problème est que lorsque je clique sur le bouton (CommandBbutton1) un message d'erreur apparaît :

Citation:

---

Erreur d'exécution '453':
Point d'entrée Keybd_event d'une DLL introuvable dans user32

---

Et lorsque je clique sur Débogage une bande jaune apparaît sur le code: Keybd_Event vbKeySnapshot, 1, 0&, 0&

J'ai besoin de votre aide pour corriger ce bout de code .
Merci pour votre aide.

Bonjour,

Tu ne serais pas en office 64bit par hasard ?

Essaie peut-être en modifiant ta déclaration d api par

Code:

---

1 2	Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As IntPtr)

---

Bat

Merci proximus pour ta réponse ça ne fonctionne pas on dit :

Citation:

---

Erreur de compilation
Type défini par l'utilisateur non défini

---

Merci mfoxy pour ta réponse ça ne fonctionne pas c'est le même résultat