Discussion :

[drthodt]

Bonjour à tous,
voici mon problème: j'ai un fichier Excel et un fichier Word, avec lesquels je copie des données de mon fichier Excel dans des tableaux Word.

Ma macro est stockée dans mon Excel.
Mon fichier Word est un modèle qui aura toujours le même nom, appelons-le "Modèle.doc".

J'ai le code pour copier les données, mais je ne sais pas comment faire référence à mon document Word depuis mon Excel (je débute).

Comment faire pour faire référence à mon fichier Word (qui sera déjà ouvert à l'éxécution de la macro)? J'aimerais faire ce qui aurait donné si ça avait été un fichier Excel

Code :

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

1
2
3
4
 
Dim Modele As Worksheet
 
Set Modele = Workbooks("Modele.xls")

mais pour mon Word.
Comment déclare-t-on ceci en vba svp?

A noter que j'ai bien activé la libraire Microsoft Word xx.xx qui va bien.

Merci d'avance pour votre aide.
Cordialement,
M

[fred65200]

bonjour

à tester

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
On Error Resume Next
    Set W = GetObject(Class:="Word.Application")
    If W Is Nothing Then Set W = New Word.Application: W.Visible = True: Err.Clear
On Error GoTo 0
'W.ScreenUpdating = False
 
W.Activate
W.Documents.Open Filename:="Chemin de ton modèle"
Set monDocWord = W.ActiveWindow
Set S = monDocWord.Selection
S.TypeText "ok"
 
 
'après tu utilises monDocWord pour manipuler ton document
'monDocWord.Save
 'monDocWord.Close
'W.Quit
Set W = Nothing
Set monDocWord = Nothing
Set S= Nothing

@+

[fring]

Bonjour,

Tu peux essayer ceci

Code :

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

1
2
Dim Wd As Word.Document
Set Wd = GetObject("Modele.doc")

Tu peux également trouver plus d'info concernant la manipulation d'un document Word dans la FAQ

[drthodt]

Bonjour,

Tu peux essayer ceci

Code :

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

1
2
Dim Wd As Word.Document
Set Wd = GetObject("Modele.doc")

Tu peux également trouver plus d'info concernant la manipulation d'un document Word dans la FAQ

Merci pour votre aide.

Fring, j'ai utilisé le code suivant (qui correspond exactement à ce que je cherche) :

Code :

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

1
2
3
4
5
6
7
8
9
Sub TestWord()
 
 
    Dim Wd As Word.Document
 
        Set Wd = GetObject("Modele.doc")
 
 
End Sub

Et j'obtiens un message d'erreur "Erreur automation Syntaxte incorrecte";
le débuggueur me surligne ceci

Code :

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

Set Wd = GetObject("Modele.doc")

, pourtant c'est bien le code qui apparaît aussi dans la FAQ?!

Pour information j'utilise Excel 2002 et Word 2002.Comme je l'ai déjà précisé, la librairie Word est activée.

Merci d'avance pour votre aide,
M

[Godzestla]

Salut drthodt,

tu dois remplacer "Modele.doc" par le nom complet de ton modèle.

Exemple

Code :

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

1
2
3
 
Dim Wd As Word.Document
Set Wd = GetObject("C:\My Documents\Mon_Modele.doc")

Dans ce cas cela devrait marcher.

Regarde aussi dans la faq, par exmple à http://vb.developpez.com/faqvba/?page=4.2#OpenTemp

Bye.

[drthodt]

Effectivement avec le chemin je n'ai plus le message d'erreur, mais cela m'oblige à toujours mettre le fichier au même endroit, n'eest-il pas possible de faire référence à ce document qu'à partir de son nom?Sachant qu'il sera obligatoirement ouvert lors de l'exécution de la macro?

Autre chose: je ne parviens pas à copier les données de mon Excel vers Word, toujours en utilisant le code de la FAQ pour copier les données de Excel vers un tableau Word, il ne se passe RIEN; voici le code utilisé:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub worde()
 
    Dim FL As Worksheet
    Dim Wd As Word.Document
 
 
        Set FL = ThisWorkbook.ActiveSheet
        Set Wd = GetObject("C:\Template Reporting.doc")
 
        Wd.Tables(1).Columns(1).Cells(1).Range.Text = FL.Range("A1")
 
End Sub

A part que je n'ai plus le message d'erreur, aucune donnée n'est recopiée dans mon tableau.

[fring]

En effet je ne l'avais pas testé et j'ai obtenu la même erreur que toi.

J'ai testé ceci avec un document "testwd.doc" ouvert et là pas de pb

Code :

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

1
2
3
4
5
6
Sub test()
Dim Wd As Word.Document
Set Wd = Word.Documents("testwd.doc")
 
Wd.Tables(1).Columns(1).Cells(3).Range.Text = Range("A1")
End Sub

[ouskel'n'or]

Dans word, ce n'est ni cells ni columns, la syntaxe est

Code :

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

Table(1).Cell(Row:=1, Column:=2)...