Bonjour,

Hyper débutant en vba, je voudrais créer une macro permettant de copier coller des tableaux excel dans un document word. J’ai essayé d’enregistrer la macro mais ça ne fonctionne pas…

Je travaille sous excel et word 2007. Je ne connais pas le langage VBA.

Je voudrais :

1.copier le tableau situé de la cellule F4 à la cellule T14 de l’onglet “PROJET“ du fichier excel.

2.collage spécial dans un fichier word (Image métafichier amélioré)

3.passer une ligne dans le fichier word

4.copier le tableau situé de la cellule AA6 à la cellule AL23 de l’onglet “PROJET“ du fichier excel.

et ainsi de suite pour une trentaine de tableaux

Je voudrais pouvoir faire la même chose avec collage spécial “Feuille de calcul Microsoft Office Excel (Code) Objet“.

Pour l’instant je suis arrivé à ça :

Sub Macro3()
'
' Macro3 Macro
Dim oWdApp As Object 'WordA.Application
Dim oWdDoc As Object 'Word.Document
Set oWdApp = CreateObject("Word.Application")
Set oWdDoc = oWdApp.Documents.Add
oWdApp.Visible = True
ActiveSheet.Range("F4:T14").Copy
oWdApp.Selection.PasteSpecial
Application.CutCopyMode = False
'
ActiveWorkbook.Save
Application.Run "'TEST MEGA V2 bis Benchmark_SD_1002 V2k7.xlsm'!Macro3"
End Sub

Mais il me manque le collage special et le saut de ligne dans le doc word…

Je vous remercie par avance de votre aide et de vos explications

Bonjour,

Je ne suis pas un spécialiste de Word... et le VBA Word n'est pas de tout repos ! Tu ne commences pas par le plus facile...

Il est nécessaire de récupérer la "syntaxe Word" du code VBA pour les actions que tu veux réaliser (en enregistrant tes actions dans Word).

Dans ton exemple ça donne :

Sub test()
Dim oWdApp As Object
Dim oWdDoc As Object
Set oWdApp = CreateObject("Word.Application")
Set oWdDoc = oWdApp.Documents.Add
oWdApp.Visible = True
ActiveSheet.Range("F4:T14").Copy
oWdApp.Selection.PasteAndFormat (13)
oWdApp.Selection.TypeParagraph
'...
End Sub

Euh... Il faudra peut-être ajuster le paramètre (13) en fonction de ta version Word... En tâtonnant un peu (de 0 à 16) tu y arriveras sans peine.
cette syntaxe à numéro me semble préférable, elle permet de tatonner facilement. Il semble que les constantes VBA Word (dans la macro enregistrée) ne soit pas très fiable. Enfin tu verras...

Il peut s'avérer nécessaire de cocher (dans VBA Excel : Outils / référence : Microsoft Word ?? Object...) mais je n'en ai pas eu besoin.

A+