Activation du pavé numérique en VBA

Question

Bonjour,

Pour un seul fichier Excel, quand je le referme le pavé numérique est désactivé. Sur le web, j'ai trouvé des infos et essayé cela :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim WshShell As WshShell 

Set WshShell = New WshShell 

WshShell.SendKeys "{NUMLOCK}" 

End Sub

Excel s'arrête sur la 1e ligne (Dim...) en disant : "Erreur de compilation - Type défini par l'utilisateur non défini"

Comment faire ?

Merci, cordialement

Richard

Answer 1

Bonjour,

Mets simplement :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
SendKeys "{NUMLOCK}"
End Sub

Daniel

Answer 2

Parfait, merci

Richard

Answer 3

Bonjour Rich7606,

Merci pour votre réponse rapide et votre retour d’information, je vous encourage à contacter notre support Microsoft pour le demander directement via l’assistance à distance. S’il vous plaît voir le lien pour plus d’informations pour vous connecter avec nous: https://support.microsoft.com/en-US/search/results?query=microsoft+support&isEnrichedQuery=false

Si vous avez des préoccupations ou des éclaircissements, veuillez répondre dans la section des commentaires ci-dessous. Merci bien!

Cordialement

Arielle Martina

Aidez la prochaine personne qui a ce problème en indiquant si cette réponse a résolu votre problème. Cliquez sur Oui ou Non ci-dessous.

Cette réponse a été traduite automatiquement. Par conséquent, il peut y avoir des erreurs grammaticales ou des expressions étranges.

Answer 4

Bonjour,

Merci pour votre réponse, mais je n’y arrive pas.

Dans les « Références disponibles » ne se trouve pas MS Word. 2.

Quant à la notion de « liaison tardive » elle m’est totalement inconnue.

Richard

Answer 5

Bonjour Rich7606,

Une bonne journée à vous et j’espère que vous allez bien.

Je m’appelle Arielle Martina, je serais heureuse de vous aider aujourd’hui.

En ce qui concerne votre requête ci-dessus, vous pouvez résoudre ce problème de deux manières: Veuillez consulter les instructions ci-dessous.

1. Incluez une référence au modèle objet Microsoft Excel. Faites-le à partir de Outils | Références, puis ajoutez une référence à MS Word.
2. Sinon, pour utiliser la méthode de liaison tardive, vous devez déclarer les objets en tant que types d’objets génériques : Dim oTable en tant qu’objet, oRow en tant qu’objet.

Cette erreur a les causes et les solutions suivantes : vous avez essayé de déclarer une variable ou un argument avec un type de données non défini ou vous avez spécifié une classe ou un objet inconnu. Utilisez l’instruction Type dans un module pour définir un nouveau type de données.

Pour plus d’aide avec le support de chat en direct. Je vous encourage à contacter notre support Microsoft pour en faire la demande directement via l’assistance à distance. S’il vous plaît voir le lien pour plus d’informations pour vous connecter avec nous: https://support.microsoft.com/en-US/search/results?query=microsoft+support&isEnrichedQuery=false

Si vous avez des préoccupations ou des éclaircissements, veuillez répondre dans la section des commentaires ci-dessous. Merci bien!

Cordialement

Arielle Martina

Cette réponse a été traduite automatiquement. Par conséquent, il peut y avoir des erreurs grammaticales ou des expressions étranges.