bonsoir MR Boisgontierjacques
effectivement le formulaire marche très bien merci bcp pour votre aide,
cependant j ai besoin d 'un dernier coup de main si ce n'est trop vous demander , je bloque toujours sur le bouton mail
voila mon besoin , une fois j ai filtre mes fournisseur on fonction d un critère le bouton doit me permetre de leur envoyer l email a eux seulement , jai trouvez un code vba mais je n'arrive pas l'adapter , "mois j ai pas besoin d envoyer une piece joint"
Sub ENVOI_MAIL()
Dim msg As MailItem
Dim i, Olapp, A, B
A = Range("i1").Value + 1 'prend le numéro de la cellule i1 et ajoute 1
Range("i1") = A 'La cellule i1 prend le numéro de la cellule i1
Range("j1") = "CAPTURE NR " & A & " - " & Format(Date, "dd mm yyyy") 'insère un nom pour le futur PDF basé sur
'numéro de la cellule i1 et la date du jour
B = Range("J1").Text 'récupère les données de la cellule j1 au format text
Range("A19:H200").Select 'Plage de cellule à imprimer en PDF
'Impression du PDF et enregistrement automatique dans le chemin C:\Users\PCBureau48\Desktop\
'avec le nom de la cellule J1
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\PCBureau48\Desktop\" & B & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
'effectue la boucle, dans le cas suivant sur 14 lignes
For i = 1 To 14
If ActiveCell <> "" Then
Set Olapp = New Outlook.Application
Set msg = Olapp.CreateItem(olMailItem)
mg.T ActiveCell.Offset(0, 9).Value
msg.Subject = "OBJET MESSAGE"
msg.HTMLBody = "<html><body><font color=""black""><font size=3><FONT FACE=""Georgia"">" & "Bonjour, " & _
"<br /><br /><br />" & "TEXTE DU MAIL" & _
"<br /><br /><br />" & " </font></font></font></body></html>"
msg.Display
ActiveCell.Offset(1, 0).Select
msg.Attachments.Add Range("M1").Text 'Correspond au lien existant en M1
Else
Exit Sub
End If
Next i
End Sub