[VBA-E]Ouverture d'un fichier word

Bonjour,

j'aimerais savoir quelle commande utiliser pour ouvrir un fichier word via une spreadsheet xl.
Le fichier est en fait un fichier d'aide qui sera appelé en cliquant sur un bouton "HELP".

Merci de votre aide

Dans le code "click" de ton bouton, tu n'as qu'à lancer Word, avec ton fichier d'aide en paramètre:

Code:

---

Shell ("Winword.exe C:\Temp\Test.doc")

---

Merci Megaxel,
mais ca ne marche pas tout a fait,
ca m'ouvre effectivement un ficier .doc, mais pas le bon, le fichier toujours est tjrs vide.

Allez, montre ta ligne de code, parce que ça marche bien sur mon exemple.

Private Sub CmdHelp_Click()
Shell ("Winword.exe C:\CalculateurValos.doc")
End Sub

à priori c'est un probléme de nom de fichier > à 8 caractéres , essai ;

Code:

---

Shell ("Winword C:\Calcul~1.doc")

---

ou change de nom de fichier ..

Non toujours,
meme en reduisant le nom à 3 lettres

moi je fais cela sous excel 2003.. et cela marche ...:

Code:

---

1 2 3

Private Sub CommandButton2_Click() Shell "Winword.exe C:\Calcul~1.doc", vbMaximizedFocus End Sub

---

Et ca :

Code:

---

1 2 3 4 5 6 7 8

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Const SW_SHOWNORMAL = 1 Private Const SW_SHOWMAXIMIZED As Long = 3 Private Const SW_SHOWMINIMIZED As Long = 2   Private Sub Form_Load() ShellExecute 0, vbNullString, "C:\CalculateurValos.doc", vbNullString, "C:\", SW_SHOWNORMAL End Sub

---

Non dsl, toujours pas

Ben je ne vois pas, là.
C'est quoi ton OS, ton Office? Ton signe du zodiac? :)

bon, ben quand il se sera décidé à nous donné un peu plus d'info, on reviendra peut-etre sur sa question :?

Parce que le "je veux un code" et "ca marche pas", ca va bien 5 mn, mais à la longue c'est lassant :?

Microsoft Windows XP Professional
Version: 5.1.2600 service pack 1 build 2600

Excel 2002

Tu as essayé de mettre le chemin complet de ton fichier dans une variable?
Je dis vraiment ça en désespoir de cause...

Ouaaaah: mon 1000ème message!!! Champagne...
:D

Salut à tous,
Et si au lieu d'utiliser un shell, tu ouvrais la référence :Microsoft Word 10.0 Object library dans ton projet et que tu utilisais une sub du type :

Code:

---

1 2 3 4 5 6 7

Sub OuvrirDocWord() Dim appWord as Word.Application Dim docWord as Word.Document Set appWord= New Word.application appWord.visible=True Set docWord= appWord.Documents.Open("C:\MonBoDocumentWord.doc") exit sub

---

@+