Ouverture fichier word conditionnelle

=SI(G3>20;"A FAIRE";"")

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Offset(0, 6).Value = "A FAIRE" And Not Application.Intersect(Target.Offset(0, 6), Range("M1:M65536")) Is Nothing Then
        Call ouvrirDocWordExistant
    End If
End Sub

Sub ouvrirDocWordExistant()
'necesite d'activer la reference Microsoft Word xx.x Object Library
Dim appWrd As Word.Application
Dim docWord As Word.Document
Set appWrd = CreateObject("Word.Application")
appWrd.Visible = True
Set docWord = appWrd.Documents. _
Open("C:\Documents and Settings\ARU346\Bureau\Lettre Assistante Sociale2.doc", ReadOnly:=False)
End Sub

=SI([B]ET(E3<>"";F3<>"")[/B];SI(E3=F3+H3;1;SI(H3="";(F3-E3)+1;(F3-E3)+(H3-F3)+1));"")

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("M" & Target.Row).Value = "A FAIRE" And Range("E" & Target.Row).Value <> "" And _
        Range("F" & Target.Row).Value <> "" Then
        Call ouvrirDocWordExistant
    End If
End Sub

Dim appWrd
Dim docWord

Sub exportDonneesDansSignetsWord()
'nécéssite d'activer la référence Microsoft Word xx.x Object Library
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim i As Byte

Set WordApp = CreateObject("word.application") 'ouvre session word
Set WordDoc = WordApp.Documents.Open("C:\Documents and Settings\ARU346\Bureau\Lettre Assistante Sociale.doc") 'ouvre document Word
WordApp.Visible = False 'word masqué pendant l'operation
For i = 1 To 3
'les signets du document Word sont nommés Signet1 , Signet2 , Signet3
WordDoc.Bookmarks("Signet" & i).Range.Text = Cells(i, 1)
Next i

WordApp.Visible = True 'affiche le document Word
'WordDoc.PrintOut 'imprimer

'WordDoc.Close True 'ferme le document word en sauvegardant les données
'WordApp.Quit 'ferme la session Word
End Sub

If wordapp.visible = True Then Range("N" & Target.Row).Value = "FAIT"