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
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