Sub recupValeurChampFusion_DocumentOuvert()
Dim Appli As Word.Application
Dim WordDoc As Word.Document
'nécéssite d'activer la reference Microsoft word xx.x 0bject Library
Set Appli = GetObject(, 'Word.Application')
Set WordDoc = Appli.Documents('C:\\Documents and Settings\\michel\\leDocument.doc')
If WordDoc Is Nothing Then
MsgBox 'Le document est fermé'
Else
MsgBox WordDoc.MailMerge.DataSource.DataFields('N_Devis').Value
End If
End Sub