Insérer du code dans un classeur et l'exécuter

**spileo** · 08/09/2006, 22h53

Bonsoir,
Voilà mon problème.
J'utilise un programme A (écrit depuis MS Visual Studio) qui traite un fichier Excel pour le mettre en page. A un moment donné, l'utilisateur doit modifier le fichier Excel manuellement. Quand ça se produit le programme A écrit du code VBA dans le fichier Excel et s'arrête: c'est le programme B. Je voudrais qu'en plus le programme A lance l'exécution du programme B qui doit piéger l'évènement "Enregistrement du classeur" et relancer le programme A.
J'ai compris comment on écrivait du code dans un classeur (merci à ceux qui ont écrit la FAQ et aux gens du forum aussi) en revanche comment dois-je m'y prendre pour l'exécuter? Dois-je écrire le code de telle manière qu'il s'exécute à l'ouverture du fichier Excel et fermer le fichier Excel pour le réouvrir et donc déclencher l'exécution du code? Merci et à+.

**SilkyRoad** · 09/09/2006, 05h32

bonjour

est ce que tu dois obligatoirement créer une procedure evenementielle?

l'exemple joint concerne Word, mais ça doit fonctionner sur le meme principe dans Excel:

http://www.developpez.net/forums/sho...5&postcount=12

un autre exemple pour declencher une procedure evenementielle ThisWorkbook

Code :

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

Run "ClasseurTest.xls!ThisWorkbook.Workbook_Open"

bonne journée
michel

**spileo** · 09/09/2006, 15h05

Bonjour.
Bon alors j'arrive à écrire la macro (faut dire qu'avec le source c'était pas trop dur, merci SilkyRoad), par contre je n'arrive pas à la lancer, mais c'est peut être car c'est un procédure évènementielle non? Je continue de chercher. Ca c'est le code écrit par mon programme dans le module créé dans le classeur:

Code :

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

1
2
3
4
5
 
Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)
  SaveAsUi = False
  Cancel = False
End Sub

Ca c'est le code de mon programme principal:

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
 
Dim VBComp As Object
Dim xl As Integer
Set VBComp = wbExcel.VBProject.VBComponents.Add(1)
With wbExcel.VBProject.VBComponents(VBComp.Name).CodeModule
    xl = .CountOfLines
    .InsertLines xl + 1, "Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)"
    .InsertLines xl + 2, "  SaveAsUi = False"
    .InsertLines xl + 3, "  Cancel = False"
    .InsertLines xl + 4, "End Sub"
    DoEvents
    appExcel.Run "Workbook_BeforeSave()"
    .DeleteLines 1, .CountOfLines
End With
wbExcel.VBProject.VBComponents.Remove VBComp

A+

**spileo** · 09/09/2006, 15h20

Bon ben c'est bon en fait y'a pas besoin de l'exécuter la macro, faut enlever la ligne:

Code :

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

1
2
 
appExcel.Run "Workbook_BeforeSave()"

Là ça fonctionne, quand on clique sur enregistrer, il se passe bien quelque chose, j'ai essayé avec une msgbox et elle apparaît.
Merci encore et A+.

**SfJ5Rpw8** · 09/09/2006, 15h21

essai d'enlever le Private... .?

sinon est tu sur de vouloir garder la derniére ligne de ton code principal qui est la pour effacer la macro..

**spileo** · 09/09/2006, 15h53

je me suis emballé un peu vite tout à l'heure quand je disais que ça marchait. Ca marche à condition d'écrire dans ThisWorkbook:

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
 
Dim VBComp As Object
Dim xl As Integer
'Set VBComp = wbExcel.VBProject.VBComponents.Add(1)
With wbExcel.VBProject.VBComponents("ThisWorkbook").CodeModule
     xl = .CountOfLines
     .InsertLines xl + 1, "Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)"
     .InsertLines xl + 2, "  SaveAsUi = False"
     .InsertLines xl + 3, "  Cancel = False"
     .InsertLines xl + 4, "   msgbox" & Chr(34) & "hello" & Chr(34)
     .InsertLines xl + 5, "End Sub"
     DoEvents
     'appExcel.Run "Workbook_BeforeSave()"
     '.DeleteLines 1, .CountOfLines
End With
'wbExcel.VBProject.VBComponents.Remove VBComp

Pour la dernière ligne qui efface la macro je pense que je ne vais pas la garder car comme le précise ce document, comme mon programme et Excel ne sont pas des applications synchrones, en laissant cette ligne je risque de détruire la macro que je viens d'écrire dans le classeur avant même qu'elle n'est servi.
Merci pour cette remarque bbil.