Discussion :

[maxicobra]

Bonjour, je souhaite implanter dans un fichier word mes tableaux excel à des endroits stratégiques en utilisant des signets. Mon word s'ouvre bien, j'ai bien mis le signet. Mais j'ai une erreur ici:

Code :

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

Selection.Goto What:=wdGoToBookmark, Name:="Signet"

Voici le code:

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub CommandButton1_Click()
 
Dim oWdApp As Object 'Word.Application
Dim oWdDoc As Object 'Word.Document
 
'Lancer une instance Word
Set oWdApp = CreateObject("Word.Application")
 
'Ouvrir un nouveau document
Set oWdDoc = oWdApp.Documents.Open("C:\Users\Thibault\Desktop\ondelio\protocole anfr (hf)\livrable brut.docx")
 
'Rendre Word visible
oWdApp.Visible = True
 
'Copier une plage depuis Excel
 
 ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    Sheets("Cas A").Select
    Range("A6:D20").Select
    Selection.Copy
 
'cherche le signet dans la feuille word
Selection.Goto What:=wdGoToBookmark, Name:="Signet"
 
'Coller la plage dans Word
oWdApp.Selection.PasteAndFormat (wdPasteDefault)
 
'aligne le tableau au milieu de la page
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
 
'Annuler le mode couper/copier
Application.CutCopyMode = False
 
End Sub

ERREUR: erreur 438, propriété ou méthode non géré par cet objet.

[maxicobra]

personne? :/