GMACJONES
Messages postés2Date d'inscriptiondimanche 14 septembre 2008StatutMembreDernière intervention14 septembre 2008 14 sept. 2008 à 19:05
Bonjour,
(excusez-moi par avance pour l'absence d'accents, mais c'est plus complique d'en mettre avec un clavier QWERTY)
au hasard du site, j'ai essaye de concocter une macro qui me permette d'ouvrir un fichier excel B depuis un fichier excel A, d'y copier certaines donnees du fichier A, puis en parallele d'ouvrir Outlook et de preparer l'envoi d'un message.
Cependant, meme si le fichier B s'ouvre, la copie ne s'effectue pas. De plus Outlook ne s'ouvre carrement pas du tout. Ce deuxieme point pourrait etre laisse de cote pour l'instant : j'ai vu qu'il y avait un post a ce sujet et je ne souhaite pas vous faire perdre votre temps. Mais pensez-vous pouvoir m'aider sur la premiere partie du code VBA?
Voici la macro en entier :
Sub Deny3()
'
' Deny3 Macro
' Macro recorded 11/09/2008 by julien
'
'
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
appExcel.Workbooks.Open ("C:\-----------------\Exception Work order template.xls")
appExcel.Visible = True
Windows("Exception Work order template.xls").Activate
Sheets("General").Select
Range("B3:B12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
MonMessage.from = "blabla@bla.com"
MonMessage.cc = "blabla@bla.com"
MonMessage.Subject = "Non bla bla bla"
Corps = "Hi"
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "Voici le fichier convenu."
MonMessage.body = Corps
Set MonOutlook = Nothing
14 sept. 2008 à 19:05
(excusez-moi par avance pour l'absence d'accents, mais c'est plus complique d'en mettre avec un clavier QWERTY)
au hasard du site, j'ai essaye de concocter une macro qui me permette d'ouvrir un fichier excel B depuis un fichier excel A, d'y copier certaines donnees du fichier A, puis en parallele d'ouvrir Outlook et de preparer l'envoi d'un message.
Cependant, meme si le fichier B s'ouvre, la copie ne s'effectue pas. De plus Outlook ne s'ouvre carrement pas du tout. Ce deuxieme point pourrait etre laisse de cote pour l'instant : j'ai vu qu'il y avait un post a ce sujet et je ne souhaite pas vous faire perdre votre temps. Mais pensez-vous pouvoir m'aider sur la premiere partie du code VBA?
Voici la macro en entier :
Sub Deny3()
'
' Deny3 Macro
' Macro recorded 11/09/2008 by julien
'
'
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
Sheets("Automatic Denial Spreadsheet").Select
Range("B2:B11").Select
Selection.Copy
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
appExcel.Workbooks.Open ("C:\-----------------\Exception Work order template.xls")
appExcel.Visible = True
Windows("Exception Work order template.xls").Activate
Sheets("General").Select
Range("B3:B12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
MonMessage.from = "blabla@bla.com"
MonMessage.cc = "blabla@bla.com"
MonMessage.Subject = "Non bla bla bla"
Corps = "Hi"
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "Voici le fichier convenu."
MonMessage.body = Corps
Set MonOutlook = Nothing
End Sub
Merci par avance pour votre reponse,
Julien