Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
845 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  copier lignes excel et coller dans corps de mail outlook (VBA)

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

copier lignes excel et coller dans corps de mail outlook (VBA)

n°2059367
alienorcap​ital
Posté le 24-02-2011 à 12:40:02  profilanswer
 

Bonjour,  
 
J'ai créer un bouton sous access qui permet de creer un fichier pdf a partir d'un etat et de l'envoyer par mail par la suite dont voici le code vba:  
 
Private Sub Commande13_Click()  
Dim vApplicationOutlook As Outlook.Application  
Dim vmessage As Outlook.mailitem  
 
PDFExportName = "Y:\AC\MIDDLE OFFICE\centra du jour\centra " & Format(DATE, "yyyymmdd" ) & ".pdf"  
DoCmd.OutputTo acOutputReport, "1centra GLOBAL TEST", acFormatPDF, PDFExportName  
DoCmd.OpenReport "1centra GLOBAL TEST", acViewPreview  
Set vApplicationOutlook = _  
CreateObject("outlook.application" )  
Set vmessage = vApplicationOutlook.createitem(0)  
With vmessage  
.TO = "middleoffice@ac.com"  
.subject = "centra du jour"  
.body = "Y:\AC\2AM\reportings fréquence.xls"  
.Attachments.Add "Y:\AC\MIDDLE OFFICE\centra du jour\centra " & Format(DATE, "yyyymmdd" ) & ".pdf"  
.send  
End With  
 
End Sub  
 
J'aimerais maintenant copier quelques lignes d'un tableux excel et les coller dans le corps de ce même mail mais je n'y parvient pas. Auriez vous des suggestions de code?  
 
merci par avance  

mood
Publicité
Posté le 24-02-2011 à 12:40:02  profilanswer
 

n°2059560
dje69r
Arme de distraction massive
Posté le 25-02-2011 à 10:35:42  profilanswer
 

.body = "Y:\AC\2AM\reportings fréquence.xls"  
 
Ca peut pas marcher...
 
Il faut que tu ouvres ton fichier Excel, que tu 'copies' ce qui t'interresse (l'affecter a une variable serait plus judicieux) et que tu l'affecte a body
 
Genre :

Code :
  1. .subject = "centra du jour"
  2.     Set XLP = CreateObject("excel.application" )
  3.         With XLP
  4.             .Visible = False 'si tu veux pas qu'on voit que tu ouvres un fichier Excel
  5.             .Workbooks.Open FileName:="Y:\AC\2AM\reportings fréquence.xls"
  6.             RenvBody= .Cells(1, 1).Value
  7.             .Workbooks.Save
  8.             .Quit
  9.         End With
  10.     Set XLP = Nothing
  11. .Body = RenvBody


Message édité par dje69r le 25-02-2011 à 10:36:08

---------------
Plus tu pédales moins vite, moins tu avances plus vite — SuperLoustic ! La radio des Loustics !
n°2060088
alienorcap​ital
Posté le 28-02-2011 à 16:32:11  profilanswer
 

Merci bcp pour votre réponsé rapide et efficace!


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  copier lignes excel et coller dans corps de mail outlook (VBA)

 

Sujets relatifs
[VBA Excel] Keycode -> ? [Résolu]Excel ?
Sauts de lignes Textarea (nl2br fonctionne pas)Impossible de copier un fichier avec FileSystemObject
[VBA] Dernière ligne vide dans un fichier excel videVBA Excel Remplacer retour chariot par saut cellule
Copier-coller par des Variables dans un Wscript.shell.run ne marche pa 
Plus de sujets relatifs à : copier lignes excel et coller dans corps de mail outlook (VBA)


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR