Discussion :

[Opera140]

Bonjour !

J'ai un fichier .xls à éditer puis je dois utiliser une macro afin que des "codes couleurs" se mettent en place.
Ma macro s'apelle ThisWorkbook.setColor.
Comment l'activer automatiquement après avoir inséré mes données dans le fichier ?

J'ai vu ceci dans la FAQ :

La méthode TExcelApplication.Run permet d'exécuter une macro.

Par exemple si le classeur Tuto.xls contient la macro MaSomme définie comme suit : Private Function MaSomme(Oper1 as Double, Oper2 as Double) As Double

Il est alors possible de lancer la macro à l'aide de la commande : Resultat:=ExcelApplication1.Run('Tuto.xls!MaSomme',2.2,3.3);

Comment faire un appel à ma macro sachant qu'elle ne comporte pas d'argument et ne renvoie pas de résultat ?

[PadawanDuDelphi]

Salut,

Je n'ai jamais tester, mais en faisant simplement:

Code :

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

ExcelApplication1.Run('TonFichier.xls!TaFonction')

Cela ne fonctionne pas?

A+.

[Opera140]

Je viens de tester l'appel :

vMSExcel.Run(Fichier+'!ThisWorkbook.setColor');

Où Fichier est une chaine contenant 'MonFichier.xls'.

J'ai une erreur qui me dit que la macro n'a pas été trouvée et tout plante (même l'IDE).

[QAYS]

erreur de manip

[Opera140]

Problème résolu.
Il suffit d'écrire :

Code :

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

vMSExcel.Run('ThisWorkbook.setColor');

Sans préciser le classeur dans lequel se trouve la macro si elle est dans le classeur actif.