Macro envoi mail depuis feuille Excel
Y
Bonjour à tous,
En esperant que vous portez bien, voici ma problématique :
J'ai un fichier et j'ai une macro qui marche mais j'ai un message d'erreur qui s'affiche au niveau de la ligne
"data = Join(Application.Transpose(wsY.Range("A1:B5").Value), "<br>")".
Le message est arguement non défini, en le supprimant le message s'envoie bien via outlook mais j'ai pas mes colonnes A et B coller en tableau dans mon mail. Honnetement je séche, j'ai essayer plein de chose j'ai pas trouvé. J'espere que vous pourriez m'aider et voici le code en entier
Sub FilterAndSend2()
Dim wsX As Worksheet, wsY As Worksheet
Dim rngQ As Range, rngU As Range
Dim email As String
Set wsX = ThisWorkbook.Sheets("HORS PSA")
Set wsY = ThisWorkbook.Sheets("MAIL")
wsX.Range("W:W").AutoFilter Field:=1, Criteria1:="="
Set rngQ = wsX.Range("Q:Q").SpecialCells(xlCellTypeVisible)
Set rngU = wsX.Range("U:U").SpecialCells(xlCellTypeVisible)
rngQ.Copy
wsY.Range("A:A")rngU.Copy wsY.Range("B:B")
email = wsY.Range("E22").Value
Dim outlookApp As Outlook.Application, mailItem As Outlook.mailItem
Dim data As String
data = Join(Application.Transpose(wsY.Range("A1:B5").Value), "<br>")
Debug.Print wsY.Range("A:B").Value
Set outlookApp = CreateObject("Outlook.Application")
Set mailItem = outlookApp.CreateItem(0)
With mailItem
.To = email
.subject = "Données copiées"
.HTMLBody = "<html><body>" & "Les données ont été transmises avec succès." & "</Body>" & "<br>" & "<br>" & "Voici le reste à quai :" & "<br>" & "<br>" & data & "</html>"
.Send
End With
wsX.AutoFilterMode = False
End SubEdit modo : merci de mettre le code correctement entre balises avec le bouton </>