Changer du VBA en VBS

Bonsoir !


J'arrive un peu après la bataille, pour glisser un complément à ton batch :

set FileDate=%date:~11,4%%date:~8,2%%date:~5,2%

vswildcat wrote:

C'est un début :-)

Pour ODBC: à priori pas besoin, j'utilise le scheduler (programmateur
de tâches 'intégré') de l'Application pour déclencher et créer mon
rapport (en .imr).
Le scheduler va jusqu'à l'enregistrement en Excel (en .xls)

Pour EXCEL :
Dans l'idéal, j'aimerai carrément me passer d'Excel...

J'aimerai pouvoir mettre le script directement dans l'Application avec
laquelle je genère mes rapports.

On m'a donner un exemple de fichier en .bat, avec ces lignes de codes
:

-------------------------------------------------------

set FileDate=%date:~11,4%%date:~8,2%%date:~5,2%
rename c:temptotto.xls totto_%FileDate%.xls

-------------------------------------------------------

Autant le deuxième ligne ça va, autant la première... Si on pouvait la
décoder pour moi... J'aimerai comprendre, afin de pouvoir réutiliser
ensuite.

Après, il ne me restera plus qu'à trouver comment programmer l'envoi
par mail :
J'ai trouvé ça (merci scraper) :

----------------------------------------------------------
Option Explicit

Dim objMail

Set objMail = CreateObject("CDO.Message")

objMail.From = "scraper@pasdespam.fr"
objMail.To = "scraper@pasdespam.fr"
objMail.Subject = "test"
objMail.Textbody = "coucou"
objMail.AddAttachment "Chemin_complet_de_ta_PJ"
objMail.Send

Set objMail=Nothing
wscript.quit

----------------------------------------------------------

Mais :

- Comme je ne comprend pas la moitié du code, je ne sais pas comment
"lier" ces deux scripts

- J'ai un souci au niveau du nom de la pièce jointe puisqu'il va
changer tous les jours (je suppose qu'il doit être possible d'utiliser
totto_%FileDate%.xls qui a été créé auparavant...)

- Ensuite, il ne me restera plus qu'à trouver où enregistrer ce .bat
pour qu'il fonctionne (au fait, .bat, c'est quoi ?)

Voilà, j'espère que ça peut aider... à m'aider :-)

En tout cas merci pour ces quelques exemple de lignes de code, elles
pourraient effectivement m'être utiles.

Vswildcat

J'espère que mon message est clair, et qu'une (ou plusieures) âme
charitable pourra m'aider.

Vswildcat

Charitable je ne sais pas mais c'est un juste reout des choses que
j'ai pu apprendre ici et ailleurs au fil du temps. Ce sont des bouts
de programme qui pourront t'aider

Stephane

Pour ODBC:
Set odbc = CreateObject("ADODB.Connection")
odbc.open "UID=toto;PWD=toto;DSNÚtabase;"
Set resultat = odbc.execute("SELECT * ...")

'EXCEL
Set oXL = WScript.CreateObject("EXCEL.application")
oXL.Workbooks.Open(FIC_ORIGINE)
'oXL.Visible = True
'oXL.screenupdating=True
oXL.Visible = False
oXL.screenupdating = False
oXL.Sheets(1).Select
oXL.Cells(NumL,NumC).Value = FormatDateTime(Date, 1)
oXL.cells(1,1).select
oXL.ActiveWorkbook.SaveAs nomFic
oXL.ActiveWorkbook.close

'Fichiers
For each oFile In oSubFolder.Files
If InStr(UCase(oFile.Name), "RAL_") > 0 Then
nomFic = oFile.path
oFile.delete

En vbscript, le cumul des deux, à davoir renommer le rapport généré et
l'envoyer par mail:
Option Explicit
' Ne pas laisser la ligne suivante en commentaire une fois la mise au point
terminée
' On Error Resume Next
Dim Rapports_Path, Rapport_Name, Rapport_New_Name
Dim fs, dtT, dtToday
Rapports_Path = "D:test"
Rapport_Name = "toto.xls"

dtT = Date()
dtToday = Year(dtT) & Right("0" & Month(dtT), 2) & Right("0" & Day(dtT), 2)
Rapport_New_Name = Rapports_Path & dtToday & "_toto.xls"
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FileExists(Rapport_New_Name) Then fs.DeleteFile Rapport_New_Name, True
fs.MoveFile Rapports_Path & Rapport_Name, Rapport_New_Name
Set fs = Nothing

If Err.Number = 0 Then
Dim objMail
Set objMail = CreateObject("CDO.Message")
objMail.From = "scraper@pasdespam.fr"
objMail.To = "scraper@pasdespam.fr"
objMail.Subject = "test"
objMail.Textbody = "coucou"
objMail.AddAttachment Rapport_New_Name
objMail.Send
Set objMail=Nothing
Else
WScript.Echo "Description: " & Err.Description & _
" Source: " & Err.Source & _
" N°: " & Err.Number
End If
WScript.Quit(ErrNumber)

A noter que tel quel, le code d'envoi de mail nécessite que le serveur smtp
de IIS soit installé et configuré sur la machine d'où s'exécute le script.
Il est possible en modifiant légèrement le code de faire en sorte qu'il
utilise (comme Blat) un serveur smtp "externe" (chercher dans ce newsgroup
un post récent de Gilles Laurent ;-)

Bonsoir !


J'arrive un peu après la bataille, pour glisser un complément à ton batch :

set FileDate=%date:~11,4%%date:~8,2%%date:~5,2%

moi quand je fais cà j'ai '/' dans filename et donner un nom de fichier
avec '/' j'ai un doute, non ?
Ou alors j'ai encore rien compris :-))

@+ Stephane -

Outlook d'office peut-être pas mais c'est lié à outlook
express.

Re !

D'ailleurs, j'utilise CDO, sur des 2003-servers qui n'ont pas eu Outlook
installé, et Outlook-Express jamais configuré, ni utilisé (au passage,
IIS non plus).

A noter que CDO n'arrête pas d'évoluer, et je n'ai pas l'historique des
changements, mais je crois me souvenir que c'est intégré à Windows
depuis 2000, alors que, avant, c'était lié à Outlook/Office.

Salut !


ça dépend de la version de Windows, et de certaines
configurations de locale.

Tente avec ça :
%date:~6,4%%date:~3,2%%date:~0,2%



Pour info :
echo %date:~6,4%

c'est équivalent à
echo %date% (+ à partir du 6e caractère, et pour les 4
caractères qui suivent)


Donc, tu peux essayer (en invite de commande) :
echo %date%
echo %date:~6,4%
echo %date:~6,4%%date:~3,2%
echo %date:~6,4%%date:~3,2%%date:~0,2%

Ce qui te permettra de comprendre le fonctionnement (c'est
pareil avec SET qu'avec ECHO)


@+

Michel Claveau

Re !

Exact, les "offset" qui étaient dans ton batch originel
n'étaient pas corrects (quoique, selon le windows ou la
config...)

Je te conseille d'appliquer les chiffres de mon message de
11h.40

Et, pour une meilleure trace, tu peux utiliser ECHO.
Par exemple (pas testé) :
set FileDate=%date:~6,4%%date:~3,2%%date:~0,2%
echo totto_%FileDate%.xls
echo rename c:temptotto.xls totto_%FileDate%.xls
echo mailCDO.exe destinataire expediteur "sujet du
message" "texte du message" totto_%FileDate%.xls


Ensuite, il faut enlever les ECHO lorsque le batch semble
correct.


Bon @ppétit !

Michel Claveau

Re !

D'ailleurs, j'utilise CDO, sur des 2003-servers qui n'ont pas eu
Outlook installé, et Outlook-Express jamais configuré, ni utilisé (au
passage, IIS non plus).

A noter que CDO n'arrête pas d'évoluer, et je n'ai pas l'historique
des changements, mais je crois me souvenir que c'est intégré à
Windows depuis 2000, alors que, avant, c'était lié à Outlook/Office.

Ecoute en tout cas le fait de créer un compte dans express, de
préciser juste le serveur SMTP, ca fonctionne sur plusieurs postes en
XP et sur un serveur en 2000 à jour. J'ai pas de 2003 ni de Vista.
Par contre ca ne fonctionne pas si express n'est pas renseigné. A
l'époque mon express était renseigné pour le compte Oléane par contre
pas les autres postes et ca marchait, j'ai mis un moment avant de me
rendre compte de ca.
Effectivement l'historique doit être un sacré bordel...

Stephane