Souci macro

J'explique mon probléme
En faite je dois sauvegarder un rapport excel par l'intermédiaire du logiciel Intouch(supervision),sans retourner sur excel et faire fichier,sauvegarder. Sur intouch j'ai créer un bouton "rapport". Ce bouton envoi par transmission DDE (Dynamic Data Exchange) une valeur logique 1 dans une cellule.
Une fois que j'ai fais cela je dois pouvoir sauvegarder automatiquement.
J'ai écris ce prog de la façon suivante dans le VBA de ma feuille 1:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("C2").Value = 1 Then
Call EnregRapport ' appelle la macro EnregRapport
End If

End Sub

Ensuite j'ai créer une macro qui me permet de sauvegarder:

Sub EnregRapport()

Dim D As String

D = Day(Now) & "_" & Month(Now) & "_" & Year(Now)


ActiveWorkbook.SaveAs Filename:="U:\stagiaires\taittinger\rapport sur excel\Rapport\Rapport_" & D & ".xls"
'Sauvegarde du rapport sous le nom voulu


End Sub


Malheureusement quand je clique sur rapport sous intouch, j'ai bien ma valeur 1 dans la cellule C2,mais il n'execute pas mon prog.
Pour l'executer il faut ke je cliq sur ma cellule alors que moi je voudrais qu'il enregistre des kil il y a la valeur 1 dans ma cellule


Pouvez vous m'aider!!!
Merci pour vos réponses