Creation d'une macro dans un fichier Excel depuis Delphi

**drxel** · 11/10/2011, 11h40

Bonjour,

Je crée depuis Delphi (2007), un fichier Excel (Excel2007) avec les résultats de mon application : multiples pages, tableaux, graphiques.

Je souhaiterais créer sur une des pages un bouton qui me permette de modifier 2 séries de données sur un graph (ces séries me permettent de définir un gabarit dans lequel doit se trouver mes résultats)

Pour la création du bouton, c'est bon avec :

Code :

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

1
2
3
MaShape:=MaFeuille.Shapes.AddOLEObject('Forms.CommandButton.1', EmptyParam, EmptyParam,
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam,
                                 10,10, 110,40);

Avec

Code :

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

MaShape: Shape;

Par contre, je n'ai pas trouver le moyen de modifier le 'caption' du bouton

Pour ce qui est de la macro, j'ai trouve l'exemple suivant (ne serait-ce que pour tester) :

Code :

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

1
2
3
4
Module := ExcelApplication.VBE.ActiveVBProject.VBComponents.Add(1);
  Module.CodeModule.InsertLines(1,'Public sub test()');
  Module.CodeModule.InsertLines(2,'ShowMsg("Bonjour")');
  Module.CodeModule.InsertLines(3,'End Sub');

avec :

Code :

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

Module: Variant;

seulement a ce moment la, j'ai l'erreur suivante :
'Programmatic access to visual Basic Project is not trusted'

en cherchant sur le forum, j'ai trouve qu'il fallait activer sous Visual Basic la référence :
Microsoft Visual Basic for Applications Extensibility x.xx

J'ai bien cette référence mais je ne peux l'activer que manuellement et pour un fichier a la fois.

Est-ce qu'il existe un moyen d'activer cette référence a chaque fichier que je crée ? ou existe il un manière détournée de creer un macro dynamiquement et de la lier au bouton crée ?

Par avance, merci de vos réponses.

**fab256** · 11/10/2011, 12h16

Regarde du coté des parametres du centre de sécurité d'Excel dans le menu option. (désolé j'ai pas la version francaise)
Excel Options > Trust Center > Trust Center Settings... > Check Trust access to the VBA project object model

vérifie aussi la base de registre pour la clé HKCU\Software\Microsoft\Office\" + oExcel.Application.Version + @"\Excel\Security

**drxel** · 11/10/2011, 12h28

Merci pour l'info

,

Avec la modification dans le trust center je n'ai plus le problème avec la référence

Maintenant, j'ai l'erreur suivante qui apparait 'subscript out of range'

**drxel** · 11/10/2011, 12h41

en fait je n'ai plus le problème avec la référence
mais il n’écris rien dans module1 quand je vais voir sous visual basic

quelqu'un a-t'il une solution ?

**fab256** · 11/10/2011, 13h12

Tu arrive a exécuter la macro ?

Code :

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

ExcelApplication.Run('test');

Il faut donner un nom aussi a ton module après le add

Code :

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

Module.Name := 'MonModule1';

Sinon si ton module existe déja

Code :

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

1
2
VBProj := ExcelApplication.VBE.ActiveVBProject;
Module := VBProj.VBComponents('Module1');

**drxel** · 11/10/2011, 13h45

en écrivant le code comme je le mettais plus haut, il n'ecrivait rien dans le module mais en mettant la macro dans un Memo et en le passant comme suit, ça fonctionne :

Code :

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

1
2
3
4
5
6
7
  Module := ExcelApplication.VBE.ActiveVBProject.VBComponents.Add(1);
  Module.name:='MonModule';
  for I :=0 to Form1.Memo1.Lines.Count-1 do
    begin
          Module.CodeModule.InsertLines(I+1,Form1.Memo1.Lines.Strings[I]);
    end;
  ExcelApplication.Run('MaMacro');

avec dans le Memo :

Code :

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

1
2
3
4
5
6
7
Sub MaMacro()
'
'MaMacro Macro
'
ShowMsg("Bonjour")
'
End Sub

Saurais-tu comment attacher ma macro MaMacro au click de mon bouton et comment changer le nom de ce bouton ?

**fab256** · 11/10/2011, 14h34

Si ton Bouton s'appelle MaMacro alors son evenement click doit se nommer MaMacro_Click()

Code :

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

1
2
3
4
MaShape:=MaFeuille.Shapes.AddOLEObject('Forms.CommandButton.1', EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 10,10, 110,40);
 
MaShape.Name := 'MaMacro'
MaShape.Object.Caption := 'Cliquer ici'

et ta macro devra etre comme ceci

Code :

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

1
2
3
4
5
6
7
Private Sub MaMacro_Click()
'
'MaMacro Macro
'
ShowMsg("Bonjour")
'
End Sub

**drxel** · 11/10/2011, 14h56

dans,

Code :

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

MaShape.Object.Caption := 'Cliquer ici'

Il ne connait pas 'Object'. Quand je fais, 'MaShape.' le menu déroulant qui s'affiche ne propose pas 'Object'

J'avais trouve une autre façon de faire :

Code :

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

MaShape.TextFrame.Characters.Text := 'Cliquer ici';

mais il veut des paramètres a 'Characters' : Start et length :

Code :

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

MaShape.TextFrame.Characters(Start:=1, length:=11).Text := 'Cliquer ici';

et en les tournant dans tous les sens je n'arrive pas a le faire fonctionner : par exemple :

Code :

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

MaShape.TextFrame.Characters(1,11).Text := 'Cliquer ici';

Ca veut bien compiler mais a l’exécution il marque 'Member not found'

**fab256** · 11/10/2011, 15h22

Tu peux créer et controller ton bouton dans une macro VBA et tu fait l'appel a partir de Delphi

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
31
32
33
34
35
36
37
38
39
40
41
Sub CreerBoutonEtCode() 
     ' Declarer les variables
    Dim i As Long, Hght As Long 
    Dim Name As String, NName As String 
     ' Definir les propriétés du button
    i = 0 
    Hght = 305.25 
     ' Definir le nom du bouton
    NName = "cmdAction" & i 
     ' Tester si le bouton existe alors incrementer son nom
    For Each OLEObject In ActiveSheet.OLEObjects 
        If Left(OLEObject.Name, 9) = "cmdAction" Then 
            Name = Right(OLEObject.Name, Len(OLEObject.Name) - 9) 
            If Name >= i Then 
                i = Name + 1 
            End If 
            NName = "cmdAction" & i 
            Hght = Hght + 27 
        End If 
    Next 
     ' Ajouter button
    Dim myCmdObj As OLEObject, N% 
    Set myCmdObj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _ 
    Link:=False, DisplayAsIcon:=False, Left:=52.5, Top:=Hght, _ 
    Width:=202.5, Height:=26.25) 
     ' Definir le nom du bouton
    myCmdObj.Name = NName 
     ' Define le text du buttons
    myCmdObj.Object.Caption = "Cliquer ici" 
     ' Inserer le code du clique pour le bouton
    With ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule 
        N = .CountOfLines 
        .InsertLines N + 1, "Private Sub " & NName & "_Click()" 
        .InsertLines N + 2, vbNewLine 
        .InsertLines N + 3, vbTab & "MsgBox(" & """" & "Bouton ok!" & """" & " & vbCrLf &" & _ 
        """" & "Mettre le code ici!" & """" & " & vbCrLf & " & """" & "This is " & """" & _ 
        "& " & """" & NName & """" & ")" 
        .InsertLines N + 4, vbNewLine 
        .InsertLines N + 5, "End Sub" 
    End With 
End Sub

**drxel** · 11/10/2011, 15h35

Effectivement, pourquoi pas le créer par une macro

Merci de m'avoir répondu.

Je marque le sujet comme résolu, mais si quelqu'un sait comment le faire depuis delphi sans passer par une macro (modifier le nom du bouton créé depuis delphi et lui affecter une macro), je suis preneur : juste pour avoir la solution.

**fab256** · 11/10/2011, 15h54

Essai ceci :

Code :

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

MaShape.TextFrame.Characters(emptyparam,emptyparam).Caption := 'Cliquer ici';

**drxel** · 11/10/2011, 16h06

J'ai toujours l'erreur : 'Member not found'

Dans ta macro précédente qui fonctionne bien, comment je peux lui dire de lancer une macro 'MaMacro()' que j'aurais défini préalablement au lieu de définir une macro complète
par exemple :

Code :

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

.InsertLines N + 3, vbTab & "MaMacro()"

ne fonctionne pas

**fab256** · 11/10/2011, 16h13

Dans le code VBA, fait l'appel a ta macro avec Call ou bien juste le nom de la macro

Code :

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

 .InsertLines N + 3, vbTab & "Call MaMacro()"

ou bien directement

Code :

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

.InsertLines N + 3, vbTab & "MaMacro()"

**drxel** · 11/10/2011, 16h22

Code :

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

 .InsertLines N + 3, vbTab & "Call MaMacro()"

fonctionne.

merci.

**fab256** · 11/10/2011, 16h26

Je comprends pas pourquoi tu as l'erreur, quand tu écris dans l'éditeur de Delphi cette ligne

Code :

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

MaShape.TextFrame.Characters(emptyparam,emptyparam).

L'éditeur te propose une liste de propriétés, non? entre autre Caption dans cette liste ou non?

**drxel** · 11/10/2011, 16h44

il me propose bien caption, je peux compiler mais a l’exécution il m'indique toujours 'member not found'

**fab256** · 11/10/2011, 16h48

Peut etre il faut faire un cast, je ne suis pas sur mais a tester :

Code :

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

(MaShape as button).caption:='Cliquer ici';

**drxel** · 12/10/2011, 08h37

Cette fois-ci j'ai l'erreur : 'Interface not supported'

**fab256** · 12/10/2011, 09h51

Ca devrait marcher de cette facon :

Code :

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

1
2
3
4
5
6
7
var MaShape : variant;
...
...
MaShape := Excel.Application.Worksheets[1].Shapes.AddShape(1, 0, 0, 450, 200);
MaShape.textframe.characters.text:='Cliquer Ici';
...
...

Ou bien d'une autre maniere

Code :

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

1
2
3
4
5
6
7
8
9
10
var MaShape : variant;
...
...
MaShape := Excel.Application.Worksheets[1].ActiveSheet.Buttons.Add(159, 48, 132, 33);
MaShape.name:='MonBouton';
MaShape.OnAction = 'MaMacro';
 
Excel.Application.Worksheets[1].ActiveSheet.Shapes('MonBouton').Characters.Text = 'Cliquer Ici';
...
...

**drxel** · 12/10/2011, 11h12

la première solution ne fonctionne pas

pour la 2eme la commande 'add' de 'buttons' n'est pas disponible

Tant pis ce n'est pas grave ça marche déjà très bien par ta macro

Merci

Creation d'une macro dans un fichier Excel depuis Delphi

Delphi

Discussions similaires

Partager

Partager