Ouvrir un fichier word à une page précise

Bonjour :grinning:

J’aurais voulu savoir comment il etait possible d’ouvrir un fichier word à une page précise lors d’un clic sur un bouton. Pour l’instant j’arrive à ouvrir mon document.

voici mon programme

Private Sub OptionButton1_Click()

Dim Link As String

Link = “D:\Users\ziditey\Desktop\STAGE\CCTP-MCEL 2014-2018 V1 trame.docx”

On Error GoTo NePeutPas
ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:=True
Exit Sub
NePeutPas:
MsgBox "Impossible d’ouvrir " & Link

End Sub

c’est vraiment important !!!

Hello

Tu peux mais pas avec un lien

Essaye avec une variante de la macro suivante (qui devrait ouvrir à la page 8 )

Sub ouvrirdoc()
    Link = “D:\Users\ziditey\Desktop\STAGE\CCTP-MCEL 2014-2018 V1 trame.docx”
    Set wordapp = CreateObject("word.Application")
    wordapp.Visible = True
    wordapp.Documents.Open  Link
    WordApp.Selection.Goto What:=1, Which:=2, Name:="8"

End Sub
2 « J'aime »

Coucou :grinning:

ça marche, merci beaucoup