Discussion :

[8e8eClo]

Bonjour,

Soit un dossier comprenant : un fichier excel et un fichier word.
Je ne connaitrai par leur emplacement. La seule chose de sûr est qu'ils resteront dans le même dossier.
Dans cette configuration, comment faire pour que, après un clique sur un bouton, excel ouvre le fichier word ?


Merci

[Theze]

Bonjour,

Teste ce qui suit. Le nom du document Word doit être identique (hormis l'extension) au nom du classeur Excel (Nom du fichier.doc --> Nom du fichier.xls) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub OuvrirWord()
 
    Dim AppWord As Object
    Dim Doc As Object
    Dim Fichier As String
 
    'crée une instance de Word
    Set AppWord = CreateObject("Word.Application")
 
    'rend l'application visible
    AppWord.Visible = True
 
    'construit le chemin à partir du nom du fichier Excel
    Fichier = Left(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, ".") - 1) & ".doc"
 
    'ouvre le document
    Set Doc = AppWord.Documents.Open(Fichier)
 
End Sub

Hervé.

[8e8eClo]

Bonjour,


Ca semble fonctionner à un petit détail près.
Mon document word est un modèle de document.
J'ai donc remplacé le .doc par .dot mais quand la macro ouvre mon document word elle m'ouvre le modèle et non un document basé sur le modèle.

Merci


C'est bon j'ai trouvé