COPIER COLLER D'UNE FEUILLEA DE FICHIERA VERS FEUILLEB DE FICHIERB EXCEL

Signaler
Messages postés
2
Date d'inscription
dimanche 14 septembre 2008
Statut
Membre
Dernière intervention
14 septembre 2008
-
Messages postés
2
Date d'inscription
dimanche 14 septembre 2008
Statut
Membre
Dernière intervention
14 septembre 2008
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/7256-copier-coller-d-une-feuillea-de-fichiera-vers-feuilleb-de-fichierb-excel

Messages postés
2
Date d'inscription
dimanche 14 septembre 2008
Statut
Membre
Dernière intervention
14 septembre 2008

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

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