Discussion :

[ctobini]

Bonjour,

Je suis débutant en BO (XiR2) et je souhaite manipuler des rapports en VBA.

Ma problématique est que je dois pour le moment exporter des documents en changeant les connexions des fournisseurs.

J'ai 50 rapports dont je dois modifiers les fournisseurs 1 à 1 pour changers les connexions, sachant que la connexion est la même. Devant changer 3 fois les fournisseurs, j'ai donc x fournisseurs à changer 3 fois, fois 50. C'est assez laborieux...

Est-il possible en VBA d'automatiser le changement de connexion pour tous les fournisseurs dans un rapport ?

En vous remerciant,

C. Tobini

[Bruno2r]

Bonsoir,
J'aurais besoin de précisions sur ce que tu entends par changer les connexions ...

• Connexion de sql à la carte ?
• Univers ?

[ctobini]

Bonjour et merci de la réponse,

Pour exemple, un rapport dispose de fournisseurs reliés à un univers.

3 univers existent dans la CMS : Univers1, Univers2 et Univers3.

Si un documents a tous ses fournisseurs déjà liés à Univers1, je souhaite fixer tous les fournisseurs sur Univers2.

Actuellement en XiR2, la manipulation est manuelle sur chaque fournisseur.

En vous remerciant,

C. Tobini

[Bruno2r]

Bonsoir
Voici une proposition de procédure ... qui peut être améliorée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
34
35
36
 
Public Sub ModifUnivers()
Dim doc As Document
 
Dim dp As DataProvider
 
Dim unv As Universe
Dim unvnew As Universe
Dim newname As String
 
Set doc = Application.ActiveDocument
 
For Each dp In doc.DataProviders
    --détermine la règle de substitution des univers
    Select Case dp.Universe.LongName
        Case "Univers1"
            newname = "Univers2"
        Case "Univers2"
            newname = "Univers3"
        Case "univers3"
            newname = "Univers1"
    End Select
    --recherche nouvel uniivers
    For Each unv In Application.Universes
        If unv.LongName = newname Then
            Set unvnew = unv
            Exit For
        End If
    Next unv
    --substitution
        Debug.Print "univers" & dp.UniverseName
    dp.ChangeUniverse (unvnew)
        Debug.Print "universnew" & dp.UniverseName
    End If
Next dp
End Sub

La boucle sur les univers permet de récupérer l'objet univers :unvnew
Je n'ai pas réussi à passer la référence du nouvel univers dans ChangeUniverse() par son nom