Discussion :

[jeff1494]

Bonjour à toutes et tous;

J'ai un classeur avec des macros, dont une qui a pour fonction à l'ouverture du classeur

1. Ajouter un onglet dans le ruban
2. De positionner le ruban sur ce nouvel onglet.
3. Affichage un bouton pour lancer d'autres macros dont l'affichage d'un UserFom

Cela fonctionne parfaitement, mais je viens de remarquer que le clavier numérique (Num Lock) qui est actif avant l'ouverture du classeur, et désactivé une fois le classeur ouvert.

Je n'ai aucune idée d'où ce problème peut venir. Certainement de cette partie de création de l'onglet, ajout du bouton, et positionnement dans ce nouvel onglet du ruban.
Mais je ne suis pas assez pointu pour savoir d'où cela peut venir.

Quelqu'un a-t-il déjà été confronté à ce problème? Et si oui comment cela a été réglé.

En cas de besoin, je pourrai mettre à disposition mon fichier qui pèse 140Ko.

D'avance merci à ceux et celles qui pourraient m'aider à résoudre ce problème.

Bonne journée à toutes et tous.

En fait après quelques recherches sur le net, il semble que les instructions "SendKeys" soient en cause
Cette partie de code est pour atteindre l'onglet créé.

Code :

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

1
2
3
4
5
6
 
Sub Saisie_Heures()
    Application.SendKeys "%Y%" '<-- Le code Y est obtenu en tapant ALT une fois que le fichier est ouvert
    Application.SendKeys "{Esc}{Esc}"
    'SendKeys "{NUMLOCK}", True 'Ajout pour réactiver le pavé numérique. Test mais ne fonctionne pas
End Sub

Donc si les SendKeys foutent le Bo...el, comment les remplacer?

Merci d'avance.

[Marc-L]

Bonjour !

Préférer l'utilisation d'un ActiveX comme dans cette contribution …


______________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …


______________________________________________________________________________________________________
Je suis Paris, Charlie, Bardo, Sousse, Kenya Garissa University, Liban, Mali, …

[kiki29]

Salut, voir ici ou là, à adapter au contexte

[jeff1494]

Merci à vous deux pour vos réponses.
Il ne me reste plus qu'a digérer tout cela.

En fait avant que de regarder le détail de vos solutions, j'ai juste ajouté la ligne suivante dans ma macro:

Application.SendKeys "{NUMLOCK}", True

Et apparemment cela fonctionne.

Bonne journée.

[kiki29]

Salut, les SendKeys sont souvent instables, regarde ici 2nde version

Pour remédier au problème intermittent lié aux SenKeys multiples que les DoEvents ne résolvent pas toujours et qui se traduit par une désactivation des NumLock CapsLock ScrollLock PauseLock

une solution :

Code :

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

1
2
3
4
5
6
7
8
Dim Wsh As Object  
 
            Set Wsh = CreateObject("WScript.Shell")
            With Wsh
                .SendKeys .....
                ' etc
            End With
            Set Wsh = Nothing

[jeff1494]

Bonjour à toutes et tous;

Kiki29 désolé pour le retard de ma réponse , mais j'ai du laisser tomber ce travail pour quelques jours, et donc n'ai pas suivi les réponses sur le forum.

En tous cas merci pour te dernière contribution. Je vais mettre ce code de côté, et y regarder de plus près.

En tout cas je considère ce sujet comme résolu.

Merci à ceux qui ont pris le temps d'y répondre.

Bonne journée à toutes et tous.