VB6 -> Word

Bonjour,

dans le cadre de mon stage en entreprise, je dois réaliser une application qui consiste clairement a lier VB6 et Word.
En effet, je constitue un menu avec VB et lorsque je sélectectionne un theme avec une combobox, j'aimerai qu'une page word pré-existante s'execute.

Tout d'abord, est-ce possible ?
et Si oui, avez-vous une idée du code


Cordialement, Dean

Bonjour et bienvenue.

C'est tout à fait possible, en attendant d'avoir plus d'informations de ta part (pilotage ou ouverture simple), je te conseille de lire la FAQ VB qui est équipé d'un moteur de recherche.

Tu auras dèjà des informations pour partir correctement dans ton développement.

Le tout ici : http://vb.developpez.com/faq/index.php?rechercher=word

Philippe

Merci Philippe

Code:

---

1 2 3 4 5 6 7

Dim DocWord As Word.Document   Set DocWord = GetObject("c:\mes documents\Article.doc") DocWord.Activate MsgBox DocWord.Range.Text DocWord.Close False Set DocWord = Nothing

---

Ce code a l'air d'être celui que je recherche, mais lors de la compilation, un message d'erreur apparait : "Compile error : User-defined type not defined"
en s'élection "Dim DocWord As Word.Document"

cette définition n'apparait pas dans la bibliothéque de VB

Re

As-tu coché la référence Word (de mémoire menu Outil/référence car je n'ai pas VB6 sous la main).

Philippe

effectivement le probleme était là
J'utilise une version anglaise de VB, est ce qu'il faut que mon "chemin d'acces" au .doc soit en anglais aussi ?
car un autre message d'erreur est apparu en soulignant le "chemin"

Bonjour,
quand tu rencontres une erreur, prends l'habitude de nous montrer ton code (qu'il faut mettre en les balises CODE, le bouton # de la zone d'édition) et de spécifier le message d'erreur ainsi que la ligne où elle se produit. Merci.

Message d'erreur : Run-time error '432' : File name or class name not found during the Automation operation"

Code:

---

1 2 3 4 5 6 7 8

Dim DocWord As Word.Document   Set DocWord = GetObject("c:\mes documents\Article.doc") DocWord.Activate MsgBox DocWord.Range.Text DocWord.Close False Set DocWord = Nothing

---

la 2e ligne semble poser probleme,
pourtant je suis certain du chemin du fichier, j'ai meme essayé de créer un "Article.doc" dans "Mes documents"

Re

As-tu crées une instance de Word

Code:

---

Dim objWord As Word.Application

---

Va bien regarder les codes de la FAQ.

Philippe

Oui je l'ai codé..

je pense que l'erreur vient du fait que tu n'as pas relié ton objet word avec le fichier existant :

Code:

---

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

'Une fois la librairie chargée'   'déclarations de tes variables'   Dim objWord As Word.Application Dim docWord As Word.Document Dim CheminDoc as String CheminDoc = 'chemin de ton doc ; de préférence App.Path & "\blabla.doc" '   'ouverture' Set objWord = CreateObject("Word.Application") 'création d'une liaison VB - Word' Set docWord = objWord.Documents.Open(CheminDoc) 'ouverture'   'Rendre visible' objWord.Visible = True 'False pour rendre invisible'   'Sauvegarde' docWord.SaveAs(CheminDoc)   'fermeture' docWord.Close 'fermer le doc' docWord.Quit 'fermeture de la session word'   'libération mémoire' Set objWord = Nothing Set docWord = Nothing

---

Bonne continuation =)

Merci jdfmagic pour cette réponse
mais je n'ai pas compris :

Code:

---

chemindoc = app.path ("c:\Documents\Article.doc")

---

C'est ça ?

si tu testes, tu verras que ça ne marche pas...

J'ai pour habitude de mettre le fichier associé au programme dans le même répertoire ; ainsi quand tu installeras ton prog, le fichier word se trouvera dans le répertoire d'installation. Pour ce faire,

Code:

---

1 2 3

CheminDoc = App.Path & "\Blabla.doc" 'blabla.doc se trouvera dans le répertoire de tes fichiers VB'

---

Tu peux évidemment mettre le chemin de ton choix mais si tu envisages d'exporter ton application, il est plus aisé de procéder ainsi : tu ne sais pas comment les fichiers et répertoires, du PC hôte, seront configurés.

Si cela te convient, pense à l'icône :resolu:

Bonne continuation =)

Ca ne fonctionne toujours pas, le message d'erreur précises que le .doc est introuvable alors que... si
et la ligne qui ferait défaut serait :

Code:

---

set docWord = objWord.documents.open(chemindoc)

---

Montres nous ton code complet stp (ref à Word, définition de chemindoc, etc...)

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim objWord As Word.Application Dim docWord As Word.Document Dim CheminDoc as String CheminDoc = app.path & ("\Documents\article.doc")   Set objWord = CreateObject("Word.Application") Set docWord = objWord.Documents.Open(CheminDoc)   objWord.Visible = True docWord.SaveAs (CheminDoc)

---

Donc si ton application se trouve dans le répertoire "C:\toto", on est bien d'accord que ton fichier se trouve en ce moment dans "C:\toto\Documents\article.doc" ?

soit tu mets :

Code:

---

CheminDoc = App.path & "\article.doc"

---

article.doc est dans le répertoire de tes fichiers VB.

ou bien :

Code:

---

CheminDoc = 'le chemin de ton choix'

---

Il faut t'adapter à ton cas de figure... Regarde bien l'arborescence de tes répertoires et fichiers.

bonne continuation =)

j'ai fait au plus simple en déplacement mon dossier contenant toutes mes forms VB dans le C: pour obtenir le "chemin" le plus court possible et maintenant le message d'erreur est :

"Object variable or With block not set"

sur la ligne

Code:

---

docWord.SaveAs (chemindoc)

---

Peux tu nous donner une fois pour toute l'adresse exacte de ton programme et l'adresse excate de ton fichier doc ?
Le code suivant est bien le code complet de ta procédure ? Il n'y a rien d'autre ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim objWord As Word.Application Dim docWord As Word.Document Dim CheminDoc as String CheminDoc = app.path & ("\Documents\article.doc") Set objWord = CreateObject("Word.Application") Set docWord = objWord.Documents.Open(CheminDoc) objWord.Visible = True docWord.SaveAs (CheminDoc)

---

adresse exact : c:\Stage\Forme VB\Article.doc

non il n'y a rien d'autre