Rechercher : dans
Par :

Lier une macro avec une Appli VB6

Dernière réponse le 7 oct 2008 à 16:18:12 azahiri, le 7 oct 2008 à 14:26:16 
 Signaler ce message aux modérateurs

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 !!!

Configuration: Windows 2000
Internet Explorer 6.0

Meilleures réponses pour « Lier une macro avec une Appli VB6 » dans :
VB6 : Maintenir une appli au dessus des autres. VoirPour mettre une feuille au dessus des autres dans une application MDI il y a bien sur la fonction Zordre 0, mais mon propos est de maintenir une appli au dessus des autres appli, qu'elles soient présente à l'écran ou appellées après. Dans un module...
Télécharger MOREFUNC (Macro complémentaire EXCEL) VoirMorefunc est une macro complémentaire proposant 67 nouvelles fonctions de feuille de calcul pour Excel. Ces fonctions sont compatibles avec Excel 95 à 2007. Elles ne sont pas portables sur d'autres plate-formes que Windows, ni sur d'autres...
Télécharger Super Macro VoirSuper Macro est un logiciel gratuit qui permet de créer des macros sous Windows afin de déclencher diverses actions automatiques. En plus d’être gratuit, ce logiciel est facile à utiliser et ne requiert aucune connaissance en programmation. On doit...
Exécuter une macro VoirExécuter une macro Excel et Calc proposent plusieurs façons d’exécuter une macro : en la sélectionnant dans une liste, dans la boîte de dialogue Macro ; par un raccourci clavier ; en l’attachant à un bouton de la barre d’outils ; ...

1

Tchywallace, le 7 oct 2008 à 14:29:04

Envoie nous le code pour qu'on puisse t'aider

tchywallace@gmail.fr

Répondre à Tchywallace

2

azahiri, le 7 oct 2008 à 14:31:12

Re,

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

...

Répondre à azahiri

3

Tchywallace, le 7 oct 2008 à 14:34:53

Ah ok , tu as messenger?

Répondre à Tchywallace

4

azahiri, le 7 oct 2008 à 14:38:18

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

Répondre à azahiri

5

Polux31, le 7 oct 2008 à 14:38:50

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)
«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.»
Nicolas Boileau

Répondre à Polux31

6

azahiri, le 7 oct 2008 à 14:49:43

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.

Répondre à azahiri

7

 Tchywallace, le 7 oct 2008 à 16:18:12

C'est bon

Répondre à Tchywallace