Très fort Xanork!
Ça m'aide beaucoup, mais il y a quelques détails qui m'échappent.
Dans ton code, les fichiers s'enregistrent dans mon dossier temporaire. Par quoi dois-je remplacer cette ligne pour enregistrer sur le C:/ par exemple :
EnregSousLeNom = ThisWorkbook.Path & '\\' & i & '.doc'
Aussi, au lieu de créer une nouvelle feuille, si je veux ouvrir une feuille Word existante pour ensuite mettre la bonne image et enregistrer comme nouveau fichier à chaque changement de cellule. Tu as une idée?
Et dernière petite question, supposons que j'ai 40 fichiers Word qui contiennent chacun 3 images (#1, 2 et 3). En parallèle, j'ai une feuille EXCEL avec 40 cellules correspondantes à chacune des feuilles par un numéro à 5 chiffres. Dans chacune des cellules adjacentes, je retrouve la valeur 1, 2 ou 3. J'aimerais que la macro efface pour chaque fichier correspondant les images 2 et 3 si la valeur est 1, les images 1 et 3 si la valeur est 2, etc.
Merci beaucoup Xanork, et tous les autres!