Discussion :

[kornmuse]

Bonjour forumeuse, forumeur,

ça fait un moment que je me casse la tête sur ce problème en essayant de le contourner par différentes méthodes, j'ai cherché sur le forum, mais en vain..

Voici mon problème (un peu compliqué) :

J'ai crée une interface graphique en VBA qui lance une procédure contenant une fonction MATLAB (crée en .exe grâce à la commande mcc).
J'ai utilisé la fonction RetVal = Shell( chemin ou se trouve la fonction en .exe, 1) pour lancer l'application MATLAB.
Je voudrais simplement que le vecteur de résultat issu de l'application MATLAB s'écrive dans la feuille Excel actuellement ouverte (celle d’où je lance l'application).

J'ai pu récupérer le nom de la feuille par la commande

Code :

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

NomFeuille= ActiveWorkbook.ActiveSheet.Name

et son chemin par

Code :

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

Adresse= Workbooks(ActiveWorkbook.Name).FullName

J'ai ensuite récupéré ses informations dans MATLAB via xlsread puis je souhaite donc écrire le résultat par la commande

Code :

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

xlswrite1(Adresse,VectVolGarchOrtho,NomFeuille,'G5');

Actuellement je lance la procédure, referme le fichier et l'ouvre à nouveau pour voir mes résultats, pas très pratique

J'espère que vous avez pu comprendre mon problème et que vous pourrez m'aider!
Merci d'avance

[Invité]

Bonjour,

Utiliser la fonction xlswrite1 est en effet une bonne idée. Je ne vois pas ton problème
Pourquoi est-ce que tu

lance la procédure, referme le fichier et l'ouvre à nouveau pour voir mes résultats

Tu peux très bien laisser ton fichier ouvert et travailler avec MATLAB dessus...

[kornmuse]

Bonjour Winjerome,

Merci pour ta réponse et pour le temps accordé .
J'ai essayé la commande xlswrite1 sur un classeur déjà ouvert, mais une fenêtre Excel s'ouvre et me dis : "un fichier portant le même nom existe déjà sur cet emplacement. Voulez-vous le remplacer?". Et malheureusement, les valeurs ne sont pas écrites

Je viens de découvrir la fonction xlswrite1, peut-être que je ne m'en sert pas bien

Voila mon utilisation :

Code :

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

1
2
3
4
5
6
7
8
9
Excel = actxserver ('Excel.Application');
invoke(Excel.Workbooks,'Open',Adresse);
 
xlswrite1(Adresse,VectVolGarchOrtho,NomFeuille,'G5');
 
invoke(Excel.ActiveWorkbook,'Save');
Excel.Quit
Excel.delete
clear Excel

Où Adresse représente la chaine de caractère contenant le chemin complet de la feuille.

[Invité]

Code :

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

invoke(Excel.Workbooks,'Open',Adresse);

Justement tu me dis que ton classeur est déjà ouvert.
De plus si tu veux le laisser ouvert supprime les dernière lignes

[EDIT] Étant déjà ouvert, tu peux remplacer la première ligne par:

Code :

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

Excel = actxGetRunningServer('Excel.Application');

[kornmuse]

Super ça marche du tonnerre!
Je mets donc le code pour ceux que ça intéresse.

Code :

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

1
2
3
4
5
 
Excel = actxGetRunningServer('Excel.Application');
invoke(Excel.Workbooks,'Open',Adresse);
xlswrite1(Adresse,VectVolGarchOrtho,NomFeuille,'G5');
invoke(Excel.ActiveWorkbook,'Save');

Où Adresse représente le chemin de la feuille Excel, VectVolGarchOrtho est le résultat que je souhaite écrire et NomFeuille représente le nom de la feuille dans laquelle je souhaite écrire.

Encore Merci!