Sujet Précédent Sujet Suivant

Ouvrir un Document Word en VB

Résolu/Fermé
freched Messages postés 19 Date d'inscription samedi 22 novembre 2008 Statut Membre Dernière intervention 15 janvier 2009 - 13 janv. 2009 à 00:09
freched Messages postés 19 Date d'inscription samedi 22 novembre 2008 Statut Membre Dernière intervention 15 janvier 2009 - 15 janv. 2009 à 22:08
Bonjour,
voila mon problème c'est que quand j'ouvre un document word sous VB6 il me dit qu'il est ouvert on lecture seule ça veux dire que je peux pas le modifier avec le même non le code que j'utilise c'est :


Set MonWd = CreateObject("Word.Application")
SetAttr "C:\Documents and Settings\Administrateur\Bureau\Bureau\Client", vbNormal
MonWd.Documents.Open ("C:\Documents and Settings\Administrateur\Bureau\Bureau\Client" & Trim(text1.Text) & ".doc")
SetAttr "C:\Documents and Settings\Administrateur\Bureau\Bureau\Client" & Trim(TalibTanfi.Text) & ".doc", vbNormal


si vous pouvez m'aider car je veux ouvrire des document Word pour les modifier en portant le même nom


et merci
A voir également:

2 réponses

Réponse 1 / 2
mikebzh Messages postés 127 Date d'inscription samedi 20 décembre 2008 Statut Membre Dernière intervention 11 mars 2009 28
14 janv. 2009 à 04:11
Bonjour,
Un truc de ce style te convient-il ?

[code]
Private Sub opendocword()
'Ne pas oubliez de rajouter la reference Microsoft Word 11.0 object library
Dim pWdApp As Word.Application
Dim pWdDoc As Word.Document

Set pWdApp = CreateObject("Word.Application")
Set pWdDoc = pWdApp.Documents.Open("C:\toto.doc")
pWdApp.Visible = True

End Sub
[\code]

Salut
1
Réponse 2 / 2
freched Messages postés 19 Date d'inscription samedi 22 novembre 2008 Statut Membre Dernière intervention 15 janvier 2009
15 janv. 2009 à 22:08
Merci ami jusqu'a maintenant ca marche bien merci bcp
0

Discussions similaires

"Aucune application permettant d'ouvrir cette URL"
sidojaice -
JIP -

24 réponses