Z
Zidoide
Guest
Bonjour.........( oo )
...
Petite question, quand vous avez des codes comme ci-dessous!!!
J'aimerais savoir comment et ou vous les insérez???
C'est juste un exemple que j'ai copier XLD
Private Sub Worksheet_Change(ByVal Target As Range)
'testé avec WinXP
Dim iMsg As Object, iConf As Object
'Dim iBP As Object
Const cdoSendUsingPickup = 1
On Error Resume Next
If Target.Address = '$A$1' And Target > 100 Then
Set iMsg = CreateObject('CDO.Message')
Set iConf = CreateObject('CDO.Configuration')
With iMsg
Set .Configuration = iConf
.To = Range('A2')
.Subject = Range('A3')
.HTMLBody = Range('A1')
'Set iBP = iMsg.AddAttachment('C:\\lefichier.txt')
.Send
End With
End If
End Sub
...
Petite question, quand vous avez des codes comme ci-dessous!!!
J'aimerais savoir comment et ou vous les insérez???
C'est juste un exemple que j'ai copier XLD
Private Sub Worksheet_Change(ByVal Target As Range)
'testé avec WinXP
Dim iMsg As Object, iConf As Object
'Dim iBP As Object
Const cdoSendUsingPickup = 1
On Error Resume Next
If Target.Address = '$A$1' And Target > 100 Then
Set iMsg = CreateObject('CDO.Message')
Set iConf = CreateObject('CDO.Configuration')
With iMsg
Set .Configuration = iConf
.To = Range('A2')
.Subject = Range('A3')
.HTMLBody = Range('A1')
'Set iBP = iMsg.AddAttachment('C:\\lefichier.txt')
.Send
End With
End If
End Sub