Discussion :

[nbl.83]

Bonjour,

Je souhaite exporter 6 tables dont 2 tables dans un même fichier excel (2 classeurs différents).

Voici mon code.Je ne sais pas comment le modifier afin que tab5 et tab6 soient dans le même fichier Excel.

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
%let repertoire=//organisation/fichiers_tables;
 
%Macro export(chemin=,lib=,tab=);
Filename recla "&repertoire./&tab..xls";
PROC EXPORT DATA =&lib..&tab.
OUTFILE = &chemin.
DBMS = EXCEL REPLACE ;
SHEET="&tab.";
RUN;
%Mend;
 
%macro exporter_recl;
 
%if %sysfunc(fileexist(&repertoire)) eq 0 %then %do;
	%put le chemin &repertoire n existe pas ou n est pas accessible par l utilisateur &SYSUSERID;
%end;
%else %do;
	%put le chemin &repertoire OK;
	%
	%export(chemin=recla,lib=work,tab=tab1);
	%export(chemin=recla,lib=work,tab=tab2);
	%export(chemin=recla,lib=work,tab=tab3);
	%export(chemin=recla,lib=work,tab=tab4);
	%export(chemin=recla,lib=work,tab=tab5);
      %export(chemin=recla,lib=work,tab=tab6);
 
%end;
 
%mend;
%exporter_recl;

Aurez-vous des suggestions.

[Elcocco]

Bonjour,

Voici une option en déclarant le nom de ton chemin et du fichier directement lors de ton appel de la macro

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
 
 
%Macro export(chemin=,lib=,tab=);
Filename recla "&repertoire./&tab..xls";
PROC EXPORT DATA =&lib..&tab.
OUTFILE = &chemin.
DBMS = EXCEL ;
SHEET="&tab.";
RUN;
%Mend;
 
%macro exporter_recl;
 
%IF %sysfunc(fileexist(&repertoire)) eq 0 %then %do;
	%put le chemin &repertoire n existe pas ou n est pas accessible par l utilisateur &SYSUSERID;
%end;
%else %do;
	%put le chemin &repertoire OK;
	%
	%export(chemin='//organisation/fichiers_tables/tab1.xls',lib=work,tab=tab1);
	%export(chemin='//organisation/fichiers_tables/tab2.xls',lib=work,tab=tab2);
	%export(chemin='//organisation/fichiers_tables/tab3.xls',lib=work,tab=tab3);
	%export(chemin='//organisation/fichiers_tables/tab4.xls',lib=work,tab=tab4);
	%export(chemin='//organisation/fichiers_tables/tab5.xls',lib=work,tab=tab5);
      %export(chemin='//organisation/fichiers_tables/tab5.xls',lib=work,tab=tab6);
 
%end;
 
%mend;
%exporter_recl;

[nbl.83]

merci!

Je vais tester le code

[nbl.83]

Bonjour,
Déclarer le nom du chemin et du fichier directement lors de l' appel de la macro ne résoud pas le pb

[Elcocco]

Bonjour,

Voici une autre version de la macro , en espérant que cela fonctionnerra de ton côté.

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
 
%Macro export(chemin=,lib=,tab=);
PROC EXPORT DATA =&lib..&tab.
OUTFILE = &chemin.
DBMS = excelcs ;
SHEET="&tab.";
RUN;
%Mend;
 
 
%macro exporter_recl;
 
%IF %sysfunc(fileexist(&repertoire)) eq 0 %then %do;
	%put le chemin &repertoire n existe pas ou n est pas accessible par l utilisateur &SYSUSERID;
%end;
%else %do;
	%put le chemin &repertoire OK;
	%
	%export(chemin='//organisation/fichiers_tables/tab1.xls',lib=work,tab=tab1);
	%export(chemin='//organisation/fichiers_tables/tab2.xls',lib=work,tab=tab2);
	%export(chemin='//organisation/fichiers_tables/tab3.xls',lib=work,tab=tab3);
	%export(chemin='//organisation/fichiers_tables/tab4.xls',lib=work,tab=tab4);
	%export(chemin='//organisation/fichiers_tables/tab5.xls',lib=work,tab=tab5);
      %export(chemin='//organisation/fichiers_tables/tab5.xls',lib=work,tab=tab6);
 
%end;
 
%mend;
%exporter_recl;

je viens de la retester et j'ai bien 5 fichier et dans le dernier 2 onglets.

[MEGAMIND2]

Bonjour,
Le plus simple serait d'empiler les deux tables avant d'exporter je pense!

[bahraoui]

Bonjour,

Voici une autre version de la macro , en espérant que cela fonctionnerra de ton côté.

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
 
%Macro export(chemin=,lib=,tab=);
PROC EXPORT DATA =&lib..&tab.
OUTFILE = &chemin.
DBMS = excelcs ;
SHEET="&tab.";
RUN;
%Mend;
 
 
%macro exporter_recl;
 
%IF %sysfunc(fileexist(&repertoire)) eq 0 %then %do;
	%put le chemin &repertoire n existe pas ou n est pas accessible par l utilisateur &SYSUSERID;
%end;
%else %do;
	%put le chemin &repertoire OK;
	%
	%export(chemin='//organisation/fichiers_tables/tab1.xls',lib=work,tab=tab1);
	%export(chemin='//organisation/fichiers_tables/tab2.xls',lib=work,tab=tab2);
	%export(chemin='//organisation/fichiers_tables/tab3.xls',lib=work,tab=tab3);
	%export(chemin='//organisation/fichiers_tables/tab4.xls',lib=work,tab=tab4);
	%export(chemin='//organisation/fichiers_tables/tab5.xls',lib=work,tab=tab5);
      %export(chemin='//organisation/fichiers_tables/tab5.xls',lib=work,tab=tab6);
 
%end;
 
%mend;
%exporter_recl;

je viens de la retester et j'ai bien 5 fichier et dans le dernier 2 onglets.

Tu es sur que ce code marche?
La macro %exporter_recl, s'exécute en premier et vérifie l'existence de &repertoire, elle est définie ou cette macro variable?
Le test sur le répertoire ne sert à rien

[Elcocco]

OOps pardon j'ai oublié de recopier la première ligne du code

Code :

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

%let repertoire=//organisation/fichiers_tables;

[bahraoui]

Merci, je comprends mieux.
nbl.83 tu peux poster la log sas?