Appeler 2 fois une fction vba dans un module

Fermé
GPM-CONCEPTION - Modifié par GPM-CONCEPTION le 21/04/2010 à 18:23
superip79 Messages postés 7 Date d'inscription jeudi 22 avril 2010 Statut Membre Dernière intervention 23 avril 2010 - 22 avril 2010 à 15:20
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

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")
GPM-CONCEPTION
22 avril 2010 à 12:32
Bonjour,

Merci pour votre réponse.

Mais comment créer la macro qui va exécuter ce module?
superip79 Messages postés 7 Date d'inscription jeudi 22 avril 2010 Statut Membre Dernière intervention 23 avril 2010
Modifié par superip79 le 22/04/2010 à 13:25
(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
GPM-CONCEPTION
22 avril 2010 à 15:08
Bonjour,

Merci de me faire une proposition de modèle : me donner un exemple
superip79 Messages postés 7 Date d'inscription jeudi 22 avril 2010 Statut Membre Dernière intervention 23 avril 2010
22 avril 2010 à 15:20
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