Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel comment ouvrir un.doc

comment ouvrir un.doc

6 réponses
Avatar
BJ
Bonjour,
Quel est le code me permettant d'ouvrir un document Word.
j'arrive à ouvrir word mais pas directement mon document
Je voudrais exemple ouvrir Essai.doc qui est situé dans le même dossier et y
apporter des modifs
voici ce que j'ai actuellement
ouvre = Shell("C:\Program Files\Microsoft Office\Office\WINWORD.EXE", 3)

Merci
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
AV
Un truc comme ça :
Shell "Winword.exe C:Program FilesMicrosoft OfficeOfficeEssai.doc",
vbMaximizedFocus

AV
Avatar
Pierre CFI [mvp]
bonjour
il faut aussi indiquer le chemin et le nom du fichier aprés winword.exe
mais pourquoi pas un lien hypertexte ? c'est bien aussi

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"BJ" a écrit dans le message de news:
Bonjour,
Quel est le code me permettant d'ouvrir un document Word.
j'arrive à ouvrir word mais pas directement mon document
Je voudrais exemple ouvrir Essai.doc qui est situé dans le même dossier et y
apporter des modifs
voici ce que j'ai actuellement
ouvre = Shell("C:Program FilesMicrosoft OfficeOfficeWINWORD.EXE", 3)

Merci




Avatar
Eric
Bonjour,

En complément des autres réponses et sachant que, bien souvent, les
fichiers ne sont pas stockés dans le même répertoire que l'appli qui les a
créés, mais dans des répertoires(idem pour les noms de fichiers) dont le
nom contient des espaces, je te propose :

Private Sub Command1_Click()
Dim CheminFichier As String, appli As String, Ouvre
appli = "C:Program FilesMicrosoft OfficeOfficeWINWORD.EXE "
CheminFichier = "C:Documents and SettingsUserMes documentsEssai
Ouverture.doc"
Ouvre = Shell(appli & Chr(34) & CheminFichier & Chr(34), 3)
End Sub



A+
Eric

"BJ" écrivait
news::

Bonjour,
Quel est le code me permettant d'ouvrir un document Word.
j'arrive à ouvrir word mais pas directement mon document
Je voudrais exemple ouvrir Essai.doc qui est situé dans le même
dossier et y apporter des modifs
voici ce que j'ai actuellement
ouvre = Shell("C:Program FilesMicrosoft OfficeOfficeWINWORD.EXE",
3)

Merci





Avatar
Alain CROS
Bonjour.

Sub LanceEssaiDoc()
Dim ObjWord As Object
Set ObjWord = CreateObject("Word.Application")
With ObjWord
.documents.Open "LeCheminCompletDeEssai.doc"
.Visible = True
End With
Set ObjWord = Nothing
End Sub

Alain CROS

"BJ" a écrit dans le message de news:
Bonjour,
Quel est le code me permettant d'ouvrir un document Word.
j'arrive à ouvrir word mais pas directement mon document
Je voudrais exemple ouvrir Essai.doc qui est situé dans le même dossier et y
apporter des modifs
voici ce que j'ai actuellement
ouvre = Shell("C:Program FilesMicrosoft OfficeOfficeWINWORD.EXE", 3)

Merci




Avatar
Pierre CFI [mvp]
.../...
euhhhhhhhhhhhhh ???
:o))
Là, Eric, tu vas recevoir un pfffffffffff bien mérité
reviens sur mpfa, il y a plein de questions sans réponse

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"Eric" a écrit dans le message de news:
Bonjour,

En complément des autres réponses et sachant que, bien souvent, les
fichiers ne sont pas stockés dans le même répertoire que l'appli qui les a
créés, mais dans des répertoires(idem pour les noms de fichiers) dont le
nom contient des espaces, je te propose :

Private Sub Command1_Click()
Dim CheminFichier As String, appli As String, Ouvre
appli = "C:Program FilesMicrosoft OfficeOfficeWINWORD.EXE "
CheminFichier = "C:Documents and SettingsUserMes documentsEssai
Ouverture.doc"
Ouvre = Shell(appli & Chr(34) & CheminFichier & Chr(34), 3)
End Sub



A+
Eric

"BJ" écrivait
news::

Bonjour,
Quel est le code me permettant d'ouvrir un document Word.
j'arrive à ouvrir word mais pas directement mon document
Je voudrais exemple ouvrir Essai.doc qui est situé dans le même
dossier et y apporter des modifs
voici ce que j'ai actuellement
ouvre = Shell("C:Program FilesMicrosoft OfficeOfficeWINWORD.EXE",
3)

Merci








Avatar
BJ
La réponse d'Alain viens comme un cadeau de Noel, de plus elle fonctionne à
merveille.
C'est exactement ce que je recherchais, de plus c'est simple et je mets ce
code en VB5 et tout baigne
Merci Alain
A+

"Alain CROS" a écrit dans le message news:
O$
Bonjour.

Sub LanceEssaiDoc()
Dim ObjWord As Object
Set ObjWord = CreateObject("Word.Application")
With ObjWord
.documents.Open "LeCheminCompletDeEssai.doc"
.Visible = True
End With
Set ObjWord = Nothing
End Sub

Alain CROS

"BJ" a écrit dans le message de news:


Bonjour,
Quel est le code me permettant d'ouvrir un document Word.
j'arrive à ouvrir word mais pas directement mon document
Je voudrais exemple ouvrir Essai.doc qui est situé dans le même dossier
et y


apporter des modifs
voici ce que j'ai actuellement
ouvre = Shell("C:Program FilesMicrosoft OfficeOfficeWINWORD.EXE", 3)

Merci