Ouvrir un fichier Word depuis Excel (Résolu)

[hassan.zer]

Bonsoir à tous,

Je recherche sans succés la façon d'ouvrir un fichier word existant depuis une macro excel mais je ne trouve pas, ce code la ne fonctionne pas,

Sub ouvrirdoc()
Set wordapp = CreateObject("word.Application")
wordapp.Visible = True
wordapp.Documents.Open "chemindemondocument.doc"
End Sub

Auriez-vous une idée ? j'ai excel 2007
merci

 

[Chris401]

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

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

Cordialement
Chris

 

[robich]

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

 

[hassan.zer]

Re : Ouvrir un fichier Word depuis Excel

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

 

[hassan.zer]

Re : Ouvrir un fichier Word depuis Excel

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

 

[robich]

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

 

[Chris401]

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

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

Chris

 

[DoubleZero]

Re : Ouvrir un fichier Word depuis Excel

Bonjour à toutes et à tous,

Le code suivant fonctionne sur mon poste.

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

A bientôt 🙂

 

[MJ13]

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:

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

 

[DoubleZero]

Re : Ouvrir un fichier Word depuis Excel

Re-bonjour,

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

Merci, Michel 😀, pour cette possibilité.

On peut également procéder ainsi :

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 🙂

 

[hassan.zer]

Re : Ouvrir un fichier Word depuis Excel

Merci !

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