Insérer une nouvelle colonne dans un fichier Excel

**TopCao** · 12/04/2010, 12h05

Bonjour,

Une petite question dont je n'ai pas trouvé la réponse dans le forum et la doc.
Est il possible d'insérer une nouvelle colonne dans un fichier Excel via MatLab ?

Merci pour votre aide

**Jerome Briot** · 12/04/2010, 13h47

Je ne vois que 2 solutions :

utiliser ActiveX et VBA (une petite recherche sur ce forum te donnera des exemples de code)
utiliser XLSREAD pour lire la feuille, modifier les données et écraser la feuille avec XLSWRITE

**TopCao** · 12/04/2010, 13h57

hum malheureusement je pense que ce n'est pas trop rentable pour moi d'aller programmer dans un autre langage que je ne connais pas

Je vais essayer avec xlsread et un boucle while

Merci encore

**Jerome Briot** · 12/04/2010, 14h06

Tu parles bien "d'insérer" une colonne ?
C'est à dire de mettre une nouvelle colonne entre des colonnes existantes

**TopCao** · 12/04/2010, 14h11

oui oui

mais du coup je vais faire autrement : je vais lire les colonnes une à une jusqu'à trouver la premier vide et y ranger mes données.
Ca va trier en sens inverse mais ca ne change pas grand chose pour le résultat final.

**Jerome Briot** · 13/04/2010, 16h03

Envoyé par Dut

utiliser ActiveX et VBA (une petite recherche sur ce forum te donnera des exemples de code)

Voici une petite fonction vite faite qui insère une ligne ou un colonne dans la feuille courante d'un fichier xls :

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
function xlsins(xlsname,idx)
 
error(nargchk(2,2,nargin));
 
if ischar(idx) && isletter(idx)
    shift = -4161;
elseif ischar(idx)
    shift = -4121;
elseif isnumeric(idx)
    shift = -4121;
    idx = num2str(idx);
end
 
Excel = actxserver('Excel.Application');
 
Workbooks = Excel.Workbooks;
Workbook = invoke(Workbooks, 'Open',xlsname);
 
Activesheet = Excel.Activesheet;
 
ActivesheetRange = get(Activesheet,'Range',sprintf('%s:%s',idx,idx));
 
invoke(ActivesheetRange,'Insert',shift);
 
Workbook.Save;
invoke(Workbook, 'Close');
 
invoke(Excel, 'Quit');
 
delete(Excel);

Le premier argument est le nom complet (il est impératif d'avoir le chemin complet) du fichier
Le second argument spécifie la ligne ou la colonne où faire l'insertion comme ceci (selon le référencement A1:B1 des cellules sous Excel) :

si c'est une lettre : insertion de colonne
si c'est un chiffre : insertion de la ligne

Par exemple :

Code :

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

1
2
% Insertion d'une colonne entre les colonnes B et C
xlsins('d:\chemin\fichier.xls','C')

Code :

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

1
2
% Insertion d'une ligne entre les lignes 3 et 4
xlsins('d:\chemin\fichier.xls','4')

Code :

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

1
2
% Insertion d'une ligne entre les lignes 6 et 7
xlsins('d:\chemin\fichier.xls',7)

L'opération est effectué en arrière plan, et il faut que le fichier soit fermé avant d'exécuter le code.

C'est juste un petit exemple qui peut être grandement amélioré selon le besoin

Note : testé avec Excel 2003 sur Windows XP SP3

**Jefflafrite** · 10/10/2011, 15h00

DUT, je vous remercie pour votre réponse. C'est exactement ce que je recherchais, je savais qu'il fallait utiliser ActiveX car je l'ai déjà fait pour changer le format d'un cellule mais je ne savais pas comment faire pour ajouter une ligne, cela fait une semaine que je cherche chaque jours sur internet et je n'ai jamais trouver la réponse jusque maintenant.
Un grand merci!
Jeff