Sortir une fonction d'une boucle for

**Nitromard** · 07/07/2011, 11h25

Bonjour à tous,

Je vous présente mon problème.
J'utilise une fonction qui manipule des cellules afin de créer des fichiers excel et les envoyer à une adresse email outlook.
Voici 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
42
43
44
function Result_Send(ISIN,Date,SRRI,Fund_classification,Fund_Name,Date_Comp)
 
Date_str = cellstr(datestr(datenum(Date_Comp,'dd/mm/yyyy')));
Date_vect = datevec(Date_str);
Date_y = num2str(Date_vect(1));
Date_m = num2str(Date_vect(3));
Date_d = num2str(Date_vect(2));
Date_wnbr = num2str(weeknum(Date_str));
 
Vect_Concat = [Fund_Name ISIN Date SRRI Fund_classification];
 
Sel_Uni = unique(Vect_Concat(:,1));
 
for i=1:size(Sel_Uni,1)
 
    Colzo{i} = strcmp(Sel_Uni(i),Vect_Concat(:,1));
    Vect_Uni{i} = Vect_Concat(Colzo{i},:);
    FundName = Vect_Uni{1,i}{1};
    filename = strcat('SRRI_',FundName,'_WEEK',Date_wnbr,'_',Date_y,'_',Date_m,'_',Date_d,'.xlsx');
 
    Folder=strrep(FundName, ' ', '_');
    if exist(Folder,'file')
    else
        mkdir(Folder);
    end
 
    filedir = strcat(Folder,'\',filename);
 
    copyfile('SRRI_Results.xlsx',filedir);
 
    xlswrite(filedir,Vect_Uni{1,i}(:,2),1,'A2');
    xlswrite(filedir,Vect_Uni{1,i}(:,3),1,'B2');
    xlswrite(filedir,Vect_Uni{1,i}(:,4),1,'C2');
    xlswrite(filedir,Vect_Uni{1,i}(:,5),1,'D2');
 
    %FundNames = FundName;
    %FileNames = filedir;
 
    Text_mail = strcat('The calculation of SRRI for the fund ',FundName,' is a success. You will find enclosed the results of the calculation. This is an automated message, please do not respond.');
    Titre = strcat('SRRI results for the fund <<',FundName,'>>');
    sendolmail('bob@gmail.com',Titre,Text_mail,{['C:\Users\Desktop\Matlab Code\Actual\',filedir]})    
    end
 
end

Et voici la fonction sendolmail :

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
function sendolmail(to,subject,body,attachments)
%Sends email using MS Outlook. 
 
h = actxserver('outlook.Application');
mail = h.CreateItem('olMail');
mail.Subject = subject;
mail.To = to;
mail.BodyFormat = 'olFormatHTML';
mail.HTMLBody = body;
 
if nargin == 4
for i = 1:length(attachments)
mail.attachments.Add(attachments{i});
end
end
 
mail.Send;
h.release;

Alors le principe est de prendre d'abord des infos sur une date pour créer les noms des fichiers excel.
Ensuite on stocke dans une variable tous les vecteurs (qui sont des cell) : Vect_Concat.
On regarde tous les noms différents ds la 1ère colonne, ce sont des noms de fonds.
Et en fonction du nombre de fonds on crée le mm nombre de fichier excel et de mail avec les fichiers excel en pièces jointes.

Ce que je voudrais faire c'est sortir la fonction sendolmail de la boucle de ma fonction principale pour n'envoyer qu'un mail avec pour titre SRRI results et avec toutes les pièces jointes dans un seul mail. Mais je ne sais pas cmt mettre en forme les variables qui pourraient stocker les noms des fonds ainsi que les noms des fichiers excel et pour que je puisse les mettre ensuite simplement ds la fonction sendolmail...

Si quelqu'un a l'envie et le temps de jeter un oeil, cela me ferait très plaisir.

Merci d'avance,
Cordialement,
Quentin D.

**Jerome Briot** · 18/07/2011, 10h12

Une solution simple consisterait peut être à ne pas toucher ton code (sauf extraire la fonction SENDOLMAIL) mais à inclure tous les dossiers et fichiers Excel créés dans une archive zip (voir la fonction ZIP ou utiliser une commande externe DOS) et attacher uniquement cette archive à ton message.

Par contre, il se peut que l'archive soit considérée comme potentiellement dangereuse par l'antivirus de la personne qui réceptionnera l'email... à tester.

Sinon quelques améliorations apportées à ton code ci-dessus :

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
function Result_Send(ISIN,Date,SRRI,Fund_classification,Fund_Name,Date_Comp)

Date_str = cellstr(datestr(datenum(Date_Comp,'dd/mm/yyyy')));
Date_vect = datevec(Date_str);
Date_y = num2str(Date_vect(1));
Date_m = num2str(Date_vect(3));
Date_d = num2str(Date_vect(2));
Date_wnbr = num2str(weeknum(Date_str));

Vect_Concat = [Fund_Name ISIN Date SRRI Fund_classification];

Sel_Uni = unique(Vect_Concat(:,1));

for i=1:size(Sel_Uni,1)
    
    Colzo{i} = strcmp(Sel_Uni(i),Vect_Concat(:,1));
    Vect_Uni{i} = Vect_Concat(Colzo{i},:);
    FundName = Vect_Uni{1,i}{1};
    filename = strcat('SRRI_',FundName,'_WEEK',Date_wnbr,'_',Date_y,'_',Date_m,'_',Date_d,'.xlsx');
        
    Folder=strrep(FundName, ' ', '_');
    if exist(Folder,'file')
    else
        mkdir(Folder);
    end
    
    filedir = fullfile(Folder,filename);
    
    copyfile('SRRI_Results.xlsx',filedir);
    
    xlswrite(filedir,Vect_Uni{1,i}(:,2),1,'A2');
    xlswrite(filedir,Vect_Uni{1,i}(:,3),1,'B2');
    xlswrite(filedir,Vect_Uni{1,i}(:,4),1,'C2');
    xlswrite(filedir,Vect_Uni{1,i}(:,5),1,'D2');
    
    %FundNames = FundName;
    %FileNames = filedir;
    
    Text_mail = strcat('The calculation of SRRI for the fund ',FundName,' is a success. You will find enclosed the results of the calculation. This is an automated message, please do not respond.');
    Titre = strcat('SRRI results for the fund <<',FundName,'>>');
    sendolmail('bob@gmail.com',Titre,Text_mail,{fullfile('C:\Users\Desktop\Matlab Code\Actual\',filedir)})    
    end

end

Et je ne comprends pas très bien le bout de code suivant :

Code :

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

1
2
3
4
5
    Folder=strrep(FundName, ' ', '_');
    if exist(Folder,'file')
    else
        mkdir(Folder);
    end

Il serait plus élégant de faire :

Code :

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

1
2
3
4
    Folder=strrep(FundName, ' ', '_');
    if exist(Folder,'file')~=2
        mkdir(Folder);
    end

De plus, tu testes l'existence d'un fichier et tu crées un dossier?
Ne serait-ce pas plutôt ceci ?

Code :

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

1
2
3
4
    Folder=strrep(FundName, ' ', '_');
    if exist(Folder,'dir')~=7
        mkdir(Folder);
    end

**Nitromard** · 18/07/2011, 13h49

Bonjour,

Ok, merci pour les "améliorations". Je vais jeter un oeil à la fonction ZIP.

A bientot.

**Nitromard** · 18/07/2011, 16h21

Merci pour votre aide, cela fonctionne bien pour les fichiers zip.

Par contre j'ai un autre problème, j'aimerais faire la même chose avec la variable Text_mail, c'est-à-dire pour chaque entrée ds la boucle faire un nouveau texte (qui change seulement en fonction de FundName), stocker tout cela ds une variable et pouvoir la mettre directement ds la fonction sendolmail.

Cmt pourrais-je faire?

Et encore autre chose, j'ai très souvent une fenêtre qui apparait et qui me demande de sauvegarder un fichier excel... et ensuite j'ai cette erreur :

Nom : Untitled.png
Affichages : 83
Taille : 85,5 Ko

Nom : Untitled.png
Affichages : 83
Taille : 85,5 Ko

??? Error using ==> xlswrite at 211
Error: The server threw an exception.

Error in ==> Result_Send at 31
    xlswrite(filedir,Vect_Uni{1,i}(:,2),1,'A2');

(Parfois B2, C2 ou D2...)
Je ne comprends vraiment pas pourquoi parfois je l'ai et parfois non...

Merci d'avance pour votre aide.

**Nitromard** · 19/07/2011, 09h30

Bon je pense avoir trouvé la source du problème...
En fait ds mon code j'avais changé les xlsx par des xls (exigence oblige) mais du coup j'ai le problème annoncé précédemment, par contre avec les xlsx j'ai pas ce problème...
Sauriez-vous comment contourner cela et garder un fichier xls au final?

Sortir une fonction d'une boucle for

MATLAB

Discussions similaires

Partager

Partager