Discussion :

[Phenomenium]

Est ce que quelqun peu m'expliquer ce code ? A priori c'est pour recuperer la date du jour et la placer en variable. Est ce que si je met le code tel quel ca va fonctionner ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
* setdate.bat:   
command /e:2000 /c for %%i in (1 2) do prompt set _d=$d$_ | find "$" /v >{t}.bat  
for %%c in (call del) do %%c {t}.bat

merci

[Phenomenium]

Bon c'est bon ca fonctionne, mais j'ai une autre question.
Comment je peu faire pour utiliser cette variable date pour renommer un fichier excel avec son contenu !?

[Laurent Dardenne]

Salut,
si ta variable se nomme Date :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Ren Old.Xls  New%Date%.xls
rem ou
Ren Old.Xls  %Date%.xls

[Phenomenium]

j'ai fai ce que tu ma di mais voila ce qu'il me met :

la synatxe de la commande est incorrecte

voila mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
@ echo off

@ echo CHARGEMENT

PATH=%PATH%;C:\Program Files\Microsoft Office\Office10

set FichierOrigine=MAI2004.xls 
set FichierExcel=XXX.xls 
set FichierExcelOK=XXXOK.xls
set date=command /e:2000 /c for %%i in (1 2) do prompt set _d=$d$_ | find "$" /v >{t}.bat  
for %%c in (call del) do %%c {t}.bat

@ echo DATE
   
echo %date%

@ echo RENOMMAGE FICHIER D'ORIGINE A MODIFIE

ren %FichierOrigine% %FichierExcel%

@ echo OUVERTURE EXCEL

start Excel.exe

:START

if EXIST K:\cs\artech\XXXOK.xls GOTO RENAME

goto START

:RENAME

@ echo RENOMMAGE FICHIER D'ORIGINE MODIFIE

ren XXXOK.xls %Date%.xls

@ echo SUPPRESSION FICHIER TEMPORAIRE

del K:\cs\artech\XXX.xls 

PAUSE

La je vois pas du tout ou est le bug !?

[Laurent Dardenne]

j'ai fai ce que tu ma di

A peu prés

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
set date=command /e:2000 /c for %%i in (1 2) do prompt set _d=$d$_ | find "$" /v >{t}.bat  
for %%c in (call del) do %%c {t}.bat

La syntaxe de base est :
Set variable= chaîne de caractére
Dans ton cas la syntaxe est erronée car la chaîne de caractére contient le pipe, enfin je le suppose. Avec cette syntaxe il n'y a aucune exécution du programme command, au mieux la variable %Date% contiendra "command /e:2000 /c for %%i in (1 2) do prompt set ...." et pas le résultat du programme que tu souhaites éxécuter.
On utilise les commandes du batch, pas celles d'un L4G.

Pour récupérer le résultat d'une commande et renseigner une variable d'environnement sous NT et > :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 rem recupére la date. Le paramètre /T renvoie une ligne contenant 2 "mot"
 rem  le premier = le nom du jour 
 rem le deuxiéme = la date 
 rem on place donc le 2 ieme dans la variable
for  /f "tokens=1-2 " %%A in ('Date /T') do set Date=%%B

Pour W98, c'est un plus délicat...

La je vois pas du tout ou est le bug !?

@echo on et pause peuvent être utile pour débugger

[Phenomenium]

C'est bon j'ai reussi merci !
Je vous met la totalité de mon code pour montrer le travail finit, merci !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
@ echo off

@ echo CHARGEMENT

REM Procédure de modification du PATH pour l'execution d'excel.
PATH=%PATH%;C:\Program Files\Microsoft Office\Office10 


REM Procédure de démarrage d'Excel.
@ echo OUVERTURE EXCEL

start Excel.exe




@ echo ATTENTE DEMARRAGE MACRO EXCEL

REM Procédure d'attente de la création du fichier YVSHIE00 corrigé après modification dans excel.
:START

if EXIST K:\cs\artech\STAT.xls GOTO RENAME

goto START




REM Procédure de renommage du fichier d'origine "YVSHIE00" avec incorporation de la date.
:RENAME

ren YVSHIE00.xls YVSHIE00_%Date:~-10,-8%-%Date:~-7,-5%-%Date:~-4%.xls

@ echo RENOMMAGE FICHIER YVSHIE00 EFFECTUE

[Laurent Dardenne]

Salut,
je te propose l'ajout de qq lignes
Le Wait évite la boucle d'attente et le batch continue une fois l'exécution d'Excel terminé.
Et le test de fin permet d'être averti en cas de PB, ceinture et bretelle !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
@ echo off

@ echo CHARGEMENT

REM Procédure de modification du PATH pour l'execution d'excel.
PATH=%PATH%;C:\Program Files\Microsoft Office\Office10 


REM Procédure de démarrage d'Excel.
@ echo OUVERTURE EXCEL

 rem WAIT        Démarre l'application et attend qu'elle se termine
Start /WAIT Excel.exe



@ echo ATTENTE DEMARRAGE MACRO EXCEL

REM Procédure d'attente de la création du fichier YVSHIE00 corrigé après modification dans excel.
if EXIST K:\cs\artech\STAT.xls GOTO RENAME
Goto Erreur


REM Procédure de renommage du fichier d'origine "YVSHIE00" avec incorporation de la date.
:RENAME

ren YVSHIE00.xls YVSHIE00_%Date:~-10,-8%-%Date:~-7,-5%-%Date:~-4%.xls

@ echo RENOMMAGE FICHIER YVSHIE00 EFFECTUE
goto end

:Erreur
 rem peu probable mais possible
Echo le fichier n'existe pas ???
Pause

:End