Probleme de copier(excel) et coller cellules dans mailto

Signaler
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
-
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
-
 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

'##########################################################
' # Ici j'aimerai faire 
'
'copier=objExcel.Range("A1:G24").Select
'
'Dim Wsh
'Set Wsh=WScript.CreateObject("WScript.Shell")

'Wsh.SendKeys "^(c)"
'WScript.Sleep(100)
'
'Je n"arrive pas à trouver la synthaxe en Wsh
'
'Set objArgs=WScript.Arguments
'For I=0 to objArgs.Count - 1
'   j=objArgs(I) & vbCrLf& j
'Next
'MsgBox j

objExcel.Range("A1").Select

objExcel.ActiveWorkbook.SaveAs ExcelFile
objExcel.ActiveWorkbook.Saved=True
'objExcel.Application.Visible=True
'objExcel.Application.Visible=False
'objExcel.ActiveWorkbook.Close

   EnvoiMail ExcelFile,j,wsh
   objExcel.ActiveWorkbook.Close
'......

--------------------------------------------------------------------
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)
 
Wsh.Run "mailto:" & Dest1 & Dest2 & "?subject=" & Objet & "&body=" & Msg '& vbCrLf & Fichier
'.....
End Sub

2 réponses

Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
Salut,


Je ne sais pas si j'ai tout bien compris mais vas voir ce Topic peu etre pourra t il t'aider.
En esperant que j'ai bien compris.






@+,   Ju£i?n
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
26
 Bonjour,

Merci Julien
Je regarde les liens proposés.
@+.

jean-marc