Ouvrir un fichier csv dans excel via access
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:
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:
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"))) |
