Discussion :

[Tom dB]

Bonjour !

Je poste ce sujet à la suite de mon précédent.

Je vous remet mon programme :

Code :

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

1
2
3
4
5
6
7
8
9
matrice={};
for n=1:numel(list)
    filename=list(n).name;
    Excel.Workbooks.Open(fullfile(rep,filename));
    Valeur=Excel.Worksheets.Item('Valeurs Moyennes').Range('A4').CurrentRegion.Value;
    Valeur(1,:)=[];
    matrice=[matrice;Valeur];
    Excel.Workbooks.Close;
end

Je voudrais que les fichiers Excel que j'utilise soient ouverts par ordre alphabétique pour que les données que je récupère soient dans le bon ordre !

Merci.

Tom

[Jerome Briot]

Pourrais-tu nous montrer le nom de ces fichiers ?

[Invité]

Bonjour,

En utilisant la fonction sort en amont de la boucle :

Code :

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

1
2
[~, idx] = sort({list.name});
list_s = list(idx);

Mais ça risque effectivement de dépendre de la forme des noms des fichiers.

[Tom dB]

Les noms sont sous cette forme :

Données compilées HT BPI 05.06.2013

Seulement la date va changer.

Il m'affiche ce message d'erreur :

Code :

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

1
2
3
??? [~, idx] = sort({list.name});
      |
Error: Expression or statement is incorrect--possibly unbalanced (, {, or [.

[Invité]

Il faudra alors récupérer les dates, puis les convertir en valeurs numériques pour les comparer :

Code :

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

1
2
dates = regexp({list.name}, '\d{2}.\d{2}.\d{4}', 'match');
[pasBesoin, idx] = sort( datenum([dates{:}], 'dd.mm.yyyy') )

Tu obtiens l'erreur car ta version MATLAB n'est pas assez récente pour supporter cette syntaxe. Elle permet d'éviter d'assigner le résultat à une variable qui ne sera pas utilisée.

[Jerome Briot]

Au passage, tu aurais pu éviter l'utilisation de caractères accentuée et d'espaces dans le nom des fichiers.

[Tom dB]

Au passage, tu aurais pu éviter l'utilisation de caractères accentuée et d'espaces dans le nom des fichiers.

J'ai pas le choix ^^

Par contre j'ai encore un petit message d'erreur :

Code :

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

1
2
??? Error using ==> regexp
Invalid option for regexp: donnée compilées ht bpi 27.05.2013.xls.

[Invité]

Désolé j'ai oublié les accolades. Je les ai rajoutées dans mon message précédent.

[Tom dB]

Ca marche cette fois ci mais pas comme je le voudrai

J'ai comme exemple 4 dates :

05.06
29.05
27.05
23.05

Je voudrais que les données partent du fichier qui date du 23.05 et qu'elles aillent jusqu'au 05.06

Or la elles partent du 05.06 (bon ça pourrait juste être l'ordre à inverser) mais non après j'ai les données du 23.05 puis du 27.05 puis du 29.05.

Comment faire ?

[Invité]

Tu es sûr d'avoir utilisé le dernier code que je t'ai proposé ?

[Tom dB]

Tu es sûr d'avoir utilisé le dernier code que je t'ai proposé ?

Ah oui, j'ai ça maintenant :

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
rep=uigetdir('');
ext='*.xls';
chemin=fullfile(rep,ext);
list=dir(chemin);
Excel = actxserver('Excel.Application');
Excel.Visible = false;
 
dates = regexp({list.name}, '\d{2}.\d{2}.\d{4}', 'match');
[pasBesoin, idx]=sort(datenum([dates{:}],'dd.mm.yyyy'));
matrice={};
for n=1:numel(list)
    filename=list(n).name;
    Excel.Workbooks.Open(fullfile(rep,filename));
    Valeur=Excel.Worksheets.Item('Valeurs Moyennes').Range('A4').CurrentRegion.Value;
    Valeur(1,:)=[];
    matrice=[matrice;Valeur];
    Excel.Workbooks.Close;
end

[Jerome Briot]

Tu devrais pouvoir te passer de la variable Vecteur comme ceci :

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
rep = uigetdir('');
ext = '*.xls';
chemin = fullfile(rep,ext);
list=dir(chemin);
Excel = actxserver('Excel.Application');
Excel.Visible = false;
 
dates = regexp({list.name}, '\d{2}.\d{2}.\d{4}', 'match');
[pasBesoin, idx] = sort(datenum([dates{:}],'dd.mm.yyyy'));
matrice={};
 
a = Excel.ActiveSheet.Range('A5');
 
for n = 1:numel(list)
    filename = list(n).name;
    Excel.Workbooks.Open(fullfile(rep,filename));
 
    b = Excel.ActiveSheet.Range('A5').End('xlToRight').End('xlDown');
 
    matrice = [matrice;Excel.ActiveSheet.Range('A1').get('Range',a,b).Value];
 
    Excel.Workbooks.Close;
end

A tester

Et ne pas oublier de fermer l'application Excel tout à la fin du code :

Code :

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

Excel.Quit;

[Jerome Briot]

Et au passage dans la précédente discussion tu a écris que le nombre de colonnes était fixe entre les différents classeurs Excel.

Tu peux donc remplacer le tableau de cellules par un simple tableau :

Code :

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

matrice = [];

[Tom dB]

Ca marche aussi bien que l'ancien code mais j'ai tjs pas l'ordre que je voudrais

[Jerome Briot]

Ben c'est normal :

Code :

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

1
2
3
4
5
6
7
[pasBesoin, idx] = sort(datenum([dates{:}],'dd.mm.yyyy'));
 
for n = 1:numel(list) 
 
    filename = list(n).name;
 
end

devrait être :

Code :

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

1
2
3
4
5
6
7
[pasBesoin, idx] = sort(datenum([dates{:}],'dd.mm.yyyy'));

for n = 1:numel(idx) 

    filename = list(idx(n)).name;

end

Voici une alternative à la bonne solution de Winjerome :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
d = dir('Données compilées*');
 
D = cell(numel(d),1);
for n = 1:numel(d)
 
   [p,f,e] = fileparts(d(n).name);
   D{n} = f(end-9:end);
 
end
 
dn = datenum(D,'dd.mm.yyyy');
 
[dn,idx] = sort(dn);

J'utilise fileparts car cela permet de gérer les différences de longueur de nom de fichier si l'extension est xls ou xlsx

[Tom dB]

J'avais pas bien compris cette commande.
Idx est directement dans l'ordre que je souhaite en fait ? Le vecteur qu'il me donne définit l'ordre de passage des fichiers c'est ça ?

En tout cas ça marche nickel !

[Jerome Briot]

idx contient les indices des valeurs triées dans le vecteur initial

[Invité]

Je t'avais mis la ligne suivante : list_s = list(idx); qui permettait d'obtenir la liste tirée dans mon premier message, mais ne l'avais pas remise par la suite... j'aurais dû

Voir aussi la remarque du sujet Comment effectuer un tri de valeurs ou de chaînes de caractères ? pour idx.