Ouvrir un fichier Word depuis Excel (Résolu)

Chris401

XLDnaute Accro

• 25 Janvier 2016

• #2

Re : Ouvrir un fichier Word depuis Excel

Bonsoir

Ton code est correct.
Vérifie le chemin de ton fichier

Pour mon test, il ouvre bien le fichier ci-dessous

Code:

wordapp.Documents.Open "C:\Users\Chris\Documents\Word\Nom du Fichier.doc"

Cordialement
Chris

 

Vote positif 0 Vote négatif

R

robich

XLDnaute Occasionnel

• 25 Janvier 2016

• #3

Re : Ouvrir un fichier Word depuis Excel

bonsoir hassan.zer

regarde ce lien :

https://www.google.fr/url?sa=t&rct=...9zlf4-DzYJI1gZckw&sig2=1ren0wJwj5SnT-uiEuBn_w

 

Vote positif 0 Vote négatif

H

hassan.zer

XLDnaute Occasionnel

• 25 Janvier 2016

• #4

Re : Ouvrir un fichier Word depuis Excel

Pourtant j'ai testé ces solutions mais voila un exemple d'erreur que je rencontre en Pj

 

Pièces jointes

• Sans titre.jpg

  30.7 KB · Affichages: 50
• Sans titre.jpg

  30.7 KB · Affichages: 41

Vote positif 0 Vote négatif

H

hassan.zer

XLDnaute Occasionnel

• 25 Janvier 2016

• #5

Re : Ouvrir un fichier Word depuis Excel

Merci Chris401 et Robich,
je dois quitter,
Bonne nuit à vous.

 

Vote positif 0 Vote négatif

R

robich

XLDnaute Occasionnel

• 25 Janvier 2016

• #6

Re : Ouvrir un fichier Word depuis Excel

Private Sub CommandButton_Click()
Set wordapp = CreateObject("word.Application")
wordapp.documents.Open
"I:xxxxxxx\wwwwwwwww\dddddddd.dotx"
wordapp.Visible = True
End Sub

Essai cette exemple

 

Vote positif 0 Vote négatif

Chris401

XLDnaute Accro

• 26 Janvier 2016

• #7

Re : Ouvrir un fichier Word depuis Excel

Re

Ton message est clair : tu n'as pas défini la variable ; ce qui est obligatoire avec Option Explicit

Code:

Sub TonNom()
Dim WordApp As Word.Application
etc...
End Sub

Chris

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 26 Janvier 2016

• #8

Re : Ouvrir un fichier Word depuis Excel

Bonjour à toutes et à tous,

Le code suivant fonctionne sur mon poste.

Code:

Option Explicit
Sub Fichier_Word_ouvrir()
    ThisWorkbook.FollowHyperlink "C:\Users\DoubleZero\Downloads\Coucou.docx"
End Sub

A bientôt 🙂

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 26 Janvier 2016

• #9

Re : Ouvrir un fichier Word depuis Excel

Bonjour à tous

Un de mes préférés est ce code avec Activecell.value contenant le chemin et le nom du fichier qu'on peut mettre en dur entre guillemets pour tester:

Code:

Shell ("explorer " & ActiveCell.Value), vbMaximizedFocus

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 26 Janvier 2016

• #10

Re : Ouvrir un fichier Word depuis Excel

Re-bonjour,

MJ13 à dit:

Un de mes préférés...

Cliquez pour agrandir...

Merci, Michel 😀, pour cette possibilité.

On peut également procéder ainsi :

Code:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Row > 1 And Target.Column = 6 Then ThisWorkbook.FollowHyperlink Target.Value    ' ligne et colonne adapter
End Sub

A bientôt 🙂

 

Vote positif 0 Vote négatif

H

hassan.zer

XLDnaute Occasionnel

• 26 Janvier 2016

• #11

Re : Ouvrir un fichier Word depuis Excel

Merci !

J'ai utilisé FollowHyperLink et ça marche, c'est génial !!!
Merci à tous pour votre travail...

 

Vote positif 0 Vote négatif