Discussion :

[Xatoc1De]

* Bonjour, *

J'ai lu cette discussion.

L'idée d'apprendre à faire exporter des rapports sur word m'intéresse, mais pour le coup je ne sais pas par où commencer, les tutos cités précédemment ne m'ont pas aidé.

Rien qu'appeler l'ouverture d'un classeur word, je vois pas comment, des idées de tutos/docs sur des sujets similaires?

[Gaulouis]

[kiki29]

Salut, dans les FAQs, tutos et autres.

[Xatoc1De]

Merci Cerede

J'ai un soucis que je comprends pas, quand j’exécute ce code:

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Explicit
Sub test()
 
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
 
    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True
    Set WordDoc = WordApp.Documents.Open("Citations.doc", ReadOnly:=True)
End Sub

j'ai le message d'erreur suivant:


Je précise que j'ai bien activé les références word

[cerede2000]

Alors déjà petite incohérence...
Si tu type des variable dès la déclaration (Word.Application) alors quand tu les instancie tu le fais comme ça :

Code :

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

Set WordApp = New Word.Application

Sinon tu déclare tes variables en type générique Object et tu utilise le CreateObject

J'ai testé le code, il fonctionne très bien.
Essaye ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
Sub test()
 
 
Dim WordApp As Object
Dim WordDoc As Object
 
    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True
    Set WordDoc = WordApp.Documents.Open("C:Temp\Citations.doc", ReadOnly:=True)
End Sub

[Xatoc1De]

Merci, ça fonctionne. (Je précise que le code cité plus haut était tiré de la FAQ)

[cerede2000]

Un point de départ pour ceux qui s'amuseront à traiter la demande complète de ce topic.

Insérer des données linké provenant d'Excel :

Code :

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

Selection.PasteSpecial Link:=True, DataType:=wdPasteText, Placement:=wdInLine

Insérer un graphique linké provenant d'Excel :

Code :

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

Selection.PasteSpecial Link:=True, DataType:=23, Placement:=wdInLine