Discussion :

[misterjuicelink]

Bonjour tout le monde,

je me permets de vous demander votre aide pour un truc qui me laisse totalement perplexe...

j'ai fait un tout petit code (s'inspirant très fortement d'un code trouvé sur un forum) utilisant les fonctions onKey et sendKey permettant de faire un enregistrement automatique d'un fichier toutes les 5 pressions de la touche "entrée" du clavier numérique
(j'ai fait ça à cause d'un problème de stabilité d'un fichier depuis une migration vers excel 2013 64b dont notre nouvel infogérant semble se moquer totalement, bref...)
vous trouverez en pièce jointe le fichier en question dont voila le code :

dans la macro d'ouverture du fichier :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Workbook_Open()
 
countPressEnter = 0
Application.OnKey "~", "countPressTime"
 
 
 
End Sub

dans un module :

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
Dim countPressEnter As Integer
 
 
Private Sub countPressTime()
    countPressEnter = countPressEnter + 1
    Application.SendKeys ("{ENTER}")
 
If countPressEnter = 5 Then
     ActiveWorkbook.Save
     Application.SendKeys ("{ENTER}")
     countPressEnter = 0
     CreateObject("Wscript.shell").Popup "Sauvegarde effectuée", 1, "Sauvegarde"
     Else: Exit Sub
End If
End Sub

le code fonctionne parfaitement bien : toutes les 5 pressions de la touche entrée, une sauvegarde s'effectue et un pop up s'affiche pour le signaler
donc tout semble parfait sauf que.......... et ben sauf que pour une raison qui m'échappe totalement, à chaque pression de la touche "entrée" du clavier principal, le pavé numérique se désactive !!!

et là, j'ai besoin de vous pour comprendre

un grand merci pour votre aide !
julienTest sauvegarde toutes les 5 pressions de la touche entrée.xlsm

[clementmarcotte]

Bonjour

Presque personne n'ouvre les fichiers balancés avec la première question.

Et encore moins les fichiers de macros

Et puis, il y a bien plus simple que ta patente:
Le minimum c'est une minute. Au pire le travail perdu se limite à l'intervalle.



Et/ou, développer le réflexe de cliquer dans la barre d'outils Accès rapide:



Si l'icone n'est pas affichée, tu peux l'afficher et même l'ajouter.

[kiki29]

Salut, pb connu et récurrent pour cela utiliser le Shell pour tous les SendKeys. Cela si tu n'as pas opté pour la solution de Clément plus simple et efficace.

Code :

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

1
2
3
4
With CreateObject("WScript.Shell")
    .SendKeys ....
    .....
End With

[misterjuicelink]

Salut, pb connu et récurrent pour cela utiliser le Shell pour tous les SendKeys. Cela si tu n'as pas opté pour la solution de Clément plus simple et efficace.

Code :

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

1
2
3
4
With CreateObject("WScript.Shell")
    .SendKeys ....
    .....
End With

Salut Kiki !
merci pour ton aide
mais je ne connais pas le shell, peux tu m'en dire un peu plus sur le pourquoi du comment?

j'ai essayé avec ca :

Dim countPressEnter As Integer

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
Private Sub countPressTime()
    countPressEnter = countPressEnter + 1
 
With CreateObject("WScript.Shell")
    .SendKeys ("{ENTER}")
End With
 
 
If countPressEnter = 5 Then
     ActiveWorkbook.Save
     countPressEnter = 0
     CreateObject("Wscript.shell").Popup "Sauvegarde effectuée", 1, "Sauvegarde"
'     Application.SendKeys ("{ENTER}")
     Else: Exit Sub
End If
End Sub

mais ça fait tourner la macro en boucle, je suis obligé de l'arrêter à la main...

julien

[kiki29]

re, puisque tu sembles partisan de la complexification des applis va voir VERR MAJ et VERR NUM dans userform , à adapter à ton contexte.

[misterjuicelink]

re, puisque tu sembles partisan de la complexification des applis va voir VERR MAJ et VERR NUM dans userform , à adapter à ton contexte.

Merci beaucoup, je vais regarder avec attention
et comme je sens un peu de sarcasme dans ta réponse , je vais simplement préciser que je suis adepte du plus simple, mais je fais aussi ce que je peux avec ce que j'ai, c'est à dire une bande d'informaticien persuadés que si le fichier plante inopinément, c'est la faute du fichier... alors qu'avant la migration chez eux, ça marchait parfaitement bien, et que sur la version excel installée sur le serveur TSE, ça marche aussi parfaitement bien...
donc face à un mur qui refuse d'admettre que l'excel installé sur les postes est mal installé, je me débrouille comme je peux et avec l'aide de gens comme toi qui est ultra précieuse !

julien

[misterjuicelink]

Bonjour

Presque personne n'ouvre les fichiers balancés avec la première question.

Et encore moins les fichiers de macros

Ah ok désolé, j'ignorais, mais c'est vrai qu'en y repensant, c'est assez logique

Et puis, il y a bien plus simple que ta patente:
Le minimum c'est une minute. Au pire le travail perdu se limite à l'intervalle.



Et/ou, développer le réflexe de cliquer dans la barre d'outils Accès rapide:



Si l'icone n'est pas affichée, tu peux l'afficher et même l'ajouter.

En fait je l'ai faite probablement un peu trop courte dans mon premier post pour pas ennuyer avec les détails, mais ça aurait surement valu le coup finalement.
La sauvegarde automatique ne fonctionne pas correctement car le fichier qui pose problème fonctionne avec des liens OLE vers un logiciel de compta. Et quand le fichier plante et qu'on se fait sortir d'Excel sauvagement, ça "casse" tout, et c'est une vraie galère pour les restaurer. Résultat, c'est beaucoup plus simple de repartir de la dernière sauvegarde propre que l'on a

Pour le réflexe ctrl+s ou l'icone de sauvegarde, je suis d'accord, mais ce n'est pas le cas de tout le monde, et parfois, quand on est dans le boulot, beaucoup de collègues n'y pensent pas, et perdent plusieurs dizaines de minutes de travail, ce qui peut représenter pas mal de remplissage du fichier...

julien