1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
| Function Automatisme()
Dim Rep1 As Integer
Dim Rep2 As Integer
'---------> a rajouter
dim Mois, NumSem as integer
dim monsql_manquant, monsql_BNC, monsql_MvtStock as string
On Error GoTo Macro2_Err
Rep1 = MsgBox("Voulez vous mettre la table adressage à jour?", vbYesNo, "")
If Rep1 = vbYes Then
Rep2 = MsgBox("Le Fichier Excel est il mise à jour?", vbYesNo, "")
If Rep2 = vbYes Then GoTo PointA
ElseIf Rep2 = vbNo Then
MsgBox "Merci de mettre le fichier à jour", vbOKOnly, ""
Exit Function
ElseIf Rep1 = vbNo Then GoTo PointB
End If
PointA:
DoCmd.SetWarnings False
DoCmd.OpenQuery "Sup_T_Adresssage", acViewNormal, acEdit
DoCmd.SetWarnings False
DoCmd.OpenQuery "Ajout Table BD Adressage", acViewNormal, acAdd
PointB:
' Alias mois & N° de semaine commune au 3 Tables
'---------> a rajouter
Mois = inputbox("Veuillez saisir un numéro de mois entre 1 et 12","saisir le mois")
numsem = inputbox("Veuillez saisir un numéro de semaine entre 1 et 52","saisir le numéro de semaine")
monsql_manquant = _
"INSERT INTO [BD Manquant] ( Année, Mois, Semaine, Catégorie, Circuit, " & _
"ITM8, [Libellé ITM8], [Nb UVC], Conditionnement, [Prix UC], Valo ) " & _
"SELECT 2013 AS Année, " & Mois & " AS Expr1, " & numsem & " AS Expr2, " & _
"Val([Fampro]) AS Expr3, EX_Manquant.Cirpic, Val([ITM 8]) AS Expr4, " & _
"EX_Manquant.Désignation, EX_Manquant.[Ecart en UVC], EX_Manquant.PCB, " & _
"EX_Manquant.[Prix UC], IIf(Val([Mespro])=2," & _
"[Prix UC]*[Ecart en UVC]*[Pdbuvc SUM],[Prix UC]*[Ecart en UVC]) AS Valo " & _
"FROM EX_Manquant;"
monsql_BNC = _
"INSERT INTO [BD BNC] ( Année, Mois, Semaine, Catégorie, [Valo Cession], " & _
"ITM8, [Libellé ITM8], Qté, [Px UC], Motifs, [Avoir/Facture] ) " & _
"SELECT 2013 AS Année, " & Mois & " AS Expr1, " & numsem & " AS Expr2, " & _
"Val([Categorie]) AS Expr3, EX_BNC.[Valo au Px Cession], EX_BNC.Itm8, " & _
"EX_BNC.[Libelle Article], EX_BNC.[Quantite SUM], EX_BNC.[Pcsfac SUM], " & _
"EX_BNC.[motifs TR16/TR14], " &_
" IIf([Type]=1,-[Valo au Px Cession],[Valo au Px Cession]) AS [Avoir/Facture] " & _
"FROM EX_BNC;"
monsql_MvtStock = _
"INSERT INTO [BD MvtStock] ( Année, Mois, Semaine, Catégorie, ITM8, " & _
"LibelléITM8, MvtStock, [Valorisation Mvt Stock] ) " & _
"SELECT 2013 AS Année, " & Mois & " AS Expr1, " & numsem & " AS Expr2, " & _
"Val([F1]) AS Expr3, Val([F2]) AS Expr4, Ex_MvtStock.F3, Ex_MvtStock.F5, " & _
"Ex_MvtStock.F7 FROM Ex_MvtStock;"
DoCmd.SetWarnings False
DoCmd.runsql monsql_manquant
DoCmd.runsql monsql_BNC
DoCmd.runsql monsql_MvtStock
'---------> a conserver
DoCmd.TransferSpreadsheet acExport, 0, "Demarque/Circuit", "D:\Mes Documents\00 - Réel\2012\La Buissière\Access Démarque\Demarque_Circuit.XLS", False, ""
DoCmd.Quit acSave
DoCmd.SetWarnings true
Macro2_Exit:
Exit Function
Macro2_Err:
MsgBox Error$
Resume Macro2_Exit
End Function |
