Discussion :

[Gile67]

Bonjour,

je voudrais écrire des valeurs dans un fichier excel, mais dans la dernière ligne non vide.

Pour cela j'ai créer un 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
filename = 'fichier.xlsx';
A = {1 2 3 4 5 6 7};
 
sheet = 1;
line = 1;
cellule=[char('A'),num2str(line)];
 
valeur = xlsread(filename, sheet,cellule)
 
 
while not(valeur == [])  % ou ~isempty(cellule) 
    line = line + 1;
    cellule=[char('A'),num2str(line)];
    valeur = xlsread(filename, sheet,cellule)
 
end
 
xlswrite(filename,A,sheet,cellule);

j'ai essayé de faire un test avec isempty sur la cellule voir si elle est vide, mais cela ne fonctionne pas ...
j'ai donc essayé en testant la valeur contenu dans la cellule qui est égale à [] mais pas mieux ...

Avez-vous une idée s'il vous plait ?
Car j'ai lu le cours qui est sur ce site pour traiter les fichiers excel avec matlab, mais ma version ne reconnait pas les fonctions utilisées, c'est pour ca que j'ai utilisé les fonctions avec xls.

Merci d'avance pour votre aide

[Jerome Briot]

Voici deux solutions en supposant que la cellule A1 n'est pas vide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
k = 0;
while(1)
    k = k+1;
    X = xlsread('fichier.xlsx', 1, sprintf('A%d', k));    
    if isempty(X) || k>500 %Valeur arbitraire pour eviter la boucle infinie.
        break
    end
end
 
if k<=500
    firstEmptyCellAddress = sprintf('A%d', k)
else
    firstEmptyCellAddress = NaN
end

Ou mieux :

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
Excel = actxserver('Excel.Application');
 
Excel.Visible = false;
 
xlspath = ...;
xlsfile = 'fichier.xlsx';
 
Workbook = Excel.Workbooks.Open(fullfile(xlspath,xlsfile));
 
ActiveSheet = Workbook.Worksheets.Item(1);
 
range = ActiveSheet.Range('A1').End('xlDown');
range = range.get('Cells', 2, 1);
addr = range.Address;
 
firstEmptyCellAddress = strrep(range.Address, '$', '')
 
Workbook.Close;
 
Excel.Quit;
 
delete(Excel)
 
clear Excel

Dans le dernier code, il faut impérativement renseigner la variable xlspath avec le chemin du dossier qui contient le fichier xlsx

[Gile67]

Ca marche ! Merci