Lier une macro avec une Appli VB6
azahiri
-
Tchywallace Messages postés 89 Statut Membre -
Tchywallace Messages postés 89 Statut Membre -
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 !!!
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:
- Lier une macro avec une Appli VB6
- Vb6 - Télécharger - Divers Utilitaires
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Comment desinstaller une appli sur pc - Guide
- Appli miroir - Guide
- Appli word - Guide
4 réponses
bonjour,
Rajoutez, au projet la référence "Microsoft Excel xx.x Object library"
Le classeur doit contenir la procédure publique à exécuter.
Bon courage
;o)
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)
C'est un projet ennorme pour l'envoyer sur le net.
...