Macro pour exporter d'Excel vers Word

Bonsoir les amis,

Je produis à fréquence fixée des graphiques sur Excel pour mon entreprise. Une fois produits, je les exporte sur un document Word et les dispose d'une manière agréable pour les présenter à des collaborateurs, ensuite, en format pdf.


Pour m'éviter de refaire la même démarche fastidieuse d'importation des graphiques, puis de positionnement (surtout que je dois le refaire tous les mois) je me demandais si l'on pouvait automatiser ce processus grâce à une macro.

En enregistrant le processus, j'obtiens bien une macro qui fonctionne : il faut que j'utilise la fonction

Selection.PasteAndFormat

cependant, comment aller chercher dans un fichier avec un chemin spécifique ? (ex C:\MesDocs\classeur1.xlsm)
Désolé pour cette question basique :D

Merci de votre réponse,

Tu écris une macro dans Excel qui exporte dans un doc word ou tu écris une macro dans Word qui va chercher les graphiques Excel ?

pour ouvrir Word depuis Excel :

Code:

---

1 2 3

Dim traitementTexte As Object Set traitementTexte = CreateObject("Word.Application") traitementTexte.Visible = True

---

pour ouvrir Excel depuis Word :

Code:

---

1 2 3

Dim tableur As Object Set tableur = CreateObject("Excel.Application") tableur.Visible = True

---

Une fois qu'Excel est ouvert, on ajoute un classeur en faisant :

Code:

---

1 2	Dim classeur As Workbook Set classeur = tableur.workbooks.open("C:\MesDocs\classeur1.xlsm")

---

Ensuite tu parcours tes graphiques :

Code:

---

1 2 3 4

Dim graphique As Chart For Each graphique In classeur.Charts (instructions pour coller) Next graphique

---

Quel est le type de l'objet Selection dans ton Selection.PasteAndFormat ? car ne je vois pas de telle méthode dans les objets Chart ?

Eventuellement, mets le code de ta macro enregistrée (en enlevant les éventuelles données sensibles).

Citation:

---

Désolé pour cette question basique

---

Réponse basique : en l'ouvrant.
Workbooks.Open ....

Bien sûr, si ta macro est dans Word, il faudra charger les objet Excel pour pouvoir manipuler Workbooks et autres Charts.
Dans l'éditeur VBA :
Outils > Références > Cocher "Microsoft Excel Object Library"