Créer un fichier et l'envoyer en vba

Créer un fichier et l'envoyer en vba - VB/VBA/VBS - Programmation

Marsh Posté le 12-09-2013 à 22:13:49    

Bonjour,
 
Je suis débutante en VBA. Et j'arrive pas résoudre ce problème.
J'ai une base de données dans un fichier Excel. Chaque ligne de cette base de données est différente et elle est attribuée à une adresse mail.
J'aimerais créer pour chaque ligne un nouveau fichier Excel avec ces valeurs et y créer un camembert correspondant aux valeurs copiés puis envoyer ce fichier au mail correspondant.
 
 
Voila ce que j'ai essayé. J'ai récupéré des bouts de codes et j'ai utilisé l'enregistreur de macro.  
Ce code me permet de créer à chaque fois un nouveau fichier, il recopie les valeurs d'une ligne et créer le camembert correspondant et ainsi de suite pour chaque ligne. Or je ne sais pas comment envoyer ce fichier créée au mail correspondant.  
J'espère que je suis claire.
 

Code :
  1. Sub macro()
  3. Dim graphique As ChartObject
  5. Application.ScreenUpdating = False
  7. For i = 2 To 3
  8. ThisWorkbook.Sheets("Base de données" ).Range("A" & i & ":E" & i).Copy
  10. 'créer un nouveau classeur et y coller les données
  11. Set nouv = Workbooks.Add
  12. Set pg = nouv.Sheets(1)
  13. pg.Paste
  14. pg.Cells(1).PasteSpecial Paste:=xlValues
  16. ActiveSheet.Shapes.AddChart.Select
  17. ActiveChart.ChartType = xl3DPie
  18. ActiveChart.SetSourceData Source:=Range("C1:E2" )
  19. ActiveChart.SeriesCollection(1).XValues = "='Base de données'!$C$1:$E$1"
  20.    
  21. ActiveChart.SeriesCollection(1).Name = "Répartition du temps"
  22. ActiveChart.HasLegend = True
  23. ActiveChart.HasTitle = True
  24. ActiveChart.ApplyDataLabels AutoText:=True, LegendKey:=False, _
  25. HasLeaderLines:=True, ShowSeriesName:=False, ShowCategoryName:=False, _
  26. ShowValue:=False, ShowPercentage:=True, ShowBubbleSize:=False
  28. 'faire le ménage
  29. Set pg = Nothing
  30. Set gr = Nothing
  31. Set nouv = Nothing
  32. Application.CutCopyMode = False
  33. Next i
  34. End Sub


   
Je connais le code pour envoyer un fichier se trouvant sur mon ordinateur. Mais je ne sais pas comment y insérer ces nouveaux fichiers crées.  
 

Code :
  1. Sub Envoyer_Mail_Outlook()
  3. Dim ObjOutlook As New Outlook.Application
  4. Dim oBjMail
  5. Dim Nom_Fichier As String
  6. Dim adresse As String
  8. ' adresses emails
  9. For i = 2 To 3
  10. 'pour chaque adresse on démarre l’opération
  11. adresse = Range("B" & i)
  13.     Set ObjOutlook = New Outlook.Application
  14.     Set oBjMail = ObjOutlook.CreateItem(olMailItem)
  16.    
  17.    Nom_Fichier = "C:\Users\"
  18.     If Nom_Fichier = "" Then Exit Sub
  19. '---------------------------------------------------------
  20.      With oBjMail
  21.     ' l'objet du mail
  22.        .Subject = "Réponses questionnaire"
  23.     'le corps du mail ..son contenu
  24.        .Body = "Ci-joint les réponses aux questionnaires"
  25.        .Attachments.Add Nom_Fichier
  26.        .To = adresse
  27.     '   Ici on peut supprimer pour l'envoyer sans vérification
  28.        .Display
  29.        .Send
  30.     End With
  31.    
  32.     Set oBjMail = Nothing
  33.     Set ObjOutlook = Nothing
  34.     Next i
  35. End Sub

 
 
 
Je vous remercie pour votre aide ! :)

Reply

Marsh Posté le 12-09-2013 à 22:13:49   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed