ouverture fichier word

[luc]

Bonjour à tout le monde,


coucou le revoilou!!!!

Encore une question:

Une partie des données concernant mes patients se trouvent dans un fichier Word ( en gros histoire de la maladie). Ce fichier est nommé "nom prenom.doc"

Je n'arrive pas, à partir de la liste des patients qui est sous excel, en en selectionant un (ce que je sais faire) à ouvrir le fichier .doc qui correpond; ce à partir d'une macro. Le path est correct, j'y arrive en passant par les liens hypertextes, mais cela oblige à faire trois clics différents avant d'ouvrir le fichier (pas très élégant...) .

Y a t il une methode qui permet d'ouvrir directement ce fichier .doc (ou autre d'ailleur?)?

Merci par avance

Luc

 

[Cathy]

Bonjour Luc et le forum.

Je te joins un exemple de macro qui fait l'ouverture d'un document Word et la copie. Tu peux l'adapter à ton cas.

Sub CopieWord()

'Déclaration 4 variables (excel, dossier, fichier, chemin)
Dim objApplication As Object
Dim strDossier As String
Dim strFichier As String
Dim strChemin As String

'Initialisation 4 variables
Set objApplication = CreateObject("word.application")
strDossier = "C:\stage\"
strFichier = "doc1.doc"
strChemin = strDossier & strFichier

Windows(strFichier).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Copy

' Affichage de Word
With objApplication
.Visible = True
'.Workbooks.Open Filename:=strChemin
.Documents.Open Filename:=strChemin
.Selection.PasteSpecial Link:=True, DataType:=wdPasteOLEObject, Placement:= _
wdFloatOverText, DisplayAsIcon:=False

Windows("mois.xls").Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Copy
.Visible = False

End With

'Tout coller
'Selection.Paste

'Quitter, Libérer la référence
objApplication.Quit
Set objApplication = Nothing

End Sub

Cathy

 

[Luc Billaux]

Un grand merci à toi Cathy. C'est exactement ce que je cherchais et même plus...

Luc