Bonjour le forum,
Je sollicite votre aide une fois de plus, j’ai deux problèmes avec la macro ci-dessous
Je ne comprends pas pourquoi elle bug (ligne rouge), alors que je m’en sers dans un autre fichier !
Mon deuxième problème s'est la ligne verte, j'arrive pas écrire le fait quelle doit faire, pour renommer,reference à la cellule L12.
J’espère être claire, pouvez- vous me mettre sur la voie (ci joint le fichier)
merci
Sub transfer1()
'Créer copie onglet
Sheets("DPE").Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\temp.xls"
ActiveWindow.Close
'Envoi mail
Dim olapp As Outlook.Application
Range("L3").Select
Do While Not IsEmpty(ActiveCell)
Dim msg As MailItem
Set olapp = New Outlook.Application
Set msg = olapp.CreateItem(olMailItem)
msg.To = ActiveCell.Value
msg.Subject = Range("L12").Value
msg.Body = Range("L13").Value & Chr(13) & Chr(13) & Range("L14").Value & Chr(13) & Chr(13)
msg.Attachments.Add Source:=ActiveWorkbook.Path & "\" & nf
msg.Send
Loop
End Sub
Je sollicite votre aide une fois de plus, j’ai deux problèmes avec la macro ci-dessous
Je ne comprends pas pourquoi elle bug (ligne rouge), alors que je m’en sers dans un autre fichier !
Mon deuxième problème s'est la ligne verte, j'arrive pas écrire le fait quelle doit faire, pour renommer,reference à la cellule L12.
J’espère être claire, pouvez- vous me mettre sur la voie (ci joint le fichier)
merci
Sub transfer1()
'Créer copie onglet
Sheets("DPE").Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\temp.xls"
ActiveWindow.Close
'Envoi mail
Dim olapp As Outlook.Application
Range("L3").Select
Do While Not IsEmpty(ActiveCell)
Dim msg As MailItem
Set olapp = New Outlook.Application
Set msg = olapp.CreateItem(olMailItem)
msg.To = ActiveCell.Value
msg.Subject = Range("L12").Value
msg.Body = Range("L13").Value & Chr(13) & Chr(13) & Range("L14").Value & Chr(13) & Chr(13)
msg.Attachments.Add Source:=ActiveWorkbook.Path & "\" & nf
msg.Send
Loop
End Sub
Pièces jointes
Dernière édition: