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 :
Mais il me manque le collage special en Image métafichier amélioré. J’ai essayé de remplacer la ligne
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
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
Partager