VBA L'envoi ne se fait que pour la 1ère ligne.

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

novice_en_vba

XLDnaute Nouveau
Bonjour,

je souhaite envoyer des états pdfs via un fichier excel qui récence les mails et les fichiers à envoyer
j ai récupéré la macro ci dessous
Elle fonctionne au problème prêt qu'elle envoie seulement la première ligne
Pourriez vs svp m'aider ?
merci
Sub envoiPJ_Fichier()

Dim olapp As Outlook.Application
Sheets("destinataires").Select
Range("A11").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("A2").Value
msg.Body = ActiveCell.Offset(0, 1).Value & " " & ActiveCell.Offset(0, 2).Value & " " & ActiveCell.Offset(0, 3).Value & Chr(13) & Chr(13) & ActiveCell.Offset(0, 4).Value & Chr(13) & Range("A5").Value & Chr(13) & Chr(13) & ActiveCell.Offset(0, 5).Value & Chr(13) & Range("A8").Value
'-- pj
ActiveCell.Offset(0, 6).Select
Do While Not IsEmpty(ActiveCell)
nf = ActiveWorkbook.Path & "\" & ActiveCell.Value
msg.Attachments.Add Source:=nf
ActiveCell.Offset(0, 1).Select
Loop
msg.Display
Loop
End Sub
 
hello

merci pour ton aide mais
ca bug erreur d'exécution 446 : cet objet ne gère pas les arguments nommées
au niveau "msg.Attachments.Add Source:=nf"

nvelle macro après modif
Sub envoiPJ_Fichier()

Dim olapp As Outlook.Application
Sheets("destinataires").Select
Range("A11").Select
Do While Not IsEmpty(ActiveCell)
Dim msg As Object
Set olapp = New Outlook.Application
Set msg = olapp.CreateItem(olMailItem)
msg.To = ActiveCell.Value
msg.Subject = Range("A2").Value
msg.Body = ActiveCell.Offset(0, 1).Value & " " & ActiveCell.Offset(0, 2).Value & " " & ActiveCell.Offset(0, 3).Value & Chr(13) & Chr(13) & ActiveCell.Offset(0, 4).Value & Chr(13) & Range("A5").Value & Chr(13) & Chr(13) & ActiveCell.Offset(0, 5).Value & Chr(13) & Range("A8").Value
'-- pj
ActiveCell.Offset(0, 6).Select
Do While Not IsEmpty(ActiveCell)
nf = ActiveWorkbook.Path & "\" & ActiveCell.Value
msg.Attachments.Add Source:=nf
ActiveCell.Offset(0, 1).Select
Loop
msg.Display

Loop
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
57
Affichages
5 K
Retour