Discussion :

[utan88]

Bonjour,

Comment faire pour qu'un fichier Excel généré depuis Access (cette partie je sais faire) ait déjà une macro ?

J'explique un peu plus en détail:

Jusqu'à présent mon fichier Excel (généré depuis Access) contient une feuille récapitulative puis des feuilles avec le détail de chaque ligne de la page récapitulative.

Cette page récapitulative a un bouton mais j'aimerais que quand je génére ce fichier la macro que j'aurai stipulé soit dans le classeur.

Je vous remercie d'avance.

--------------------------------------------------------------------------
EDIT: En regardant sur le net j'ai trouvé qu'il est possible d'associer des macros à des fichiers excel j'ai donc créer une macro complémentaire avec le code que le bouton devrait normalement éxecuter mais je n'arrive pas à l'éxecuter quand je clique sur le bouton

le code de ma macro :

Code :

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

1
2
3
4
 
Private Sub CommandButton1_Click()
    MsgBox "Sa marche"
End Sub

pas très recherché je sais

par contre quand je tape CommandButton1_Click dans exécuter une macro le code à l'intérieur s’exécute bien.

Si quelqu'un sait comment faire je suis preneur.

[helas]

Bonsoir,
Cela devrait ressembler à ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 set xlw = ActiveWorkbook
 With xlw.VBProject.VBComponents("ThisWorkBook").CodeModule
  x = .CountOfLines + 1
  .InsertLines x, "Private Sub CommandButton1_Click()"
  x = x + 1
  .InsertLines x, "MsgBox ""Sa marche"" "
  x = x + 1
  .InsertLines x, "End Sub"
  x = x + 1
 End With