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 :
Code:
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 14/12/2006 par Dormeur74
'
End Sub
par :
Code:
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.
15/12/2011, 11h39
#3
invite8666d089
Date d'inscription
janvier 1970
Messages
660
Re : excel-word
Ne me dis pas que tu m'as fait bosser rapidement pour rien, ma black-list est déjà bien trop épaisse...