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
82
83
84
85
86
87
88
89
90
| VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
END
Attribute VB_Name = "ThisWorkbook"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Public i As Integer 'numÈro de la ligne
Public mois As String
Dim nomfichier As String 'nom du fichier d'export de Qb ‡ ouvrir
Dim partienom As String 'partie du nom de ce fichier
Sub lectureligne()
'cette macro parcoure le document jusqu'‡ la derniËre ligne
'et met dans le tableau Taninput 3 valeurs de la ligne
' ‡ savoir : Groupe, MÈtier, CA
Dim Tabinput(2) As Variant
Dim a As Integer ' colonne de la variable Tableau2
Dim b As Integer ' ligne de la variable Tableau2
Dim Tableau2(2, 26) As Variant 'tableau ‡ 2 dimensions: 3 en absisse, 10 en ordonnÈe
Dim m As Integer ' ligne de la cellule de destination
Dim n As Integer ' colonne de la cellule de destination
OuvertureFichier_mois
i = 2
Do Until Cells(i, 1).Value = ""
Tabinput(0) = Workbooks(partienom).Sheets(1).Cells(i, 1).Value 'Groupe
Tabinput(1) = Workbooks(partienom).Sheets(1).Cells(i, 2).Value 'MÈtier
Tabinput(2) = Workbooks(partienom).Sheets(1).Cells(i, 6).Value 'CA
Select Case Tabinput(0)
Case "CVC"
a = 0
n = 14
Case "LPM"
a = 1
n = 23
Case "LSR"
a = 2
n = 32
End Select
Select Case Tabinput(1)
Case "Brique"
b = 0
m = 7
Case "Tuile"
b = 1
m = 8
Case "Carreaux"
b = 2
m = 11
' etc
End Select
Tableau2(a, b) = Tabinput(2)
with Workbooks("Reporting marchÈ2009.xls").Sheets(mois)
.Cells(m, n).Value = .Cells(m, n).Value + Tableau2(a, b)
end with
i = i + 1
Loop
Workbooks(partienom).Close savechanges:=False
End Sub
Sub OuvertureFichier_mois()
'
' Macro1 Macro
' Macro enregistrÈe le 19/06/2009 par JoacMenager
'
'
mois = InputBox("Indiquez le mois sous la forme ##")
nomfichier = "C:\Documents and Settings\joachim.menager\Mes documents\PRO\Mon activitÈ\Mes outils\Logiciels\Yellowstone\Fusion processus\Reporting\Nouveau reporting\Reporting finaux\export_qb\po_" & mois & "09_test.TXT"
partienom = "po_" & mois & "09_test.TXT"
Workbooks.OpenText Filename:=nomfichier _
, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:= _
False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array _
(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), _
TrailingMinusNumbers:=True
End Sub |
