Ouvrir un document Excel attaché à un document word via macro word

[bmeras]

Bonjour tout le monde,

Je cherche à faire une manipulation précise sur un tableau de donnée depuis word.

Il me manque principalement l'accès aux données excel depuis word.

Contexte :
* Document word à nombre de page variable
* Document excel attaché au document word nommé "toto version x.y.xls"

Pour le moment, je ne sais pas acceder du tout au doc excel et c'est mon point de blacage. J'ai écrit un premier jet de ma macro pour traiter les info d'un tableau présent sous word et je souhaiterai passer au traitement des infos directement via le tableau excel.

Macro qui parcourt le tableau pour effectuer des recherches de texte correspondant aux cellules du tableau.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Macro1() 
Dim cellcontent As String 
 
Set aColumn = ActiveDocument.Tables(2).Columns(1) 
For Each aCell In aColumn.Cells 
aCell.Range.Select 
cellcontent = "[" & Selection 
cellcontent = Left(cellcontent, Len(cellcontent) - 2) 
cellcontent = cellcontent & "]" 
With Selection.Find 
.Text = cellcontent 
.Wrap = wdFindContinue 
End With 
Selection.Find.Execute 
 
' Voici la partie concernant l'action à exercer sur les exigences du tableau 
Selection.StartOf Unit:=wdParagraph 
Selection.MoveEnd Unit:=wdParagraph 
Selection.Delete 
 
Next aCell 
 
End Sub

J'ai trouvé les infos sur comment ouvrir un document excel à adresse fixe mais pas pour un excel "attaché"

[Heureux-oli]

Salut,

Tu peux juste l'activer, mais pas y accéder.

[bmeras]

Merci pour le retour rapide.

Je souhaitais effectivement modifier le document word à partir d'information présente dans le document excel.
Si je comprends bien, je suis contraint de rajouter une étape hors macro pour récupérer les données sous excel et les mettre directement dans le document word pour les utiliser.

"L'activer" sert pour quelle finalité ? Juste d'acceder aux paramètres du document excel attaché mais pas le contenu ?

[Heureux-oli]

Salut,

L'activer revient à faire un double clic sur l'objet.

Maintenant, il est possible de faire un transfert des données de Excel vers Word, mais sans passer par un Objet.

On prélève les données pour les mettre dans un tableau Word.

[pgz]

Bonjour.

Finalement, quel est ton problème : trouver le chemin du classeur lié?

Cordialement,

PGZ

[bmeras]

Oui, je n'arrive pas à
1 - trouver le chemin ou l'identifiant du fichier excel
2 - l'ouvrir via word

une fois dedans, je pourrais récupérer les données dont j'ai besoin pour les coller dans le document word.

[pgz]

Bonjour.

Tu dois trouver un objet conteneur de données Excel liées. Ces objets sont de type Shape (ou InLineShap) ou Field.
Ces objets ont une propriété LinkFormat qui renvoie l'objet du même nom. Et l'objet LinkFormat a une propriété SourceFullName.

Le code dépend largement de la façon dont tu vas trouver l'objet conteneur. Par exemple pour le Fields(1) du document

Code :

sFullName = ThisDocument.Fields(1).LinkFormat.SourceFullName

te donne dans sFullName le nom complet du classeur.

Cordialement,

PGZ

[bmeras]

Je bloque effectivement pour récuperer le nom complet de l'objet excel.

Si j'ai bien compris (et vu que je ne le trouve pas dans les propriétés sous word), je dois récupérer cette référence via macro. Pas de soucis jusque là.

Cependant, je ne sais pas ou récupérer l'info sur le type d'objet (Field, Shapes, InLineShap) dont il s'agit. J'ai essayé sans succès avec les différents formats de faire tourner une macro du type que tu m'as fourni :

ActiveDocument.InlineShapes(1).LinkFormat.SourceFullName

.

Je pensais pas que Word pourrait me faire galérer pour aller chercher les informations sur le nom de ces objets

[pgz]

Bonjour.

Si tu ne sais pas où sont tes objets liés, tu peux essayer ce code, qui devrait t'aider à les localiser

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub bmeras()
Dim oFld As Word.Field, oShp As Word.Shape, oIShp As Word.InlineShape, sFullName As String
 
For Each oFld In ThisDocument.Fields
    On Error Resume Next
        sFullName = oFld.LinkFormat.SourceFullName
        If Err.Number = 0 Then MsgBox "Fields(" & oFld.Index & ") : lié à " & sFullName
        Err.Clear
    On Error GoTo 0
Next oFld
 
For Each oIShp In ThisDocument.InlineShapes
    On Error Resume Next
        sFullName = oIShp.LinkFormat.SourceFullName
        If Err.Number = 0 Then MsgBox "InLineShapes en " & oIShp.Range.Start & " : lié à " & sFullName
        Err.Clear
    On Error GoTo 0
Next oIShp
 
For Each oShp In ThisDocument.Shapes
    On Error Resume Next
        sFullName = oShp.LinkFormat.SourceFullName
        If Err.Number = 0 Then MsgBox "Shapes(""" & oShp.Name & """) : lié à " & sFullName
        Err.Clear
    On Error GoTo 0
Next oShp
 
End Sub

Il faudra voir ensuite avec ce que tu obtiens.

Cordialement,

PGZ

[bmeras]

Merci pour le retour détaillé.
En effet, je sais ou est situé mon document dans Word mais pas via vba.

Je vais essayer de faire tourner ça pour enfin mettre la main sur la ref du doc

[Obi1-Kenobi]

Bonjour,

Je pense avoir le même besoin que Bmeras, je suis intéressé par la suite donnée à cette résolution. Juste pour être certain d'être dans un cas équivalent : je souhaite extraire les données de feuilles de calcul insérées sous word (insertion-> objet -> feuilles de calcul) pour les regrouper sous excel .

Est ce équivalent à ce que tu souhaites bmeras ?

Merci,
obi1.