Discussion :

[moicwill]

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

[Megaxel]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[moicwill]

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.

[Megaxel]

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

[moicwill]

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

[SfJ5Rpw8]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou change de nom de fichier ..

[moicwill]

Non toujours,
meme en reduisant le nom à 3 lettres

[SfJ5Rpw8]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ThierryAIM]

Et ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[moicwill]

Non dsl, toujours pas

[Megaxel]

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

[ThierryAIM]

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

[moicwill]

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

Excel 2002

[Megaxel]

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...

[WaTaShi]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

@+