J'espère que mon message est clair, et qu'une (ou plusieures) âme charitable
pourra m'aider.
Vswildcat
J'espère que mon message est clair, et qu'une (ou plusieures) âme charitable
pourra m'aider.
Vswildcat
J'espère que mon message est clair, et qu'une (ou plusieures) âme charitable
pourra m'aider.
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
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
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
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.
- Ensuite, il ne me restera plus qu'à trouver où enregistrer ce .bat pour
qu'il fonctionne (au fait, .bat, c'est quoi ?)
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.
- Ensuite, il ne me restera plus qu'à trouver où enregistrer ce .bat pour
qu'il fonctionne (au fait, .bat, c'est quoi ?)
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.
- Ensuite, il ne me restera plus qu'à trouver où enregistrer ce .bat pour
qu'il fonctionne (au fait, .bat, c'est quoi ?)
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 = ""
objMail.To = ""
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.
VswildcatJ'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
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
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 = ""
objMail.To = ""
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.
VswildcatJ'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
J'oubliai pour la messagerie va voir Blat il fait ca très bien.
arg = fPARAM&" -to -server smtp.toto.fr -f_
-subject ""coucou "" -attach contenu.xls"
Set shell = CreateObject("WScript.Shell")
retour = shell.Run("Blat "&arg,8,True) 'Attend la fin de l'envoie du
'mail, Affiche la fenêtre dans son état actuel. La fenêtre active
reste 'active.
sinon avec Outlook c'est du genre:
Set oEmail = CreateObject("CDO.Message") 'Utilise oEmail.From > ""
oEmail.Subject = objet
oEmail.Textbody = "blabla"
oEmail.Subject = objet
'oEmail.AddAttachment pj
oEmail.To = sMAILEXP & ";" & adrEmail
oEmail.Send
Voilà t'as plus qu'à bosser.
J'oubliai pour la messagerie va voir Blat il fait ca très bien.
arg = fPARAM&" -to toto@toto.fr -server smtp.toto.fr -f_
expediteur@toto.fr -subject ""coucou "" -attach contenu.xls"
Set shell = CreateObject("WScript.Shell")
retour = shell.Run("Blat "&arg,8,True) 'Attend la fin de l'envoie du
'mail, Affiche la fenêtre dans son état actuel. La fenêtre active
reste 'active.
sinon avec Outlook c'est du genre:
Set oEmail = CreateObject("CDO.Message") 'Utilise oEmail.From > "totio@toto.fr"
oEmail.Subject = objet
oEmail.Textbody = "blabla"
oEmail.Subject = objet
'oEmail.AddAttachment pj
oEmail.To = sMAILEXP & ";" & adrEmail
oEmail.Send
Voilà t'as plus qu'à bosser.
J'oubliai pour la messagerie va voir Blat il fait ca très bien.
arg = fPARAM&" -to -server smtp.toto.fr -f_
-subject ""coucou "" -attach contenu.xls"
Set shell = CreateObject("WScript.Shell")
retour = shell.Run("Blat "&arg,8,True) 'Attend la fin de l'envoie du
'mail, Affiche la fenêtre dans son état actuel. La fenêtre active
reste 'active.
sinon avec Outlook c'est du genre:
Set oEmail = CreateObject("CDO.Message") 'Utilise oEmail.From > ""
oEmail.Subject = objet
oEmail.Textbody = "blabla"
oEmail.Subject = objet
'oEmail.AddAttachment pj
oEmail.To = sMAILEXP & ";" & adrEmail
oEmail.Send
Voilà t'as plus qu'à bosser.
Précisions:
L'objet CDO.Message, tel qu'utilisé dans le code, n'a rien à voir avec
Outlook, pour voir des exemples d'usage:
http://www.motobit.com/tips/detpg_send-email-from-asp/
Cette ligne est une erreur:
Set oEmail = CreateObject("CDO.Message") 'Utilise oEmail.From > Il s'agit en fait de deux lignes:
Set oEmail = CreateObject("CDO.Message")
oEmail.From = ""
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.
Précisions:
L'objet CDO.Message, tel qu'utilisé dans le code, n'a rien à voir avec
Outlook, pour voir des exemples d'usage:
http://www.motobit.com/tips/detpg_send-email-from-asp/
Cette ligne est une erreur:
Set oEmail = CreateObject("CDO.Message") 'Utilise oEmail.From > Il s'agit en fait de deux lignes:
Set oEmail = CreateObject("CDO.Message")
oEmail.From = "totio@toto.fr"
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.
Précisions:
L'objet CDO.Message, tel qu'utilisé dans le code, n'a rien à voir avec
Outlook, pour voir des exemples d'usage:
http://www.motobit.com/tips/detpg_send-email-from-asp/
Cette ligne est une erreur:
Set oEmail = CreateObject("CDO.Message") 'Utilise oEmail.From > Il s'agit en fait de deux lignes:
Set oEmail = CreateObject("CDO.Message")
oEmail.From = ""
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.