Appeler 2 fois une fction vba dans un module

GPM-CONCEPTION -  
superip79 Messages postés 7 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

Réponse 1 / 3
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
Réponse 2 / 3
GPM-CONCEPTION
 
Bonjour,

Merci pour votre réponse.

Mais comment créer la macro qui va exécuter ce module?
0
superip79 Messages postés 7 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
Réponse 3 / 3
GPM-CONCEPTION
 
Bonjour,

Merci de me faire une proposition de modèle : me donner un exemple
0
superip79 Messages postés 7 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

Devinette
Boura10000 -
Utilisateur anonyme -

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

3 réponses
Que peut faire 3fois/j un homme, mais qu'1fois/j une femme
Soter -
Raymond PENTIER -

1 réponse
Je peux appeler mais ne peux pas recevoir d'appel
Tom -
bazfile -

4 réponses
paiment 4x nickel sur top achat
Lohan -
Afrikarnak -

1 réponse