COPIER Donnéées Excel vers WORD

[Archimed]

J'ai chercher à copier une plage de données Excel (A1:B15)
tout en utilisant ce code VBA:
------------------------------------------------------------------------
Sub collerDonneesExcelDansWord()
Dim AppWord As Word.Application
Dim DocWord As Word.Document

ThisWorkbook.Worksheets('Feuil1').Range('A1:B15').Copy

Set AppWord = New Word.Application
AppWord.Visible = True

Set DocWord = AppWord.Documents.Open('C:\\monDocument.doc')
DocWord.Range.PasteSpecial
'DocWord.Close True
'AppWord.Quit
End Sub
------------------------------------fourni Par: MichelXld du forums.
seulement voilà,je reçois le message suivant à la 2°Ligne du code :
'Erreur de compilation !.. Type défini par L'utilisateur non défini.'

Que faire ?Merci.

Archimed.

 

[MichelXld]

bonsoir Archimed

tu dois activer la référence Microsoft word xx.x 0bject Library ( xx.x dépend de ta version d'Office )

dans l'editeur de macros
Menus Outils
References
coches la ligne 'Microsoft word xx.x 0bject Library'
cliques sur OK pour valider


bonne soiree
MichelXld


ps
tu aurais pu rester dans le meme fil de discussion

 

[JJM]

Bonjour Archimed, MichelXld,

Il est également possible de mettre en forme des données exportées d'Excel, en utilisant des 'champs texte' (FORMTEXT) dans Word, en leur attribuant un nom et en les manipulant ensuite par VBA à partir d'Excel ou d'Access (ActiveDocument.FormFields('Nom').Result).
On peut aussi insérer du texte, définir ses attributs, etc.