Discussion :

[bruno782]

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

[_xme_]

Question bête pourquoi en vbs?
Pourquoi ne pas faire une macro intégré à ton excel qui lors d'un changement ou avant la sauvegarde de l'excel mettrais à jour ton visio?

A propos des rafraichissement, à mon avis tu ne peux pas avoir un rafraichissement tout seul en vb, tu dois fermer et réouvrir le fichier. Mais je peux me tromper

[bruno782]

Excellente question, il n'y a pas de raison particulière. Mais le problème ne serait il pas exactement le même? Il me faudra dans tous les cas la fonctionnalité de raffraichissement automatique pour visio....

Pour l'autre partie de ton message pas sur d'avoir compris. Mon "open" et "saveas" remplisseent ma fonction d'ouverture du fichier.

Question bête pourquoi en vbs?
Pourquoi ne pas faire une macro intégré à ton excel qui lors d'un changement ou avant la sauvegarde de l'excel mettrais à jour ton visio?

A propos des rafraichissement, à mon avis tu ne peux pas avoir un rafraichissement tout seul en vb, tu dois fermer et réouvrir le fichier. Mais je peux me tromper

[_xme_]

rebonjour
non le problème ne serait absolument pas pareil en fait
Tu as 2 solutions technique:
- un script vbs qui tournent en permanence, écoute les modifcations de ton excel et alors modifie ton visio (c'est un script qui tourne en tâche de fond)
- un script vba qui avant de quitter lorsque tu enregistres met à jour le visio.
La deuxième solution m'a l'air de mieux convenir à ton besoin
En fait tout dépend de ton besoin
Si tu veux un script qui vérifie quand tu poses la question alors c'est le vbs
Si tu veux que ce soit fait dès que tu modifies le fichier alors tu fais du vba

Si tu choisis l'option VBA, il te faut aller faire un tour du côté des cours sur les événements Excel (http://silkyroad.developpez.com/VBA/...lasseur/#LII-7)
Workbook_BeforeSave devrait te convenir


Dans la deuxième partie je parlais d'un rafraichissement à l'écran.
Je disais que d'après moi si par exemple tu as déjà ton visio d'ouvert et qu'à ce moment là, tu fais des modifications dans excel, que tu sauvegardes, cela ne s'afficheras pas. (D'ailleurs y a les 3/4 des chances que le prog plante car il arrivera pas à modifier le vision ^^)

bonne chance

[bruno782]

hum oki, merci pour ta réponse.

Que ce soit un vbs n'est pas un problème car après cela le programme sera planifié pour être raffraichi tous les x jours/semaine/mois et écrasera dans tous les cas l'ancien.

Pour la 2eme partie le probleme ne se posera pas comme cela sera fait une fois mis en production.

Me reste donc tjs le problème de la fonction permettant le raffraichissement....