Copier des feuilles de visio vers un fichier Excel

Bonjour à tous,

J’espère que vous allez bien, je vous résume mon problème.

donc ce que je veux faire c'est de copier chaque feuille de visio et la mettre dans Excel sachant que ce fichier visio il a plusieurs feuilles a l'intérieure donc je veux avoir une copie de chaque feuille de visio dans le même fichier excel avec plusieurs feuilles et le même nom .

je vous présente mon code ci dessous ,svp j'ai besoin d'aide.

Public Sub CustomProp()

Dim shpObj As Visio.Shape, celObj As Visio.Cell

Dim i As Integer, j As Integer, ShpNo As Integer

Dim LabelName As String, PromptName As String, ValName As String, Tabchr As String

Open "D:\MDDP\CustomProp.xls" For Output Shared As #1

Tabchr = Chr(9)

For ShpNo = 1 To Visio.ActivePage.Shapes.Count

Set shpObj = Visio.ActivePage.Shapes(ShpNo)

nRows = shpObj.RowCount(Visio.visSectionProp)

For i = 0 To nRows - 1

Set celObj = shpObj.CellsSRC(Visio.visSectionProp, i, 0)

ValName = celObj.ResultStr(Visio.visNone)

Set celObj = shpObj.CellsSRC(Visio.visSectionProp, i, 1)

PromptName = celObj.ResultStr(Visio.visNone)

Set celObj = shpObj.CellsSRC(Visio.visSectionProp, i, 2)

LabelName = celObj.ResultStr(Visio.visNone)

Debug.Print shpObj.Name, LabelName, PromptName, ValName

Print #1, shpObj.Name; Tabchr; LabelName; Tabchr; PromptName; Tabchr; ValName

Next i

Next ShpNo

Close #1

End Sub