Prendre le focus sur un classeur Excel

Le 24/10/2022 à 16:33

Bonjour,

Je souhaite demander à VBA de Set le focus sur un classeur Excel ouvert alors que le début de ma macro se passe sur une autre application, comment puis-je procéder ?

Bonne journée,

Le 24/10/2022 à 16:35

Bonjour

Sans fichier ou code ...

Crdlt

Le 24/10/2022 à 16:40

Bonjour,

Pourquoi ? La plupart du temps c'est inutile...

Sinon :

Workbooks("blabla.xlsm").Activate

A+

Le 24/10/2022 à 16:47

Je souhaite à la fin de cette macro qui s’exécute dans notre ERP, prendre le focus sur le classeur "TESSSST" dans la feuil1 cellule A1. Pour y coller les données récoltées dans l'ERP.

Je doute que cela soit réalisable mais on ne sait jamais...

[PCOMM SCRIPT HEADER]
LANGUAGE=VBSCRIPT
DESCRIPTION=
[PCOMM SCRIPT SOURCE]
OPTION EXPLICIT
autECLSession.SetConnectionByName(ThisSessionName)

REM This line calls the macro subroutine
subSub1_

sub subSub1_()
   autECLSession.autECLOIA.WaitForAppAvailable

   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "pep"
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[right]"
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[right]"
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[right]"
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[right]"
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "211022[enter][enter]"

   autECLSession.autECLPS.WaitForAttrib 5,32,"00","3c",3,10000

   autECLSession.autECLPS.Wait 1295 

   autECLSession.autECLOIA.WaitForAppAvailable

   autECLSession.autECLPS.WaitForAttrib 11,1,"00","3c",3,10000

   autECLSession.autECLPS.Wait 2824 

   autECLSession.autECLOIA.WaitForAppAvailable

   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[pf15]"

   autECLSession.autECLPS.WaitForAttrib 9,1,"00","3c",3,10000

   autECLSession.autECLPS.WaitForCursor 9,2,10000

   autECLSession.autECLOIA.WaitForAppAvailable

   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "8"
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[enter]"

   autECLSession.autECLPS.WaitForAttrib 9,1,"00","3c",3,10000

   autECLSession.autECLPS.Wait 2481 

   autECLSession.autECLOIA.WaitForAppAvailable

   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[pf8]"

   autECLSession.autECLPS.WaitForAttrib 9,1,"00","3c",3,10000

   autECLSession.autECLPS.WaitForCursor 9,2,10000

   autECLSession.autECLOIA.WaitForAppAvailable

   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[right]"
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[right]"
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[right]"
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[right]"
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[right]"
   autECLMacro "[mark down]"

   autECLMacro "[mark down]"

   autECLMacro "[mark down]"

   autECLMacro "[mark down]"

   autECLMacro "[mark down]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[edit-copy]"
Rechercher des sujets similaires à "prendre focus classeur"