m.brahim

Bonjour,

Je partage cette solution :

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57

/*Mise à jour d'un fichier Excel zippé*/



%macro package(name,rep);


/*Extraction de données */

%sysexec "C:\Program Files (x86)\WinRAR\WinRAR.exe" e "&rep.\test.zip" "&rep." -r;

 data _null_;
 x=sleep(5);
 run;


/*Table mise à jour*/

data class;
set sashelp.class;
if _n_ in (1,2,3);
run;
 

proc export data =class
 OUTFILE= "&rep.\&name..xls"
 DBMS=EXCEL REPLACE;
 SHEET="test";
 run;


/*Mise à jour du package*/

filename &name "&rep.\&name..xls";
ods package(newzip) open nopf;
ods package(newzip) add file=&name path="Excel/";
ods package(newzip) publish archive 
  properties(
   archive_name="test.zip" 
   archive_path="&rep."
  );
ods package(newzip) 

close;

option noxwait xsync;


%sysexec DEL "&rep.\&name..xls" ;
 
FILENAME &name. CLEAR ;

%mend;

%package(test,c:\sas\dossier);

Cordialement