SebastianTheRooster
10 sept. 2010 à 13:27
ca fonctione même en lancant VBA depuis Excel:
Sub test()
Dim appBO As busobj.Application
Dim docBO As busobj.Document
Application.DisplayAlerts = True
Set appBO = New busobj.Application
appBO.Interactive = True
appBO.LoginAs UID, "", True
appBO.Visible = True
appBO.CmdBars.ActiveMenuBar.Visible = True
DoEvents
Set docBO = appBO.Documents.Open(Chemin_Rapport, False, False)
End Sub