Ouvrir sur un serveur une requête BO depuis Excel ?

[LPandre]

Bonjour à toutes et tous,

Mon problème :
Comment ouvrir sur un serveur une requête BO depuis Excel ?
La difficulté est que selon le poste de travail la lettre du serveur n'est pas la même.
chez moi c'est g par exemple
j'ai regardé quelques réponse de Laurent L ( sauf erreur) à des questions qui me semblaient similaires, mais alors là... j'ai rien compris !!!
J'ai essayé le code ci-dessous : ça va pas !
Par avance merci.

******
Sub LanceBO()
Sheets("Feuil1").Select
rep1 = InputBox("", "Lettre du serveur", g)
If rep1 = Cancel Then
Exit Sub
Else: Set objBO = CreateObject("BusinessObjects.Application.6")
objBO.LoginAs "tutu", "toto", True
Set objrep = objBO.Documents.Open("rep1:\BOV6\sousrep1\fichier1.rep")
End If
End Sub

******

Bien cordialement.

 

[matthieu33]

Re : Ouvrir sur un serveur une requête BO depuis Excel ?

Bonjour,

Peux-tu remplacer l'instruction d'ouverture du fichier par celle-ci ?

dim strNomFic as String
strNomFic = rep1 & ":\BOV6\sousrep1\fichier1.rep"
Set objrep = objBO.Documents.Open(strNomFic)

@+

 

[LPandre]

Re : Ouvrir sur un serveur une requête BO depuis Excel ?

Matthieu, c'est impec.

MERCI !!!!!


Cordialement