Macro Excel pour ajuster un tableau à une feuille dans Word

Bonjour,

Je suis débutante et utilisatrice occasionnelle des macros dans Excel. Cependant, je souhaite écrire une macro permettant de :
- copier un tableau d'une feuille Excel
- ouvrir un nouveau fichier fichier Word
- coller le tableau dans le fichier Word
- ajuster le tableau à la feuille (dans Word)

La macro que j'ai écrite fonctionne jusqu'au "coller le tableau dans le fichier Word", ensuite un message apparaît : "objet requis"

Voilà la macro :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub CopierCollerDansWord()   Dim oWdApp As Object 'Word.Application Dim oWdDoc As Object 'Word.Document Set oWdApp = CreateObject("Word.Application") Set oWdDoc = oWdApp.Documents.Open("C:\Users\0501363\Documents\XX\ECSR\DTE_ECSR\BanqueSujets&questions\ResultatSujetsECSR.docx") oWdApp.Visible = True ActiveSheet.Range("A1:C13").Copy oWdApp.Selection.Paste   Application.CutCopyMode = False WordDoc.Tables(1).AutoFitBehavior wdAutoFitWindow End Sub

---

J'ai mis en pièce jointe une image de cette macro.

Si vous avez la solution à mon problème je suis preneuse.
Je vous remercie par avance de votre aide.
Bien à vous

Je pense que ceci ne peut pas marcher :

Code:

---

oWdApp.Selection.Paste

---

Tout simplement parce que tu n'as rien sélectionné dans Word, donc, logiquement, Selection est vide.

Il faudrait que tu indiques une référence à la position où tu souhaites placer ton tableau copié.

Je ne suis pas tout à fait au jus pour ce qui est des macro Word mais il me semble que le plus simple serait de mettre un marque-page dans ton modèle Word à l'endroit où tu va placer ton tableau pour ensuite y faire référence (Bookmark) dans la macro VBA.
https://msdn.microsoft.com/fr-fr/lib.../ff194977.aspx
https://msdn.microsoft.com/fr-fr/lib.../ff837530.aspx

Bonjour,

Merci pour l'info. J'ai progressé mais toujours pas résolu mon problème. J'arrive maintenant à sélectionner mon tableau dans Word, comme tu me l'as très justement fait remarquer. En revanche la ligne de commande pour ajuster ce tableau à la fenêtre ne fonctionne pas, le message d'erreur suivant s'affiche :
Propriété ou méthode non gérée par cet objet.

Je n'arrive pas à trouver la commande qui le permettrait.
En pièce jointe la macro mise à jour.

Merci pour votre aide.

Tu devrais copier le code dans ton message plutôt que de faire des copies d'écran dont on ne peut pas reprendre le contenu.

Comme je le disais, je ne suis pas spécialiste des macro Word mais il me semble incongru d'appliquer une méthode d'ajustement de tableau directement à l'objet Word lui-même.
Je pense (sans certitude) qu'il faudrait plutôt l'appliquer à un objet tableau de l'objet document de l'objet Word.

Regarde dans l'aide VBA de Word pour savoir à quel objet s'applique cette méthode.

Bonjour,

Quand on pilote une seconde application à partir d'une première application, il faut utiliser la valeur numérique des constantes et non leur nom.

Dans l'aide de VBA-Word, voir :

WdAutoFitBehavior, énumération

wdAutoFitContent = 1
wdAutoFitFixed = 0
wdAutoFitWindow = 2

Comme d'habitude, ou presque, chercher une constante dans l'aide mène au lien vers l'énumération

Salut, c'est plutôt une affaire d'Early/Late Binding, enfin je crois ?

Bonjour,

Ceci marche chez-moi (Office 2010, 64 bits).

Ne me demandez pas pourquoi je suis obligé de cocher la référence à Word et pourquoi, il ne veut pas que je déclare word as object

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub CcpierCollerDansWord() ActiveSheet.Range("A1:C13").Copy Dim oWdApp As Word.Application Dim oWdDoc As Word.Document Set oWdApp = CreateObject("Word.Application") Set oWdDoc = oWdApp.Documents.Open("C:\Temp\Tabarnouche.docx") Dim UnTableau As Word.Table oWdApp.Visible = True oWdApp.Selection.Paste Set UnTableau = oWdApp.ActiveDocument.Tables(1) UnTableau.AutoFitBehavior 2 Application.CutCopyMode = False End Sub

---

Bonjour,

Merci à tous d'avoir pris le temps de répondre et de proposer des solutions.

Voilà ce qui fonctionne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub CcpierCollerDansWord() Dim oWdApp As Object 'Word.Application Dim oWdDoc As Object 'Word.Document Set oWdApp = CreateObject("Word.Application") Set oWdDoc = oWdApp.Documents.Open("C:\BanqueSujets&questions\ResultatSujetsECSR.docx") oWdApp.Visible = True ActiveSheet.Range("A1:C13").Copy oWdApp.Selection.Paste oWdApp.Visible = True Set oWdApp = oWdApp.ActiveDocument.Tables(1) oWdApp.AutoFitBehavior 2 Application.CutCopyMode = False End Sub

---

Je suis super contente, cette solution va me faire gagner beaucoup de temps.

Encore merci.