Discussion :

[gnedea]

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 :

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

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 :

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.

[mfoxy]

Bonjour,

Tu ne serais pas en office 64bit par hasard ?

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

Code :

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

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

[gnedea]

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

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