Faire un copier-coller depuis Excel vers Word via une macro ?

Question

Bonjour à tous et à toutes,

Je débute sous VB donc ma question pourra peut-être vous sembler ridicule mais bon...

J'aimerai savoir comment on peut faire sous excel une macro qui va réaliser un copier-coller d'un graphe depuis Excel vers Word.

Merci d'avance à celui ou à celle qui pourra m'aider.
@+

 :)

HFanny · Answer

Bonjour,

Pour ce faire, il faut dans un premier temps 
cocher dans Outils->Références la librairie Microsoft Word

Puis il faut que tu ouvres Word ainsi que ton document, que tu copies ton graphe Excel (grâce à son nom), et le coller dans Word :

'Déclaration des variables
Dim DocWord As word.Document
Dim AppWord As word.Application
Set AppWord = New word.Application

'Ouvre le document Word
Set DocWord = AppWord.Documents.Open("d:\user\essai.doc", ReadOnly:=False)

'Création du graphique et sa copie
'Ne prends que la copie :)
    Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("A1:B6")
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
    ActiveChart.Axes(xlValue).MajorGridlines.Select
    ActiveChart.ChartArea.Select
    ActiveWindow.Visible = False

    Windows("Classeur1").Activate
'ICI tu copies ton graphe
    ActiveSheet.ChartObjects("Graphique 1").Copy

'Désactivation des messages d'alerte
     Application.DisplayAlerts = True
     AppWord.ShowMe
     AppWord.Visible = True

'Collage du graphe dans Word
     DocWord.Range.PasteSpecial
     Application.CutCopyMode = False
'Sauvegarde du document Word
     DocWord.Application.ActiveDocument.Save
     AppWord.Application.Quit



Voilà, en espérant t'avoir aidé

Fanny

Adoc5 · Answer

Merci beaucoup Fanny,

J'ai essayé et ça marche jusqu'à DocWord.Range.PasteSpecial. A partir de là ça plante.

Quand tu écris "cocher dans Outils->Références la librairie Microsoft Word", je n'ai pas trouvé à quoi ça correspondait. Dois-je le faire dans Excel ? (J'ai une version américaine, ceci peut avoir un impact sur le code généré par VB...?)

Merci d'avance.
@+
 :)

HFanny · Answer

Oui, c'est dans Excel (dans l'éditeur de Macro ; Alt + F11) que tu dois cocher Outils -> Références -> Microsoft Word ...

Mais je ne sais pas si cela à un impact dans le code ...

Fanny

Adoc5 · Answer

Ok, merci beaucoup. ça marche nikel maintenant.
see you soon  :)

Adoc5 · Answer

Salut Fanny,

Hé oui ça faisait très longtemps...

Le copier-coller fonctionne bien mais le problème est que, dans Word, le graphe est collé sur le texte. Sais-tu comment je pourrai faire pour le coller proprement sous un texte, s'il te plait ?

Merci d'avance.

Adoc5  :)

HFanny · Answer

Je ne sais pas.
Essaie de te créer une macro sous word par l'éditeur de macro. Peut être que tu trouveras comment faire.

Fanny

Adoc5 · Answer

J'y avait pensé mais dès que je génère un nouveau fichier word, la macro permettant de placer correctement le graphe disparait. Je ne sais pas comment sauvegarder cette macro pour qu'elle soit dispo pour n'importe quel fichier Word. Et deuxième chose, à partir d'Excel, je ne sais pas comment appeler une macro word. 

C'est vrai que l'idée est bonne mais je suis handicapé par mon manque de connaissances en VBA. 

Cédric
 :)

HFanny · Answer

Tu peux transférer la macro Word sous Excel, en préfixant chaque action faite dans Word par le appWord., ou docWord.

Fanny

Adoc5 · Answer

You're the best !!!! Merci beacoup !!!!

Cédric
 :)

bencharqui · Answer

bonjour 
ma question est comment copier les &#233;l&#233;ment d'une feuille excel et les coller dans un document word  ou rtf 

une sorte de conversion d'un fichier excel vers un fichier rtf 

merci bcp

Faire un copier-coller depuis Excel vers Word via une macro ?

10 réponses

Discussions similaires