Bonjour,

Je dois migrer des traitements de excel sur access.
Mais voilà le controle des données produitent se fait via des macro excel trés compliquées et longues qui ne sont pas exportable sur access sans grande et longue réflexion.

Donc je voulais savoir comment exporter une table de access qui comporterait des colonnes de calculs dans excel.
Si à partir de la table je vais dans menu / outils Liaison Office le fichier s'exporte bien mais les colonnes calculés reste avec la formule sans faire le calcul.

Si j'exporte ma table au format csv avec délimiteur et séparateur. Puis via une macro je demande de l'ouvrir avec excel. Le fichier s'ouvre bien mais il faut que je convertisse les données pour que je puisse avoir toutes mes colonnes bien séparée. Et la le calcul se fait bien
Voici mon code y a t il un moyen d'ouvrir le fichier en intégrant la convertion en automatique.

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
Private Sub Open_excel_Click()
On Error GoTo Err_Open_excel_Click     
Dim oApp As Object     
Set oApp = CreateObject("Excel.application")
    oApp.Application.Visible = True
    oApp.workbooks.Open "E:\grille de rem\Table1.csv"
    oApp.Visible = True
    'Only XL 97 supports UserControl Property
    On Error Resume Next
    oApp.Application.UserControl = True 
    Exit_Open_excel_Click:
    Exit Sub Err_Open_excel_Click:
    MsgBox Err.Description
    Resume Exit_Open_excel_Click
 
End Sub
Juste pour un apperçu voici la formule la plus simple contenu dans une cellule
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
=SI(D2="";SI(NB.SI(G:G;B2)=10;SI(NB.SI(H:H;H2)=1;"OK1";"NOK1");SI(NB.SI(G:G;B2)<10;"NOK2";"NOK3"));SI(CONCATENER($A2;$B2)=CONCATENER($A3;$B3);SI($D2=$C3-1;"OK4";"NOK4");SI(ET($E2=0;NB.SI(G:G;G2)=10;NB.SI(H:H;H2)=1);"OK5";"NOK5")))