Ouvrir un Document Word en VB
Résolu
freched
Messages postés
24
Statut
Membre
-
freched Messages postés 24 Statut Membre -
freched Messages postés 24 Statut Membre -
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
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
Configuration: Windows XP Firefox 3.0.5
2 réponses
-
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 -
