Accéder à fichier word par macro

[Lagache]

Bonjour le Forum

Petite question

Comment peut on accéder à un fichier word par une macro sous excel ?

Merci de l'aide
Salutations

 

[ERIC S]

Bonjour

A adapter

Ouvrir = Application.GetOpenFilename(filefilter:='Lettres type (*.doc),*.doc', Title:='Sélection d'une lettre type')
If Ouvrir = False Then
MsgBox 'aucun fichier sélectionné', vbOKOnly + vbCritical, 'fin de procédure '
Exit Sub
End If
ThisWorkbook.FollowHyperlink Ouvrir


A+

 

[Creepy]

Hello le Forum, Lagache

Ce code nécessite que tu coches dans le menu : Outils > Référence de VBA la réference : Microsoft Word x.0 Object Librairy(le x=numéro de version de ton word)

Ensuite voila le code :

Sub Open_Word_Doc()
Dim WordApp             As Word.Application
' Declare une variable comme application Word
Dim WordDoc             As Word.Document
' Declare une variable comme document Word

Set WordApp = CreateObject('word.application.9')
'Charge Word, Remplacer le 9 par le Numero de ta version
'Identique à celui des références !
Set WordDoc = WordApp.Documents.Open('D:\\MonDocumentWord.doc')
' determine le document à ouvrir
WordApp.Visible = True
'Rend Word visible

'en fin de code toujours remettre à 0 pour liberer de la mémoire
Set WordApp = Nothing
Set WordDoc = Nothing
End Sub

@+

Creepy

Edit : Hello Eric en même temps ! Perso je préfère créer une nouvelle instance Word.
M'enfin bon chacun fait comme il veut !

Message édité par: Creepy, à: 26/04/2006 15:56

 

[Lagache]

Re Bonjour le Forum, Eric et Creepy

Merci à vous pour les promptes réponses
Je vais de ce pas mettre en exécution
Bonne Soirée à vous

 

[ERIC S]

Salut creepy

dans mes appli si j'appelle word c'est pour des lettres type pour publipostage, donc je vais au fichier directement.

A+