macro collage special excel vers word
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 :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| Sub Macro4()
' Macro4 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
oWdApp.Selection.TypeParagraph
ActiveSheet.Range("AA6:AL23").Copy
oWdApp.Selection.PasteSpecial
Application.CutCopyMode = False
oWdApp.Selection.TypeParagraph
ActiveWorkbook.Save
End Sub |
Mais il me manque le collage special en Image métafichier amélioré. J’ai essayé de remplacer la ligne
oWdApp.Selection.PasteSpecial
par
oWdApp.Selection.PasteAnd Format
Mais ça ne fonctionne pas. Un message d’erreur apparaît : Erreur d’exécution ‘450’ Nombre d’arguments incorrect ou affectation de propriétés incorrectes en surlignant en jaune la ligne
oWdApp.Selection.PasteAnd Format
Je vous remercie par avance de votre aide et de vos explications
