BO - Changement d'univers via Macro [Résolu]

[Mic59]

Bonjour,

Je souhaite changer, à travers une macro, l'univers de mes sources de données.

J'ai mis en place le code :

...
Set dpMyDataProvider = docMyDocument.DataProviders.Item(j)
dpMyDataProvider.ChangeUniverse (strUniverseName2)
...

strUniverseName2 étant le nom du nouvel univers que je souhaite affecter.
Le type attendu par la méthode ChangeUniverse est Universe et j'essaye de lui passer son nom (en texte) d'ou mon erreur.
Mon problème est que je n'arrive pas à trouver la facon d'ouvrir l'univers souhaité pour le passer en paramètre.

Merci d'avance

[BzhCH]

Pourquoi veux-tu "ouvrir" l'univers?
Normalement ta macro devrait marcher si tu as le nom de l'univers dans ta chaîne.

[Mic59]

Le code ne marche pas puisque je lui passe une chaîne de caractère en paramètre et non un univers.

J'ai trouvé la parade en initialisant des variables de type Univers avec les univers que j'ai dans l'application :

Code :

1
2
3
4
5
6
7
8
9
10
11
SET boUnivs = Application.Universes
 
    FOR Each boUniv IN boUnivs
       IF (boUniv.ShortName = "KDPILOT1") Then
          SET boUniv1 = boUniv
....
strUniverseName = dpMyDataProvider.Universe.ShortName
 
                    IF strUniverseName = "SYPILOT1" Then
                            dpMyDataProvider.ChangeUniverse boUniv1
...