Ouvrir classeur Word

Bonjour,

Je souhaite ouvrir un classeur Word grâce à un bouton situé dans Excel.

Merci d'avance

A bientôt

Pascal D.

Bonjour,

Dans quel dossier se trouve votre documents ?

Votre doc et .doc ou .docx, etc...

Bonjour,

Mon fichier est au format .doc

Cordialement

Pascal D.

un essai :

  • La variable NomDoc à modifier en fonction du nom de votre fichier
  • La variable Chemin à modifier en fonction de l'emplacement de votre fichier
(Testé sous Excel 2013)
Sub OpenWordDoc()
Dim NomDoc As String, Chemin As String

NomDoc = "test.doc"
Chemin = "E:\Test\" & NomDoc
    Set WordApp = CreateObject("Word.Application")
    On Error GoTo MsgError
    Set WordDoc = WordApp.Documents.Open(Chemin)
    WordApp.Visible = True
    Exit Sub
MsgError: MsgBox "Le fichier " & NomDoc & " n'existe pas !"
End Sub

Re,

C'est a mettre dans un module?


Re

Est ce que on peut fermer automatiquement le fichier excel une fois que le classeur Word est ouvert?

Cordialement

Prince1978 a écrit :

C'est a mettre dans un module?

Tout à fait

Re

Merci,

Tu as vu ma deuxième question?

Sub OpenWordDoc()
Dim NomDoc As String, Chemin As String

NomDoc = "test.docx"
Chemin = "E:\Test\" & NomDoc
    Set WordApp = CreateObject("Word.Application")
    On Error GoTo MsgError
    Set WordDoc = WordApp.Documents.Open(Chemin)
    WordApp.Visible = True
    ThisWorkbook.Close True 'ferme le fichier excel en le saugardant
    Exit Sub
MsgError: MsgBox "Le fichier " & NomDoc & " n'existe pas !"
End Sub

Re

Merci pour ce code,

Je rencontre un petit souci,

La ligne ThisWorkBook me ferme bien le fichier mais pas le logiciel excel.

On peut le fermer?

Tu avais demandé à fermer le fichier, pas l'application.

Voilà qui devrait faire l'affaire :

Sub OpenWordDoc()
Dim NomDoc As String, Chemin As String

NomDoc = "test.docx"
Chemin = "E:\Test\" & NomDoc
    Set WordApp = CreateObject("Word.Application")
    On Error GoTo MsgError
    Set WordDoc = WordApp.Documents.Open(Chemin)
    WordApp.Visible = True
    Application.Quit 'Quitte Excel
    Exit Sub
MsgError: MsgBox "Le fichier " & NomDoc & " n'existe pas !"
End Sub

Bonjour,

Je prends merci

Je ne pense pas que se soit la même chose, ton appli Excel étant déjà ouverte ce code ne fonctionnerait pas.

En fait, si on peut en adaptant comme ceci :

Sub OpenExcelCla()
Dim NomXls As String, Chemin As String

NomXls = "test.xlsm"
Chemin = "E:\Test\" & NomXls
    Set ExcelApp = CreateObject("Excel.Application")
    On Error GoTo MsgError
    Set ExcelCla = ExcelApp.Workbooks.Open(Chemin)
    ExcelApp.Visible = True
    Application.DisplayAlerts = False
    Application.Quit 'Quitte Excel
    Exit Sub
MsgError: MsgBox "Le fichier " & NomXls & " n'existe pas !"
End Sub

Merci pour ce code

Merci fred35

Cordialement.

Rechercher des sujets similaires à "ouvrir classeur word"