Discussion :

[rosema]

J’aimerais via un code VBA pouvoir créée un macro Excel qui se chargerais d’exécuter une macro qui créer une table ET importer les données en pouvant sélectionner trois critères sur trois champs de la table mais importer tous les autres champs : champs 1 :soc-pro ; champs 2: ANNÉE EXERCICE FISCAL et champs 3: DATE COMPTABLE DU CRÉDIT avec la possibilité de sélectionner du temps au temps a .ensuite après la sélection voulu me coller mes données dans deux onglets excel IFI ET IFU2 sur mon fichier Excel
Résumer sortir d'Excel exécuter une requête ou deux et importer une table avec sélection.
En vous remerciant par avance

[SfJ5Rpw8]

bonsoir,

et tu en est ou ?

[rosema]

bonjour,
Je peux dire que tout est fait dans access .Données ok dans une table
Le plus simple serait d’exécuter via une macro excel l'importation de cette table dans deux onglets excel mais avant l'import j'aimerais via une combobox ou userform qu'il me demande trois sélection==> 1 quel societe qui correspond a un champ de la table==>2 quelle année 3==> quel date du au . tous ça correspond a des champs de la table .
ont peux même le faire d’après une requête access si on veut mais je trouvais ça plus simple d’après une table
Il s'agit de ne pas tout importer les données de la table dans excel car trop volumineux seulement ce que j'ai besoins en sachant que mes demandes peuvent changer d'un jour a l'autre je ne veux pas toujours importer les mêmes société.
la seule macro excel que j'ai fait permet d’exécuter une macro access reprenant l’exécution de requête création de table et d'exporter cette table au format excel sur un dossier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Executer_Macro_Access()
 
Dim oAcApp As Object 'Access.Application
 
Set oAcApp = CreateObject("Access.Application")
 
'Ouvrir la base de données
oAcApp.OpenCurrentDatabase "Q:\support et controle\SERVICES INSTITUTIONNELS\CONTROLES PRODUCTION\SUIVI DES REVENUS\DONNEES POUR TABLE\SAV\DWH - REVENUS.mdb"
 
'Exécuter la macro
oAcApp.DoCmd.RunMacro "EXE REQ TOTAL"
 
'Fermer la base de données
oAcApp.CloseCurrentDatabase
 
'Libérer les ressources
Set oAcApp = Nothing
 
 
End Sub

merci de votre aides