Discussion :

[PITP2]

Bonjour,
je souhaite savoir si il est possible d'ajouter de façon automatique des formes en fonction d'une base de donnée avec des identifiants pour chacune des formes désirées.
Exemple j'ai une forme appelée Toto dans la bibliothèque et j'ai dans une base de données dans une colonne l’ensemble des noms des formes à ajouter. Bien entendu toto s'y trouve et par conséquent la forme est ajoutée automatiquement sur ma feuille.

Merci d'avance pour votre aide

[felitix]

Bonjour,
Oui c'est tout a fait possible en créant un Recordset qui importe et lie tes données de ta BDD ensuite tu n'as plus qu' à faire un macro qui parcoure chaque ligne de ce Recordset et qui dépose une forme à chaque ligne (Method.Drop). Tu auras au préalable mis ta forme dans un gabarit et appliqué un graphique de données à celle ci.
Je dois avoir un exemple de code qui traine si ca t'intéresse:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Set DataRecord= ThisDocument.DataRecordsets(id de ton recorset)
lngRowIDsRef = DataRecord.GetDataRowIDs("")
For ImportLine = LBound(lngRowIDsRef) + 1 To UBound(lngRowIDsRef) + 1
       oPage.Drop Application.Documents.Item("Nomdugabarit.vss").Masters.ItemU("Nomdetaforme.7"), coordX, coordY
 
    Set oBlocPrecedentSelected = Visio.ActiveWindow.Selection(1)
    'Link the shape to the appropriate DataLine
    Application.ActiveWindow.Selection.LinkToData DataReference.ID, ImportLine, False
   )
    Next ImportLine