Discussion :

[Ju1.0]

Bonjour

Je pilote depuis Excel une macro qui va naviguer dans un tas de documents Visio pour en extraire tout les textes. Dans certains de ces Visio, il y a des feuilles de calculs Excel d'inséré, dont je dois aussi extraire les textes. un moyen de les extraire est de dégrouper la feuille de calcul. Un enregistreur de macro dans Visio me donne

Code :

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

1
2
3
ActiveWindow.DeselectAll
ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemFromID(1), visSelect
ActiveWindow.Selection.Ungroup

que je traduis dans ma macro Excel en

Code :

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

1
2
3
VsoApp.Application.ActiveWindow.DeselectAll
VsoApp.Application.ActiveWindow.Select VsoShapes.ItemU(intCounter), visSelect
VsoApp.Application.ActiveWindow.Selection.Ungroup

D'abord, une Exception se produit systématiquement sur la méthode Ungroup, et de toute façon, ça ne marche pas. Au final, la macro ne sort que la première cellule du tableur, et ne prends pas en compte les autres objets de mon document Visio.

D’où cela peut-il venir ?, Y-a-t-il une solution ?

Merci d'avance

[Ju1.0]

ReBonjour

Je coince toujours

En simplifiant le code et en ne mettant que

Code :

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

VsoShapes.ItemU(intcounter).Ungroup

la fameuse exception ne se produit plus que épisodiquement, mais le problème reste le même. CAD que il n'y a que la première cellule du tableau dont le texte est extrait, et mieux : tous les autres objets se trouvant après le tableau sont ignoré !

Le plus marrant, c'est que si je dégroupe cet objet à la main, avant de lancer la macro, ca marche. Je comprend pas !

Une idée ?

[Ju1.0]

RereBonjour

J'ai trouvé la solution qui fait que la prise en compte des textes suivant le tableur ne marchait pas. Il s'agit de la variable qui se retrouvai affécté par le nombre d'objet qui n'étais pas affécté au bon endroi ...
Par contre, l'exception elle n'est toujours pas partit, et elle est dure a avoir, elle tombe vraiment au hasard !

[Jean-Philippe André]

salut,

je suis reticent a utiliser des selection, c'est trop sujet a embrouilles

Comme je ne connais pas vraiment le code sous visio, peux-tu me dire si une syntaxe plus proche de celle ci serait aisement adaptable a ton cas ?

Code :

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

Application.ActiveWindow.Page.Shapes.ItemFromID(1).Ungroup

en virant l'etape de selection, tu t'assures que le focus n'est pas perdu en cours de route par ton application

[Ju1.0]

Le code est adaptable. Je teste ça demain, mais je ne vois pas en quoi ça va me régler le problème de l'exception ...

Je me pose aussi une question : quelle est la différence entre

Code :

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

ItemFromID(intcounter).Ungroup

et

Code :

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

ItemU(intcounter).Ungroup

En tout cas merci de ne pas me laisser tout seul !

[Jean-Philippe André]

SAuf erreur, ItemU attend une chaine de caracteres ou une valeur numerique en parametre,
http://msdn.microsoft.com/en-us/libr...ffice.11).aspx

ItemFromId une valeur numerique
http://msdn.microsoft.com/en-us/libr...ffice.11).aspx

ca repond a ta question ?

[Ju1.0]

Ne pas utiliser la selection ne change rien à l'exception. J'ai relancer à chaque foi la macro (F5).
Tampis
Quand à la dernière réponse de JPCheck, ça répond à ma curiosité. Merci