Discussion :

[betabasic]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

BB

[Heureux-oli]

Salut,

Pour quoi ne pas passer un collage Excel dès le départ.

selection.PasteExcelTable

Mais que souhaites-tu faire ? Il y a peut-être une autre façon de faire.