Lier une macro avec une Appli VB6 Fermé

Question

Salut les amis,
J'ai une appli VB6 à partir de laquelle je peux imprimer des plans de préventions stockés sur un serveur Oracl et les états sont sur excel au debut je lançais l'impression depuis l'appli et elle fait appel au fichier excel aprés avoir intérogé la base oracl pour récuperer les données, sauf qu'avec ce traitement ça prend enormement de temps pour etablir l'impression pour cela j'ai fais une macro sur excel ou j'ai mis le module Impression de l'appli et ça marche trés bien maintenant je ne sais pas comment lier cette macro avec l'application en laissant le module impression sur la macro et pas sur le code de l'appli.

Merci.
_______________________________________

Partage et aide !!!

Tchywallace · Answer

Envoie nous le code pour qu'on puisse t'aider
tchywallace@gmail.fr

Tchywallace · Answer

ah ok , tu as messenger?

Polux31 · Answer

bonjour,

Rajoutez, au projet la référence "Microsoft Excel xx.x Object library"

Le classeur doit contenir la procédure publique à exécuter.

Private Sub cdLancerMacro_Click()
  Dim oExcel As Excel.Application
  Dim oWk As Workbook
  Set oExcel = CreateObject("Excel.Application")
  oExcel.Visible = True
  Set oWk = oExcel.Workbooks.Open(App.Path & "\MonClasseur.xls")
  On Error GoTo 0
  If oWk Is Nothing Then
    MsgBox "Erreur sur ouverture classeur", vbCritical
    Exit Sub
  End If
  
  oExcel.Run "MaMacro" ' lance la macro
  
  Set oWk = Nothing
  Set oExcel = Nothing 'libération mémoire..
End Sub

Bon courage

;o)

Tchywallace · Answer

C'est bon