Ouvrir un Document Word en VB
Résolu
freched
Messages postés
19
Date d'inscription
Statut
Membre
Dernière intervention
-
freched Messages postés 19 Date d'inscription Statut Membre Dernière intervention -
freched Messages postés 19 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Ouvrir un Document Word en VB
- Comment ouvrir un fichier epub ? - Guide
- Word 2013 - Télécharger - Traitement de texte
- Comment ouvrir un fichier bin ? - Guide
- Signer un document word - Guide
- Comment ouvrir un document docx - Guide
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
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