Word Portage d'une Macro Excel vers PowerPoint en Macro Excel vers MSWord 2016

[Excel_Dynamo]

• J'ai récupéré et légèrement modifier la macro (ci-jointe: XLSX2PPTX) écrite par "mromain" ( https://www.excel-downloads.com/threads/macro-pour-powerpoint-2007.224177/ ) relativement générique pour me générer des rapport en PowertPoint 2016.

• Je voudrais faire la même chose vers MS Word 2016 (même logique d'usage), mais je n'y arrive pas (ci-joint mon portage de la macro non fonctionel)

Merci a tous pour vôtres aides

 

[Excel_Dynamo]

J'ai fusionné les deux classeurs Excel avec une feuilles macro XLSx export PPTx (avec le modèle PowerPoint et qui fonctionne) et l'autre feuille Excel marco XLSx eport DOCx (avec le modèle Word et qui ne fonctionne pas).

Après plusieurs vérification, je ne trouve pas ou est mon erreur lors du portage pour un export MS Word

• https://docs.microsoft.com/fr-fr/of...porting-a-range-to-a-table-in-a-word-document
• https://docs.microsoft.com/fr-fr/of...ications/exporting-a-chart-to-a-word-document
• https://stackoverflow.com/questions...n-a-reference-to-a-shape-from-the-chartobject

Merci

 

[STephane]

Bonjour

Dans la feuille EXP2DOC, il faut que tu renommes la plage nommée en PathModeleDOC car ton instruction fait référence à ce nom.

    pathDOC = Range("PathModeleDOC").Text

Par contre, le reste du code semble coincer également là

For Each docWord In docPages.Documents