Discussion :

[damienlelol]

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

Merci de votre réponse,

[ANOVA]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

pour ouvrir Excel depuis Word :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Ensuite tu parcours tes graphiques :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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).

[Menhir]

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"