Microsoft 365 Combinaison de touches dans une macro

Pirounette

XLDnaute Nouveau
Je butte le problème suivant
J'ai un fichier Excel 365 dans lequel j'ai à peu près 20000 lignes.
Je transfère les cellules des colonnes P et Q dans un autre logiciel (TextAloud) que j'ai configuré de façon particulière.
Je positionne le curseur sur une ligne de la colonne P et je fais Echap puis Ctrl+Q. Cette séquence remplace le texte dans le titre de TextAloud, sans avoir a quitté Excel.
Toujours dans Excel je déplace le curseur dans la colonne Q, sans changer de ligne et je fais Copier. Ce qui remplace le texte de l'article dans TextAloud.
La séquence de touche "Echap" - "Ctrl+q" puis déplacer le curseur et enfin "Copie" fonctionne parfaitement avec la configuration de TextAloud.
Je voudrais automatiser cette séquence et je bute sur le Ctrl+q
J'ai essayé ceci
Application.CutCopyMode = False
Application.SendKeys "(^(q))", True
ActiveCell.Offset(0, 1).Select
Application.CutCopyMode = False
Selection.Copy
Mais évidement ça ne marche pas. Je n'arrive pas à éxecuter la séquence de touche Ctrl+q
Pouvez-vous venir à mon aide ?
Je vous remercie par avance
 

Pirounette

XLDnaute Nouveau
Je vous remercie de votre aide
J'ai essayé de supprimer les parenthèse et les accolades, le résultat est toujours le même à savoir désactivation du verrouillage numérique et arrêt du défilement.
Lorsque je fais un enregistrement de macro j'obtiens à la place de Application.SendKeys "^q" un Selection.Copy
bizarre non ?
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Qu'est censé faire votre Ctrl q ?
Ce Ctrl q est géré par XL ou par Textaloud ?

Après avoir un peu fouillé, beaucoup préconisent de mettre un délai après Sendkeys, avec :
Application.Wait (Now + TimeValue("0:00:01")) Cela me semble lourd car normalement le True après Sendkeys est justement là pour attendre l'éxécution. Mais bon, on peut toujours tester.
 

Pirounette

XLDnaute Nouveau
Je suis dans Xl je tape Ctrl q et le texte est copier dans le titre de TextAloud dans lequel j'ai configurer la création d'un nouvel article par le raccourci Ctrl q. Je peux configurer toutes les touches avec un Ctrl ou un Alt ou encore les deux Ctrl Alt
Je viens de tester avec la pause mais c'est pareil
 

Pirounette

XLDnaute Nouveau
Oui dans Xl mais dans TextAloud il y a le titre et l'article. L'article se rempli correctement lorsque je fais Ctrl c dans Xl et le titre se rempli correctement lorsque je fais Ctrl q dans XL.
Je crois bien qu'il va falloir renoncer à la macro car effectivement dans XL cela correspond à 2 copies
 

Discussions similaires

  • Question
Microsoft 365 Excel365
Réponses
2
Affichages
154
Réponses
8
Affichages
447

Statistiques des forums

Discussions
311 713
Messages
2 081 808
Membres
101 819
dernier inscrit
lukumubarth