Bonjour
J'essaie de faire une macro qui ouvre un fichier en fonction de son chemin . Le chemin et le nom de fichier seront dynamiques ( en fonction de l'année , du mois et de la date du jour normé sur le fichier )
Une fois que le fichier est ouvert , une macro va convertir en nombre la 1er colonne du fichier dont l'onglet est "GL Général".
Par la suite la macro doit copier les données de l'onglet GL Général ( plage A à J) dans un autre fichier dont l'onglet est "Grand Livre" ( Plage A à J)
Avant d'enregistrer je veux créer une message box "contrôle ok" sinon "ko. Cette condition est l'égalité entre 2 valeurs sur l'onglet "mapping" du fichier destinataire
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
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
Partager