[WD-2003] Retrouver le chemin des images liées

[dakota77]

Bonjour,

Un document comporte des images qui ont été liées (non insérées dans le document).

Les images ont été déplacées et lorsque le document est ouvert, les images sont remplacées par des cadres blancs avec petite croix rouge.

En principe en faisant ALT + F9 on doit voir le nom de l'image insérée et son chemin. {INCLUDEPICTURE...} Mais dans ce cas ALT F9 n'a pas d'effet. Aucun champ n'apparaît.

Comment puis-je retrouver les images dans mon document ?

Merci pour votre aide.

[Heureux-oli]

Salut,

Ça ne fonctionne que pour une image qui est alignée dans le texte, pas pour une image flottante.

Ce code devrait t'aider à voir un peu plus clair :

Code :

1
2
3
4
5
6
7
8
9
10
11
 
Sub CheminImage()
Dim sH As Shape
Debug.Print ActiveDocument.Shapes.Count
 
 
For Each sH In ActiveDocument.Shapes
Debug.Print sH.LinkFormat.SourceFullName
Next sH
 
End Sub

[dakota77]

Supe. merci pour le code.
Je peux effectivement voir le chemin des images.

Je les ai recopiées dans le bon répertoire et maintenant elles s'affichent.
Je suppose qu'il est possible de changer le chemin des images par programmation ... (alt F9 ne permet pas de voir les codes de champs).

Encore merci.

[Heureux-oli]

Salut,

Effectivement, le code permet de modifier le chemin.

[dakota77]

Bonjour,

Je tente de modifier le chemin de toutes les images :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
Sub CheminImage()
Dim sH As Shape
dim c as string
dim n as string
c="c:\data\images\" 'le nouveau chemin des images
 
For Each sH In ActiveDocument.Shapes
   n=sH.LinkFormat.SourceName
   sH.LinkFormat.SourceFullName=c & n
Next sH
 
End Sub

Mais ce code fait complètement planter Word
J'imagine que cela ne doit pas être aussi simple ...
Une petite suggestion ?

Merci

[carden752]

Bonjour,

Effectivement, le code permet de modifier le chemin

Oui, je ne vois pas d'erreur dans ton code.

Quand vous dites qu'il plante Word, est-ce que vous pouvez être plus précis?
Vous ne changez pas de document Word ou n'en ouvrez pas un nouveau pendant la macro?
Est-ce qu'une erreur est retournée?

[Heureux-oli]

Salut,

Essaie d'afficher c & n dans un msgbox ou avec un debug.print ?

[dakota77]

Bonjour,

Je parlais de plantage dans le post précédent :

Dès le lancement du code, le curseur se fige puis le message d'erreur :"Ce programme ne répond pas" apparaît.

Le plus étrange c'est même le code de base fait planter Word lorsqu'il est exécuté plusieurs fois :

Code :

1
2
3
4
5
6
7
8
9
10
 
Sub CheminImage()
Dim sH As Shape
Debug.Print ActiveDocument.Shapes.Count
 
For Each sH In ActiveDocument.Shapes
Debug.Print sH.LinkFormat.SourceFullName
Next sH
 
End Sub

Je l'ai testé sur une autre machine avec un autre document et c'est pareil.

[carden752]

Bnojour,

J'avais fait le test et n'avais pas eu le problème.
Pouvez vous nous expliquer comment vous créer vos shapes.
Est-ce que tous vos objets shapes sont ajoutées par un lien dans le document.
Pouvez vous nous mettre éventuellement à disposition une version sans données confidentielles de votre fichier afin de l'analyser. Je pense que le problème peut provenir du linkformat qui n'est peut-être pas toujours renseigné.

[dakota77]

Bonjour,

Tout d'abord merci de prendre le temps de me répondre.
Je suis reparti d'un document vierge.

J'y ai inséré 2 images : insertion - image - à partir du fichier
lier au fichier (sans les insérer)

Les images sont dans le répertoire c:\.ima\04ge

Le document dans un autre répertoire.
Le doc s'ouvre sans problème et les images sont affichées.

Si je lance le code suivant :

Code :

1
2
3
4
5
6
7
8
9
10
11
 
Sub CheminImage()
Dim sH As Shape
Debug.Print ActiveDocument.Shapes.Count
MsgBox (ActiveDocument.Shapes.Count)
 
For Each sH In ActiveDocument.Shapes
Debug.Print sH.LinkFormat.SourceFullName
Next sH
 
End Sub

Pas de plantage de Word mais le message indique 0 (comptage des shapes), il ne trouve pas d'image. Déjà à ce stade je suis un peu bloqué.

Merci

Ci-joint le document Word et les 2 images.

Merci

[carden752]

Bonjour,

Pas de plantage de Word mais le message indique 0 (comptage des shapes)

Une idée en passant, est-ce que ce ne sont pas des inlineshapes?