Config : OFFICE 200
Bonjour,
je sais que le sujet a déjà été traité mais je n'y connais rien en VBA.
Voilà mon pb.
J'ai un fichier excel qui génére un pdf et j'ai une macro qui doit envoyer via Outlook un mail avec le ficher pdf attaché.
Le mail ne doit pas partir en automatique, il suffit juste de lancer Outlook avec l'adresse mail récupérée dans le fichier excel et joindre le fichier pdf.
j'ai essayé ma macro (que j'ai pompé je ne sais où);
elle fonctionne sous office 2010 sans pb mais pas sous office 2007
je vous joins mon programme excel avec qques explications.
vous allez certainement trouver de grosses boulettes mais je n'ai pas votre niveau !!!
Un grand merci (si vous avez 5 mn vous pouvez regarder la macro sur la date qui ne fonctionne plus mais pourquoi???)
voir morceau de code plus bas:
la macro plante avec message erreur de compilation projet ou bibliothèque introuvable
la ligne qui apparemement pose pb est :
Set MailOutLook = appOutLook.CreateItem(olMailItem)
olMailItem est en bleu
Excusez moi pour ma nullité en VBA . Il existe peut-être une façon pour faire plus simple mais je n'y connais rien.
MErci d'avance pour votre aide précieuse CDLT
Sub Send_Mails()
' envoie de message via outlook
Dim appOutLook As Object
Dim MailOutLook As Object
Dim Fichier As String
Dim rep_fic As String
rep_fic = "C:\Factdavid\FICHIER_PDF\" & Range("nom_cli") & "." & Year(Range("date_facture")) & "-" & Month(Range("date_facture")) & "-" & Day(Range("date_facture")) & ".pdf"
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
'où se trouve l'adresse du destinataire
.To = Worksheets("entete").Range("adr_mail")
.Subject = "Devis"
'.Body = "Ton message"
'Seulement si tu veux joindre un fichier
'If rep_fic <> "" Then
.Attachments.Add rep_fic
' End If
.Display
' pour envoie automatique
' .Send
End With
Set MailOutLook = Nothing
Set appOutLook = Nothing
End Sub
Bonjour,
je sais que le sujet a déjà été traité mais je n'y connais rien en VBA.
Voilà mon pb.
J'ai un fichier excel qui génére un pdf et j'ai une macro qui doit envoyer via Outlook un mail avec le ficher pdf attaché.
Le mail ne doit pas partir en automatique, il suffit juste de lancer Outlook avec l'adresse mail récupérée dans le fichier excel et joindre le fichier pdf.
j'ai essayé ma macro (que j'ai pompé je ne sais où);
elle fonctionne sous office 2010 sans pb mais pas sous office 2007
je vous joins mon programme excel avec qques explications.
vous allez certainement trouver de grosses boulettes mais je n'ai pas votre niveau !!!
Un grand merci (si vous avez 5 mn vous pouvez regarder la macro sur la date qui ne fonctionne plus mais pourquoi???)
voir morceau de code plus bas:
la macro plante avec message erreur de compilation projet ou bibliothèque introuvable
la ligne qui apparemement pose pb est :
Set MailOutLook = appOutLook.CreateItem(olMailItem)
olMailItem est en bleu
Excusez moi pour ma nullité en VBA . Il existe peut-être une façon pour faire plus simple mais je n'y connais rien.
MErci d'avance pour votre aide précieuse CDLT
Sub Send_Mails()
' envoie de message via outlook
Dim appOutLook As Object
Dim MailOutLook As Object
Dim Fichier As String
Dim rep_fic As String
rep_fic = "C:\Factdavid\FICHIER_PDF\" & Range("nom_cli") & "." & Year(Range("date_facture")) & "-" & Month(Range("date_facture")) & "-" & Day(Range("date_facture")) & ".pdf"
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
'où se trouve l'adresse du destinataire
.To = Worksheets("entete").Range("adr_mail")
.Subject = "Devis"
'.Body = "Ton message"
'Seulement si tu veux joindre un fichier
'If rep_fic <> "" Then
.Attachments.Add rep_fic
' End If
.Display
' pour envoie automatique
' .Send
End With
Set MailOutLook = Nothing
Set appOutLook = Nothing
End Sub
