Alors voilà j'ai trouvé comment chercher les graphiques ds un document Word, les couper et les coller ds un autre fichier word.  
Voici comment je procède: je cherche les graphiques, qd j'en ai trouvé un je le coupe, je le remplace par un chiffre, je le colle ds un autre fichier word et lui asigne le même chiffre, je saute une ligne, je retourne ds mon fichier initial et je cherche le prochain graphique ...
Dc la première étape est ok, à la fin de mon traitement, j'ai 2 fichiers Word: 1 où les graphiques sont remplacés par des numéros, 1 où chaque ligne contient les graphiques précédés de leur numéros.
Le problème c'est qu'après je voudrais les réintégrer ds le fichier initial...et je n'y arrive pas!!
Avec Selection.Find.Replacement je ne peux remplacer que par du texte et les graphiques sont dc transformés en petits carrés blancs...
Aidez-moi s'il vous plait je galère trop!!!

Bonjour,
 
Le rechercher remplacer, comme tu le dis ne peut remplacer que par du texte
 
fichier1=fichier sans les images  
fichier2=fichier des images
 
imaginons le code (image:1) placé à l'image1
 
il faut dans fichier1
 
with selection.find
 clearformating
 text="\(image:[0-9]{1;}"
 matchwilcard=true
 execute
end with
 
while selection.find.found
 extraire le numéro
 activer fichier2
 rechercher imgexx
 selectionner copier
 activer fichier1
 remplacer
 with selection.find
   clearformating
   text="\(image:[0-9]{1;}"
   matchwilcard=true
   execute
 end with
wend
 
Vu que tu as réussi à extraire les images, je n'ai pas écris tout le code.
Je te donne simplement le principe
 
bon courrage
 
 
 

ok merci je vais tester ça.

 
Comment on fait STP !  
Pour les images il y a bien InlineShapes.Count mais pour uniquement les graph venant d'Excel, il ya un moyen ??