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
| ub Maj_GL()
'
' Maj_GL Macro
'
Dim fichier As String, Chemin As String
Dim wb As Workbook
Chemin = "T:\Administratif & Financier\reportings mensuels\yyyy\ddmmaaaa\ J + 15 \ """
fichier = "Balance 10-2019-v191106.xls" '( le mois , l'année et la date du jour du fichier doit être dynamique dynamique)
Set wb = Workbook.Open(Chemin & fichier)
With Worksheets("GL Général").UsedRange.Columns(1)
.NumberFormat = "General"
.Value = .Value
End With
Range("A:J").Copy Range("A:L").Sheets("Grand livre")
wb.Close '( avant d'enregistrer je veux créer une message box "controle ok" sinon "ko. Cette condition est l'égalité entre 2 valeurs sur l'onglet mapping de mon fichier
wb.Save
End Sub |
