boite de dialogue sous excel pour ouvrir des fichiers word

[estelle]

bonjour,

voilà, j'ai débuté une appli sous excel....
Et je voudrais pouvoir ouvrir une boite de dialogue me permettant d'ouvrir des fichiers word.
Si vous pouviez me donner quelques conseils, ça serait super sympas!!

Estelle

 

[STéphane]

Sub hh()
FiletoOpen = Application.GetOpenFilename("Fichiers Word (*.doc), *.doc")
If FiletoOpen <> False Then
MsgBox "Open " & FiletoOpen
ActiveWorkbook.FollowHyperlink FiletoOpen


End If
End Sub

'Shell pathname:="Winword.exe" & " " & FiletoOpen, windowstyle:=1


laméthode d'ouverture du fichier word n'est pas nickel, ton classeur risque en fait de se fermer.
mais il existe d'autres méthodes d'ouverture que celles que j'ai citées