Bonjour,

j'ai un document visio qui contient un organigramme basé sur une feuille Excel. Je voudrais dans un script vbs lancer une méthode qui raffraichisse le doc visio afin que si une modif a été faite dans le fichier excel elle est répercutée dans le visio.

Problème : impossible de trouver la méthode de raffraichissement.

Voila ce que j'ai réussi à faire :

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
 
Dim stAppName 
Dim strchemin 
Dim applicationVisio
 
Set applicationVisio = CreateObject("Visio.Application")
 
' chemin du doc vision
strchemin = "D:\Documents and Settings\bfraile\Mes documents\CG83\RH\organigramme\test.VSD"
strchemin2 = "D:\Documents and Settings\bfraile\Mes documents\CG83\RH\organigramme\test2.VSD"
 
applicationVisio.Documents.Open(strchemin)
 
applicationVisio.ActiveDocument.SaveAs(strchemin2)
applicationVisio.ActiveDocument.Close()
applicationVisio.quit
Merci pour votre aide