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
| %let FICHIER = fichiersrsvD; /*Nom du fichier à exporter*/
%let VAR_CLEF = identifiant; /*Nom de la variable clef */
%let sem=29;
%let VAR_CLEF = identifiant; /*Nom de la variable clef */
data parametre;
set parametre;
adresse = '"D:\donnees\2013\\resultats_s&sem._'||&VAR_CLEF||'.xls"'; /*PENSER A MONDIFIER LE CHEMIN D'ACCES*/
run;
data listages;
set &FICHIER;
run;
%macro mexport(var,ctecut_rsv,adresse);
data swork.listage;
set swork.'&identifiant';
run;
PROC EXPORT DATA= swork.listage
OUTFILE= &adresse
DBMS=EXCEL2000 REPLACE;
SHEET = &VAR_CLEF; /*nom de la feuille*/
RUN;
%mend;
data _null_ ;
set swork.parametre ;
call execute("%mexport(&VAR_CLEF ," !! &VAR_CLEF !! "," !! adresse !! ");") ;
run ; |
Partager