Lier une macro avec une Appli VB6

azahiri -  
Tchywallace Messages postés 81 Date d'inscription   Statut Membre Dernière intervention   -
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 !!!
A voir également:

4 réponses

Réponse 1 / 4
Tchywallace Messages postés 81 Date d'inscription   Statut Membre Dernière intervention   5
 
Envoie nous le code pour qu'on puisse t'aider 
tchywallace@gmail.fr
-1
azahiri
 
Re,

C'est un projet ennorme pour l'envoyer sur le net.

...
0
Réponse 2 / 4
Tchywallace Messages postés 81 Date d'inscription   Statut Membre Dernière intervention   5
 
ah ok , tu as messenger?
-1
azahiri
 
Re
Oui mais enfait là je ne peux pas l'ouvrir par ce que je suis au travaille et on a pas accés à messenger il y a un parfeu :s
0
Réponse 3 / 4
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
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)
-1
azahiri
 
Merci beaucoup Polux je vais essaiyer ce bou de code et je testerai s'il y a un probleme je te contacterai sur le forum

Bon courage.
0
Réponse 4 / 4
Tchywallace Messages postés 81 Date d'inscription   Statut Membre Dernière intervention   5
 
C'est bon
-1