Probleme de copier(excel) et coller cellules dans mailto
cs_JMO
Messages postés1854Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention24 juin 2018
-
29 août 2006 à 18:50
cs_JMO
Messages postés1854Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention24 juin 2018
-
30 août 2006 à 10:54
Bonsoir,
Je relance deux topics dont je n'ai obtenu, hélas, aucune proposition.
En vbs (ou même en VB6), ést-possible de copier certaines cellules d'un fichier Excel,
puis, de les coller dans le corps d'un mail ???
Dans cette partie du script ci-dessous, je reste bloqué après le
"copier=objExcel.Range("A1:G24").Select".
Après, je ne sais plus quoi en faire de mon copier.
J'arrive seulement à le copier dans mon fichier excel, ce qui n'est pas ma raison.
Donc, je suis intéressé à toute(s) suggestion(s).
(s) en référence aux 18/06 et 02/07 !!!!!
jean-marc
============================
Dim objExcel, objClasseur
Set objExcel=CreateObject("Excel.Application")
Set objClasseur=objExcel.WorkBooks.Open(ExcelFile)
objExcel.DisplayAlerts=False 'enlève l'alerte
objExcel.ActiveWindow.DisplayGridlines = False
objExcel.Application.Visible=True
Cellule 1,3,"METEO ELVIA DU " & Date,True,False,14
Color 5,3,5,5,xlMedium,BrigthGreen
--------------------------------------------------------------------
Sub EnvoiMail (ExcelFile,j,wsh)
Msg="Bonjour," & vbCrLf & vbCrLf&_
"Ci-joint, en fichier, le compte-rendu des contrôles ""Météo"""&vbCrLf&_
"effectués le "&FormatDateTime(Now, vbLongDate)&"."&vbCrLf&vbCrLf&_
"Cordialement,"
Msg=Escape(Msg)