Creation d'une macro dans un fichier Excel depuis Delphi

Pour le deuxieme code, tu peux le convertir en VBA comme cela

Code:

---

1 2 3 4 5 6

Sub CreerBoutonEtCode() Set btn = ActiveSheet.Buttons.Add(100, 200 , 100, 25) btn.name = "MonBouton" btn.OnAction = "MaMacro" btn.Characters.Text = "Cliquer ici " End Sub

---

Je pense que du point de vue conception, la solution d'utiliser Delphi seulement pour l'appel de la macro est meilleur, il vaut mieux garder tout ce qui est code VBA a l'interieur d'Excel (Code plus lisible, facile a écrire et a déboguer et a entretenir plus tard) vu que beaucoup de fonctions VBA ne sont pas implémentées sur Delphi.
Dans Excel, tu Fait enregistrer Macro, tu fait les taches que tu veux automatiser, ensuite fin enregistrement, tu analyse le code généré et tu l'optimise.

Je pense que finalement on pourrais faire comme cela plus simplement:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

var btn, xlApp, xlWorkBook, Module : variant; N: integer; begin xlApp := CreateOLEObject('Excel.Application'); xlApp.Visible := True; xlWorkBook := xlApp.Workbooks.Add; btn:=xlWorkBook.ActiveSheet.Buttons.Add(100, 200, 100, 25); btn.OnAction := 'MaMacro'; btn.Characters.Text := 'Cliquer ici '; Module := xlApp.VBE.ActiveVBProject.VBComponents.Add(1); Module.name:='MonModule'; N:=Module.CodeModule.CountOfLines; Module.CodeModule.InsertLines(N+1,'Private Sub MaMacro'); Module.CodeModule.InsertLines(N+2,'MsgBox "Bonjour"'); Module.CodeModule.InsertLines(N+3,'End Sub'); end;

---

Code testé dans D7 avec succés, un bouton est crée, nomé et la macro MaMacro est attaché au clic. Le source de MaMacro est crée dynamiquement dans Delphi, et tu peux le voir dans Excel, Editeur VBA dans la branche Modules sous le nom de MonModule.

Excuse de te déranger encore mais j'ai un dernier soucis

dans le code suivant

Code:

---

1 2 3

MonClasseur.SaveAs(Nomfichier, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam, xlNoChange,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);

---

comment je peux lui dire de sauvegarder dans le format 'Excel Macro Enabled Workbook'

Je suppose que tu parle du format xlsm

Code:

---

1 2 3

Nomfichier:='Fichier1.xlsm'; MonClasseur.SaveAs(Nomfichier, xlOpenXMLWorkbookMacroEnabled, EmptyParam,EmptyParam,EmptyParam,EmptyParam, xlNoChange,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);

---

Si tu n'a pas la constante xlOpenXMLWorkbookMacroEnabled alors remplace-la par 52.

Mais je pense que tu peux faire plus simple (a tester)

Code:

---

MonClasseur.Saveas(Nomfichier, 52);

---

Voici les formats les plus connus d'Excel

Citation:

---

51 = xlOpenXMLWorkbook (without macro's in 2007, .xlsx)
52 = xlOpenXMLWorkbookMacroEnabled (with or without macro's in 2007, .xlsm)
50 = xlExcel12 (Excel Binary Workbook in 2007 with or without macro's, .xlsb)
56 = xlExcel8 (97-2003 format in Excel 2007, .xls)

---

Ça fonctionne.

Merci beaucoup pour toutes tes réponses.

je pense qu'une partie des problèmes de 'commande non disponible' venaient du fait que tu parlais OLE et variant alors que j'utilisais les composants Excel de l'onglet servers
Désolé de ne pas l'avoir préciser plus tôt

Tout fonctionne bien maintenant
Merci

Dans Excel, y'a deux facons de créer un bouton, par objet OLE ou par controle module, tu avais exposé la première option qui est plus compliqué et non implémenté completement dans Delphi apparament alors que la deuxieme option était plus simple.