excel-word

[berguem40]

bsr,

comment j'insere un grapg d'excel vers word

merci
-----

[Dormeur74]

Tu suis pas à pas l'exemple qui suit.
Tu mets dans le dossier de ton choix (ici c:\excelpb) un fichier intitulé classeur1.xls (contenant un graphe) et un fichier document1.doc.
Tu ouvres le fichier Word (le fichier Excel étant fermé). Tu crées une nouvelle macro (Outils...Macro...Nouvelle macro. Tu arrêtes immédiatement l'enregistreur). Tu tapes ensuite Alt+F11 pour aller dans l'éditeur VBE. Double-clic sur la ligne "Modules", puis double-clic sur la ligne "NewMacros".

A droite, tu remplaces le code :

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 14/12/2006 par Dormeur74
'
End Sub

par :

Sub Macro1()
    Dim XlAppli
    Dim XlCl
    Dim Xlfl
    Dim Graphe
 
    Set XlAppli = CreateObject("Excel.Application")
    Set XlCl = XlAppli.Workbooks.Open("c:\excelpb\classeur1.xls")
    Set Xlfl = XlCl.Worksheets("feuil1")
    Set Graphe = Xlfl.ChartObjects(1)
        Graphe.Chart.ChartArea.Copy
        DoEvents
        'Collage avec liaison
        Selection.PasteAndFormat (wdChartLinked)
        DoEvents
 
    XlCl.Close False
    DoEvents
 
    XlAppli.Quit
 
    Set Graphe = Nothing
    Set XlAppli = Nothing
    Set XlCl = Nothing
    Set Xlfl = Nothing
End Sub

Tu sauvegardes ton travail pas Ctrl+S et tu retournes sous Word par Alt+Q
Tu places ton point d'insertion où tu veux et tu lances ta macro.
Si tu modifies ton fichier Excel, tu devras faire une mise à jour du fichier Word (Edition...Liaison...Mise à jour.
C'est tout.

[Dormeur74]

Ne me dis pas que tu m'as fait bosser rapidement pour rien, ma black-list est déjà bien trop épaisse...