Appeler 2 fois une fction vba dans un module

GPM-CONCEPTION -  
superip79 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai un module qui copie un tableau (price_article_tab) de ma base de données au format Excel suivant le code :

Function Objet()
DoCmd.OutputTo acOutputTbl, "Price_article_tab", "Microsoft Excel 97-2003 (*.xls)", "C:..\Price_article_tab.xls"
End Function

Je voudrais que le même module le fasse pour d'autres tables mais je n'arrive pas à completer le code. Un copier coller donne une erreur de synthase.

Comment faire ? Merci pour votre aide

3 réponses

  1. supertrip69
     
    Sub Objet(nom as String)
    DoCmd.OutputTo acOutputTbl, nom, "Microsoft Excel 97-2003 (*.xls)", "C:..\" & nom & ".xls"
    End Sub

    Il ne te reste qu'à l'appeler :

    call Objet("Price_article_tab")
    0
  2. GPM-CONCEPTION
     
    Bonjour,

    Merci pour votre réponse.

    Mais comment créer la macro qui va exécuter ce module?
    0
    1. superip79 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
       
      (attention, j'ai changé de nom)
      je ne peux pas trop te répondre là. tout dépend de comment tu vas dire "cette table et cette table vont être enregistré au format excel".
      0
  3. GPM-CONCEPTION
     
    Bonjour,

    Merci de me faire une proposition de modèle : me donner un exemple
    0
    1. superip79 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
       
      Je n'ai jamais utilisé de table dans excel mais serait-il possible de faire un :
      sub main

      For each table in mestables
      call objet(table.name)
      next

      end sub
      0

Discussions similaires

WINDOWS 11 Module d'Expérience Locale france
jetsunema -
rv -

4 réponses
Téléviseur LG - Pas de module
Jenny761 -
Andy31200 -

13 réponses
Modules Cisco, c'est quoi?
Mots croisés -
echec47 -

7 réponses
Message d'erreur "Pas de module CI"
KinderJustine -
Gelouk -

3 réponses
Aide à propos du module CI
Patiento2023 -
baladur13 -

3 réponses