Edition de données Excel dans Word

[bd]

Bonjour,

Je suis à la recherche de références de code VBA pour éditer des données Excel sous Word.
J'aimerais pouvoir insérer certaines cases de mon fichier .xls dans un fichier .doc préformaté (à partir d'un .dot je pense)

Merci beaucoup

 

[catherine]

Sub CopieWord()

'Déclaration 4 variables (excel, dossier, fichier, chemin)
Dim objApplication As Object
Dim strDossier As String
Dim strFichier As String
Dim strChemin As String

'Initialisation 4 variables
Set objApplication = CreateObject("word.application")
Tu peux essayer quelquechose comme ça :

strDossier = "C:\stage\"
strWordFichier = "doc1.doc"
strxlFichier = "mois.xls"
strChemin = strDossier & strWordFichier

Windows(strxlFichier).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Copy
' Affichage de Word
With objApplication
.Visible = True
.Documents.Open Filename:=strChemin
'collage spécial en tant qu'objet microsoft excel
.Selection.PasteSpecial Link:=True, DataType:=wdPasteOLEObject, Placement:= _
wdFloatOverText, DisplayAsIcon:=False
End With
objApplication.Quit
Set objApplication = Nothing
End Sub

Amitiés.

Cathy