[XI][C#] "Se balader" dans le référentiel

[toji~~]

Bonjour ,

Je voudrais réaliser une appli me permettant d'automatiser la récupération des documents BO et des univers présents sur le référentiel ( donc idéalement je le ferais respectivement avec les sdk de Desktop intelligence et Designer ) en les ouvrant pour ensuite les sauvegarder en local sur le disque.( un travail d'une trentaine de minutes à la main donc barbant à la longue )

Ce n'est pas ma première appli utilisant les sdk BO mais là je bloque , avec la méthode OpenFromEnterprise ( qui m'a bien fait galérer d'ailleurs car contrairement aux exemples fournis avec le sdk , le path à entrer est bizarrement de la forme /../ et non de la forme \..\ bref...) , on doit entrer en paramètre le document précis que l'on veut ouvrir...

L'idéal serait d'automatiquement ouvrir les doc BO dans certains dossiers sur le référentiel et d'ensuite les sauver en local.

Pour l'instant , je n'ai pas trouvé le moyen de faire cela , si quelqu'un a une idée elle est la bienvenue.

( j'ai déjà pensé à directement me rendre sur le repértoire distant où se trouvent tous les docs mais problème de droit oblige , je ne peux que passer par BO...)

Merci!

[toji~~]

personne ?

pour l'instant la seule solution trouvé serait de garder dans un fichier txte tous les docs et tous les paths pour que l'appli aille les chercher mais c'est pas très sexy...

[Bruno2r]

Bonsoir,
Voilà ce que je peux te proposer en VBA dans BO.

Code VB :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub OPEN_SAVE_DOCS_BO()
 
Dim Docnom As String
Dim Doc As Document
Dim Dossier             ' Emplacement des documents à traiter
Dim Dest As String      ' Emplacement de sauvegarde des documents
 
    On Error Resume Next
    Application.Interactive = False
    Application.BreakOnVBAError = False
 
'Répertoire par défaut
    Set Dossier = Application.GetInstallDirectory(boDocumentDirectory) 
    Set Dest = "C:\"    ' préciser le chemin se terminant par \
 
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(Dossier)
    Set fc = f.Files
    For Each f1 In fc
 
    Set Docnom = f1.Name
       ' Debug.Print f1.Name si tu veux vérifier dans la fenêtre exécution
    If Right(Docnom, 4) = ".rep" Then
    Set Doc = Application.Documents.Open(Docnom)
    Set Docsave = Dest & Docnom
    Doc.SaveAs (Docsave)
    Doc.Close
    End If
 
    Next
 
 
End Sub

A tester et peut-être à améliorer mais c'est un début

[toji~~]

Merci mais le problème est que les différents dossiers données par la méthode/fonctions GetInstallDirectory sont des dossiers sur un disque dur local et non les dossiers sur le référentiel distant...ce qui m'intéresserait...

Notamment le boDocumentDirectory est seulement composés de documents BO préalablement ouverts par l'utilisateur local mais mon but est même de récupérer des documents jamais ouverts.

En fait , je ne trouve pas de méthodes tapant sur le référentiel à part les openfromenterprise...peut être faut il utiliser un autre sdk que celui de designer ou desktop intelligence.

en tout cas merci et pas de problème pour le code VBA je saurais le traduire


edit : bon en fait ça a l'air impossible avec le sdk de bo XI R2...

http://devlibrary.businessobjects.co...igration3.html

3eme et 4eme lignes...