Re : Cocher une case automatiquement selon une valeur d'une cellule
oui il fonctionne parfaitement , je vous remercie , pour la principale je veux juste les donnée de la ligne active parce que je pourais avoir des ligne qui ne m'interesse pas donc je veux bien transferer que les donnée de la ligne active merci beaucoup, je voulais aussi vous demander si vous permeter de me dire comment faire pour creer un autre bouton pour envoyer un mail a une autre personne dont l'adresse n'est pas sur le formulaire j'ai essayé ce code et ca ne marche pas je ne comprends pas pourquoi
je parle du cas d'un autre bouton celui que vous m'avez mis marche parfaitement
Private Sub CommandButton1_Click()
sendemail
End Sub
Public Function sendemail()
Dim app As Outlook.Application
Dim adresse As String
Dim vMessage As Outlook.MailItem
Set vApplication = _
CreateObject("Outlook.Application")
Set vMessage = vApplication.CreateItem(0)
On Error GoTo SortieErreur
adresse = InputBox("Saisir l'adresse e-mail")
If adresse <> "" Then
With vMessage
.To = adresse
.Subject = "test"
.Body = " vous trouverez ci joint .... "
.Importance = olImportanceHigh
.attachement.Add ("C:\Documents and Settings\stage\Bureau\Copie de INDEX-1.xls")
' je veux aussi y ajouter la feuille active
.Send
End With
Else
MsgBox " l'adresse mail n'etait pas saisi"
End If
SortieErreur:
Set vApplication = Nothing
End:
End Function