SendKeys qui ne fonctionne plus normalement

marmotte18 · 19 Novembre 2010

Bonjour,

La macro suivante a fonctionné pendant des jours et des jours. Aujourd'hui, j'ai voulu utiliser mon application et la macro ne donne plus les résultats attendus. Pourtant, je n'ai rien modifié sur cette application.

Code:

Sub PtDH()
'N'affiche que 4 fois les points H et DH
'---------------------------------------
CtrFois = CtrFois + 1
If CtrFois <= 4 Then
    Cells(L1 + 1, C1).FormulaR1C1 = " H -  DH"
    Cells(L1 + 1, C1).Activate
    SendKeys "{F2}{LEFT 8}"
End If
End Sub

Cette macro permet de :

écrire dans la cellule spécifiée le texte " H - DH"
revenir sur la cellule ainsi modifiée
mettre le curseur sur le 1er caractère de la cellule afin de pouvoir effectuer une saisie.

Si l'action était faite à la main au lieu de la macro, cela consisterait à faire F2 sur la cellule de mon choix et de déplacer le curseur avec la touche "flèche gauche" jusqu'au 1er caractère.

Merci par avance à celle ou celui qui me trouvera la parade à ce dysfonctionnement.

Softmama · 19 Novembre 2010

Re : SendKeys qui ne fonctionne plus normalement

Bonsoir,

Peut-être juste en remplaçant :

Code:

    Cells(L1 + 1, C1).Activate
    SendKeys "{F2}{LEFT 8}"

par

Code:

    Cells(L1 + 1, C1).[COLOR="SandyBrown"]Select[/COLOR]
    SendKeys "{F2}{[COLOR="DarkOrange"]HOME[/COLOR]}"

marmotte18 · 19 Novembre 2010

Re : SendKeys qui ne fonctionne plus normalement

Bonsoir Softmama,

Merci pour ta réponse mais désolé, cela ne fonctionne pas. Je cherche à comprendre pourquoi subitement ma macro ne répond plus comme elle a toujours fonctionné.

Guest · 19 Novembre 2010

Re : SendKeys qui ne fonctionne plus normalement

Bonsoir,

Avec CTRL+HOME cela fonctionne.

Code:

    Cells(L1 + 1, C1).Select
    SendKeys "{F2}^{HOME}"

A+

marmotte18 · 19 Novembre 2010

Re : SendKeys qui ne fonctionne plus normalement

Bonsoir Hasco,

Merci également pour ta réponse, mais cela ne fonctionne toujous pas chez moi.

Guest · 19 Novembre 2010

Re : SendKeys qui ne fonctionne plus normalement

Re Marmotte,

Voudrais-tu dire que SendKeys ne fonctionne plus du tout?
As-tu essayer avec une autre macro?

As-tu essayer la forme: Application.SendKeys

Si c'est le cas, je ne vois pas.

Ta cellule serait-elle protégée?

A+

Guest · 19 Novembre 2010

Re : SendKeys qui ne fonctionne plus normalement

Re,

Une idée subite

Aurais-tu Application.TransitionNavigKeys = True.

si c'est le cas, mets le à false.

A+

marmotte18 · 19 Novembre 2010

Re : SendKeys qui ne fonctionne plus normalement

Bonsoir Hasco,

J'ai essayé :

Application.SendKeys (=> ne fonctionne pas)
Ma cellule n'est pas protégée
Sendkeys fonctionne sur une macro d'un autre classeur et sur une autre macro du classeur qui me pose problème

Exemple :

Code:

Sub essai()
ActiveCell.Activate
SendKeys "{F2}"
End Sub

Softmama · 19 Novembre 2010

Re : SendKeys qui ne fonctionne plus normalement

Re Marmotte18,

Est-ce que ta macro se trouve dans un fichier assez lourd ? Pque ton problème pourrait être lié à sendkeys qui est envoyé trop vite. Ca arrive parfois sur les gros fichiers ou les vieilles machines.

marmotte18 · 19 Novembre 2010

Re : SendKeys qui ne fonctionne plus normalement

Bonsoir Softmama,

Merci pour ta réponse mais le problème ne vient pas de là et je viens de trouver la réponse à mon problème. Il faut mettre :

Code:

Application.EnableEvents = True

J'avais interrompu à tort la bonne marche de ma macro en appuyant sur "Ctrl + Pause" et quelques instructions auparavant, il y avait "Application.EnableEvents = False". Ma macro n'avait pas eu la possibilité de passer "Application.EnableEvents = True" puisqu'elle avait été interrompue prématurément.

MJ13 · 20 Novembre 2010

Re : SendKeys qui ne fonctionne plus normalement

Bonjour à tous

Sinon, dans l'aide de sendkeys, quelquefois, il faut le mettre à true.

Ex:

Code:

SendKeys "{F2}, true"

marmotte18 · 20 Novembre 2010

Re : SendKeys qui ne fonctionne plus normalement

Bonjour MJ13,

Effectivement, j'avais essayé cette possibilité mais cela n'avait rien donné.

Comme j'ai dit que je n'avais pas modifié mon code entre le moment où cela fonctionnait normalement et le moment où mon application ne tournait pas correctement, il y avait donc un événement extérieur perturbateur.

C'était l'arrêt autoritaire de la macro par le clavier (Ctrl + Pause)

SendKeys qui ne fonctionne plus normalement

marmotte18

XLDnaute Impliqué

Softmama

XLDnaute Accro

marmotte18

XLDnaute Impliqué

Guest

Guest

marmotte18

XLDnaute Impliqué

Guest

Guest

Guest

Guest

marmotte18

XLDnaute Impliqué

Softmama

XLDnaute Accro

marmotte18

XLDnaute Impliqué

MJ13

XLDnaute Barbatruc

marmotte18

XLDnaute Impliqué

Discussions similaires