exportation d'excel vers word

* 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?

https://karelianblonde.files.wordpre...x26obelix1.jpg

Salut, dans les FAQs, tutos et autres.

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:

---

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

---

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

Code:

---

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

---

Merci Cerede

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

Code:

---

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:
Pièce jointe 205233

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

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:

---

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:

---

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

---

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

Xatoc1De à raison, la FAQ (VBA new document) comme la documentation officiel VBA indique :

Code:

---

1 2 3 4

Dim appWD As Word.Application   Set appWD = CreateObject("Word.Application") appWd.Visible = True

---

Est-ce l'option Explicit qui produit l'erreur : type indéfinie ?

Salut, à lire : Early ou Late Binding même si parcellaire.