Aide pour code VBA pour ouvrir 1 fichier

[sebgo]

Bonjour le forum,
J'ai deux fichiers (Excel et Word) dans un même repertoire et je cherche le code vba pour le fichier Word à partir du fichier Excel.
PS: le chemin d'accès est dynamique.
Quelqu'un peut-il m'aider?
Merci d'avance.

 

[Eric C]

Bonjour le forum
Bonjour sebgo

Je ne sais pas si je suis dans le bon mais ceci ouvre un document Word. Le chemin est à adapter. Rends toi sdur le Wiki de notre ami MichelXLD (que je salue au passage) tu vas découvrir le trésor, non pas d'Ali Baba mais de Michel Lien supprimé

Sub OpenWord()
Dim Wrd As Object
Set Wrd = CreateObject('word.Application')
Wrd.Visible = True
Wrd.documents.Open ('C:\\Répertoire\\Nom.doc')
End Sub

Bonne fêtes de fin d'année à toutes & à tous

 

[myDearFriend!]

Bonsoir sebgo,

Sub OuvrirDoc()
'Il convient d'activer la référence 'Microsoft Word XX.X Object Library'
Dim AppW As Word.Application
Dim DocW As Word.Document
Dim Chemin As String
Chemin = ThisWorkbook.Path & '\\LeFichier.doc'
Set AppW = CreateObject('Word.Application')
AppW.Visible = True
Set DocW = AppW.Documents.Open(Chemin)
End Sub

Et pour tout savoir (ou presque) sur le pilotage de Word depuis Excel, consulter en urgence la page n°3 Wiki de MichelXLD !

Bonnes fêtes de fin d'année.

EDITION :
Salut Eric, désolé, je ne t'avais pas vu arriver...

Message édité par: myDearFriend!, à: 29/12/2005 19:20

 

[natbru]

Bonjour Sebgo, bonjour Eric,

juste un complément : si tu veux que le chemin du fichier puisse être modifié sous excel.

Private Sub OuvrirDoc_Click()


Dim Wrd As Object
Dim chemdoc As String

chemdoc = Worksheets('feuil1').Range('a1').Value

Set Wrd = CreateObject('word.Application')
Wrd.Visible = True
Wrd.documents.Open (chemdoc)

End Sub

Voir ci joint. Pense à modifier le chemin du fichier en a1 et à créer ton fichier au bon endroit.

Bon courage. [file name=Classeur1_20051229184430.zip size=8318]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20051229184430.zip[/file]

 

[natbru]

Désolé MDF, je t'avais pas vu.

 

[_Thierry]

bonsoir à tous !!!

Rapidos en 'coup de vent' comme ce code, si par exemple tu as le Chemin Complet avec le nom du Doc Word dand la cellule active

Sub Open_N_Importe_Quoi()
    ThisWorkbook.FollowHyperlink ActiveCell
End Sub

Bonne Fin d'Année à tous et toutes
[ol]@+Thierry[/ol]

 

[sebgo]

Bonsoir tt le monde,
Merci bcp pour votre aide. Je vais essayé les solutions proposées et je vous tiendrez au courant.
Bonne soirée à vous.

 

[sebgo]

Bonjour le forum,
Comme promis, j'ai testé les différentes solutions qui mont été proposées et celle de MyDearFriend répondait à ce que je voulais. Neanmoins un merci à tous pour les contributions.
Bonne et heureuse fin et debut d'ANNEE.

Sebgo