Re : userform en pdf envoi outlook
xhudi69
,
Désolé pour le retard je viens de rentrer
En faite avant cela fonctionnais avec cette macro :
F4 = Array("A1", "B2", "C4", "C6", "C8", "C10", "A14", "B8")
For i = 1 To 8
Feuil4.Range(F4(i)) = Controls("TextBox" & i)
Next
'For i = 1 To 8
' Feuil4.Cells(i, 1) = Controls("TextBox" & i)
'Next
Feuil4.Copy
ActiveWorkbook.SaveAs "D:\Test.xlsx"
ActiveWorkbook.Close
'Envoi Mail
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
Debut = "Bonjour , <BR><BR><BR>Vous trouverez ci joint le tableau demandé<BR><BR>"
Fin = "<BR> <BR> <BR> <BR>Cordialement <BR> <BR> <BR>Gui"
On Error Resume Next
With OutMail
.To = "adresse.destinataire@mail.fr"
.Subject = "Ton sujet " & TextBox1
.Attachments.Add "D:\Test.xlsx"
.HTMLBody = Debut & Fin
.Display 'pour voir
'.Send 'pour envoyer directement
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
'Suppression du fichier image JPG
Kill "D:\Test.xlsx"
'Suppression des données en Feuil4
For i = 1 To 8
Feuil4.Range(F4(i)) = ""
Next
Unload Me
Application.ScreenUpdating = 0: Application.DisplayAlerts = 0
End Sub
Le message et l'adresse mail était toujours la même
il n'avait qu'a cliquer sur mail (Usf3) cela ouvrait Outlook et n'avait plus qu' a envoyer.
Le seul truc c'est qu'a la place d'un format excel j'aurais voulu du Pdf.
Pour ta logique je suis d'accord mais pour un autre fichier sur lequel je travail en parallèle,
Pour le repertoire oui je l'ai crée sur mon bureau un fichier nommé ESSAI donc : "C:\Users\mlk\Desktop\ESSAI.pdf"
Sauf que cela m'affiche la feuil4 en pdf au lieu l'userform3
Merci