Ecrire des noms de fichiers sur Excel

**Tom dB** · 22/05/2013, 16h12

Bonjour à tous !

Je souhaite vous solliciter pour un petit soucis.

En résumé, j'ai un tableur excel que je remplis par Matlab. Après une multitude de calcul je souhaite avoir un seul résultat R dans cette boucle if :

Code :

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

1
2
3
4
5
6
7
   if K==1
    elseif K==2
    elseif K==3
    elseif K==4
        FFLFacoH=readfis('FFLFacoH');
        R=evalfis([x1,x2],FFLFacoH);
    end

Ce résultat R je le transmet sur mon fichier excel avec cette boucle if :

Code :

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

1
2
3
4
5
6
7
8
9
10
    if R>6
        range61=sprintf('%c%d:%c%d','A'+0,1+n,'A'+0,1+n);
        Excel.Worksheets.Item(3).Range(range61).Value=name;
    elseif 4.11<=R<=6
        range62=sprintf('%c%d:%c%d','A'+1,1+n,'A'+1,1+n);
        Excel.Worksheets.Item(3).Range(range62).Value=name;
    elseif R<4.11
        range63=sprintf('%c%d:%c%d','A'+2,1+n,'A'+2,1+n);
        Excel.Worksheets.Item(3).Range(range63).Value=name;
    end

Ces deux bouts de code se trouve dans cette boucle n :

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
for n=1:numel(list)
    filename=list(n).name;
    fid=fopen(filename,'r');
    data = strrep(fread(fid, [1 inf], '*char'), ',', '.'); 
    fclose(fid);
    T = textscan(data,'%f%f%f%f%f%f%f', 'CollectOutput', 1);
    for i=5:1:7
        Tmp=T{1}(5:end,i);
        [A(n,i) B(n,i)]=max(Tmp);
        y(n,i)=max(max(T{1}(5:end,i))).*0.1;
        P1(n,i)=find(Tmp(B(n,i)+1:end)<y(n,i),1,'first');
        P2(n,i)=find(Tmp(1:B(n,i))<y(n,i),1,'last');
        ENERGIE(n,i)=trapz(Tmp(P2(n,i):P1(n,i)+B(n,i)));
        RMS(n,i-4)=sqrt(mean(T{1}(P2(n,i):P1(n,i)+B(n,i),i-4).^2));
        La(n,i-4)=20*log10(RMS(n,i-4)/10^-6);
        Lv(n,i-4)=20*log10(RMS(n,i-4)/10^-9);
    end
    La(n,4:7)=0;
    Lv(n,4:7)=0;
    EFFORTT(n)=max(T{1}(5:end,4));
    EFFORTT=EFFORTT';
    DONNEE(n,:)=[mean(Lv(n,1:3)),mean(La(n,1:3)),mean(A(n,5:7)),mean(ENERGIE(n,5:7)),EFFORTT(n)];

    [pathstr, name, ext]=fileparts(filename);
    range = sprintf('%c%d','A'+0,4+n);
    range2 = sprintf('%c%d:%c%d','A'+1,5,'A'+5,4+n);
    Excel.Worksheets.Item(1).Range(range).Value=name;
    Excel.Worksheets.Item(1).Range(range2).Value=DONNEE;

    x1=DONNEE(1:end,2);
    x2=DONNEE(1:end,3);
    if K==1
    elseif K==2
    elseif K==3
    elseif K==4
        FFLFacoH=readfis('FFLFacoH');
        R=evalfis([x1,x2],FFLFacoH);
    end
    if R>6
        range61=sprintf('%c%d:%c%d','A'+0,1+n,'A'+0,1+n);
        Excel.Worksheets.Item(3).Range(range61).Value=name;
    elseif 4.11<=R<=6
        range62=sprintf('%c%d:%c%d','A'+1,1+n,'A'+1,1+n);
        Excel.Worksheets.Item(3).Range(range62).Value=name;
    elseif R<4.11
        range63=sprintf('%c%d:%c%d','A'+2,1+n,'A'+2,1+n);
        Excel.Worksheets.Item(3).Range(range63).Value=name;
    end
end

Donc en gros, à chaque itération je calcul un R, et pour chaque R je place le nom du fichier dans la colonne A,B ou C de mon tableur.

Et j'obtiens ceci pour le moment :

Tissus conformes aux critères	Tissus à remesurer ou vérifier manuellement	Tissus non conformes
	                              045639 T01 02 1028710	
	                              783375 1 Bas 01

Mon problème est multiple en fait :

1) Mes 2 noms sont dans la deuxième colonne or j'ai obtenu un R=0.2606 pour le premier et un R=5 pour le deuxième. Je devrais dans ce cas avoir mon premier nom dans la dernière colonne avec R<4.11 !

2) Je souhaiterais aussi éviter d'avoir des espaces entres les noms à écrire sur le tableur mais je n'ai pas trouvé un "range" adéquate ! Auriez-vous des idées ?

**Jerome Briot** · 22/05/2013, 18h48

La syntaxe de la comparaison suivante est fausse :

Code :

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

elseif 4.11<=R<=6

Il faut utiliser :

Code :

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

elseif R>=4.11 && R<=6

Tu peux aussi simplifier les tests en faisant :

Code :

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

1
2
3
4
5
6
7
if R>6
 
elseif R<4.11
 
else
 
end

**Tom dB** · 23/05/2013, 10h00

Alors j'ai essayé tes 2 méthodes.

La première m'affiche ce message d'erreur :

Code :

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

1
2
3
4
??? Operands to the || and && operators must be convertible to logical scalar values.
 
Error in ==> esa at 86
    elseif R>=4.11 && R<=6

Et la deuxième m'affiche le même résultat qu'avant, c'est à dire qu'il place dans la mauvaise case le nom dont R<4.11.

**Jerome Briot** · 23/05/2013, 14h40

Que contient la variable R ?

**Tom dB** · 23/05/2013, 16h01

Code :

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

C'est un vecteur colonne qui se remplit à chaque itération !

**mokochan** · 23/05/2013, 16h09

Bonjour,
c'est donc normal que tu obtiennes une erreur, tu ne peux pas comparer un vecteur colonne (qui contient plusieurs valeurs) avec un nombre!
Il faut que tu fasses une boucle sur chaque élément de R.

**Tom dB** · 23/05/2013, 16h12

Justement, je l'ai intégré dans ma boucle "for".

C'est bien pour ça que je comprend pas pourquoi il m'affiche ce résultat.

**mokochan** · 23/05/2013, 16h43

Justement, je l'ai intégré dans ma boucle "for".

A moins que j'ai mal compris, ta boucle "for" ne tourne pas par rapport à ta variable R...
tu fais un

Code :

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

R=evalfis([x1,x2],FFLFacoH);

Qui te donne un vecteur colonne, puis directement

Code :

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

if R>6

Il faut que tu fasses une seconde boucle "for" sur ta variable R, quelque chose comme

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
R=evalfis([x1,x2],FFLFacoH);
    for j = 1:length(R)
        if R(j)>6
            range61=sprintf('%c%d:%c%d','A'+0,1+n,'A'+0,1+n);
            Excel.Worksheets.Item(3).Range(range61).Value=name;
        elseif 4.11<=R(j)<=6
            range62=sprintf('%c%d:%c%d','A'+1,1+n,'A'+1,1+n);
            Excel.Worksheets.Item(3).Range(range62).Value=name;
        elseif R(j)<4.11
            range63=sprintf('%c%d:%c%d','A'+2,1+n,'A'+2,1+n);
            Excel.Worksheets.Item(3).Range(range63).Value=name;
        end
   end

**Tom dB** · 23/05/2013, 16h57

Ça y est j'ai trouvé en fait. Il fallait simplement utiliser R(n). Je l'avais déjà utilisé mais je n'avais pas eu les bons résultats. Là j'ai eu les bons, aucune idée de la manip que j'ai fait la dernière fois pour ne pas avoir le même !!

Merci quand même

Par contre est ce que quelqu'un aurait une solution (certainement changer mon range) pour mon problème n°2 ??

**Jerome Briot** · 24/05/2013, 13h38

Envoyé par Tom dB

Par contre est ce que quelqu'un aurait une solution (certainement changer mon range) pour mon problème n°2 ??

Commence par prendre l'habitude de ne poser qu'une seule question par discussion. Les serveurs de DVP sont dimensionnés pour supporter le flot de vos nombreuses questions

Qu'appelles-tu "espaces" ?
Il serait judicieux de nous fournir une capture d'écran, ça serait nettement plus parlant

**Tom dB** · 24/05/2013, 13h55

Envoyé par Dut

Commence par prendre l'habitude de ne poser qu'une seule question par discussion. Les serveurs de DVP sont dimensionnés pour supporter le flot de vos nombreuses questions

OK pas de soucis

Je vous ai joins le screen en bas.

Ici j'ai un exemple avec 2 fichiers. Donc j'ai 2 noms qui sont bien placées sauf que je voudrais supprimer les cases vides ! Je n'ai pas vraiment d'idée de ce qu'il faut changer dans mon code pour arriver à ça !

**Jerome Briot** · 24/05/2013, 13h59

Si je comprends bien, tu voudrais que le contenu de la cellule B3 soit plutôt écrit dans la cellule B2, c'est ça ?

**Tom dB** · 24/05/2013, 14h25

Exact !

Et par exemple si j'ai un 3ème fichier, ben il va apparaitre soit en A4,B4 ou C4 ! Or je voudrais qu'il soit dans avec ces 2 premiers fichiers soit en A2, soit en B3 (vu qu'il y aura B2 de remplit) soit en C3 (vu que C2 remplit) !

Et ainsi de suite !

**Jerome Briot** · 24/05/2013, 14h30

Jette un œil à la propriété End de l'objet Range.

**Tom dB** · 24/05/2013, 14h44

Ouais intéressant !
Mais il me faudrait dans ce cas la première cellule vide !

**Jerome Briot** · 24/05/2013, 17h53

Tu peux faire un cas particulier pour la cellule B2 :

Code :

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

1
2
3
4
5
6
7
if isnan(ActiveSheet.Range('B2').Value)
   range = ActiveSheet.Range('B2');   
else
   range = ActiveSheet.Range('B1').End('xlDown').get('Offset', 1, 0);
end
 
% Ecrire dans range

**Tom dB** · 27/05/2013, 10h08

Je reçois un message d'erreur lorsque je rentre ta commande.

Code :

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

1
2
3
4
??? Error: Object returned error code: 0x800A03EC
 
Error in ==> esa at 95
        Excel.Worksheets.Item(3).Range(range62).Value=name;

Que doit faire exactement la commande :

Code :

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

>> range62 = Excel.Worksheets.Item(3).Range('B1').End('xlDown').get('Offset', 1, 0);

???

Si elle ne peut pas se faire pour les 3 colonnes je ne pourrais pas l'utiliser

**Jerome Briot** · 27/05/2013, 13h30

Alors normalement

Code :

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

range = Excel.Worksheets.Item(3).Range('B1').End('xlDown')

doit te renvoyer l'objet Range correspondant à la dernière cellule non vide en partant de B1 dans la colonne B.

Vérifie avec

Code :

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

range.Address

Puis

Code :

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

range.get('Offset', 1, 0);

devrait décaler l'adresse de l'objet Range à la cellule située juste en dessous.

**Tom dB** · 27/05/2013, 18h05

Envoyé par Dut

Alors normalement

Code :

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

range = Excel.Worksheets.Item(3).Range('B1').End('xlDown')

doit te renvoyer l'objet Range correspondant à la dernière cellule non vide en partant de B1 dans la colonne B.

Vérifie avec

Code :

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

range.Address

Puis

Code :

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

range.get('Offset', 1, 0);

devrait décaler l'adresse de l'objet Range à la cellule située juste en dessous.

Avec ta première ligne j'ai la case B3 (je voudrais B2) et quand j'utilise le get après range, j'ai ceci :

Code :

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

1
2
3
4
5
6
 
>> range.get('Offset', 1, 0)
 
ans =
 
	Interface.Microsoft_Excel_11.0_Object_Library.Range

**Jerome Briot** · 27/05/2013, 18h13

Que contient la colonne B ?

Ecrire des noms de fichiers sur Excel [Débutant]

MATLAB

Discussions similaires

Partager

Partager