Pilotage BO.12 par VBA : validation de l'id et du mdp
Bonjour,
Via le code suivant :
Sub openBO()
Dim objBO, objrep
'Ouvre Business Object
Set objBO = CreateObject("BusinessObjects.Application.12")
'Rentre le login et mdp
objBO.LoginAs "LOGIN", "PASSWORD", False, enterprise
J'arrive à créer une instance Business Object.12 mais cependant, un problème subiste toujours : la fenêtre de connexion s'ouvre et il ne me reste plus qu'à cliquer sur ok et tout fonctione, seulement j'aimerai que ce clic sur "OK" soit lui aussi automatisé !
j'ai bien essayé le code : appBO.Interactive = False--> mais l'erreur "Login as failed" se déclenche
j'ai aussi essayé des logiciels (clickyes & yesexpress) mais là aussi aucun résultat...
Quelqu'un aurait-il, svp, une solution ?
Merci d'avance
Bonjour,
Je n'aime pas trop car ça désactive parfois le pavé numérique mais tu peux essayer avec
SendKeys "{ENTER}"après tempo si besoin. En attendant mieux...
eric
Salut Eric et merci de la rapidité de ta réponse !
Malheureusement, le résultat est toujours le même...
peut-être l'ai-je mal placé...
Sub openBO()
Dim objBO, objrep
'Ouvre Business Object
Set objBO = CreateObject("BusinessObjects.Application.12")
SendKeys "{ENTER}"
'Rentre le login et mdp
objBO.LoginAs "login", "password", False, enterprise
End Sub
Il faut que ta fenêtre à valider soit en avant-plan et que le bouton OK soit le choix par défaut (validable avec 'Entrée')
Si c'est le cas essaie en ajoutant devant :
Application.Wait(Now + TimeValue("0:00:10"))
Tu baisses le temps si c'est plus rapide à apparaitre.
eric