Bonjour.
Je vous sollicite sur la création d'une macro permettant de trouver s'il y a eu des ajouts entre deux fichiers différents.
Je m'explique.
Regardez les classeurs FichierA et FichierB.
Le fichier A est une base de données contenant plusieurs lignes, et l'élément qui différencie chaque ligne se trouve dans la colonne G, le "RemInstr desc.".
C'est à dire que pour chaque ligne de la base, on a un "Reminstr desc." différent.
Il en est de même dans le FichierB.
Le fichier A est une extraction du jour J. Le fichier B est une extraction du jour J+1.
Le but de la macro, c'est de savoir si il y a eu de nouvelles lignes dans le fichier B (donc des nouveaux "RemInstr desc") qui ne sont pas dans le fichier A.
C'est que je veux c'est quand on lance, la macro doit demander l'ouverture du fichier A puis du fichier B et qu'ensuite dans le classeur "Comparaison" (où il y a la macro) , on ait une liste de toutes les nouvelles lignes avec les coordoonées dans la feuille.
De plus, on a besoin seulement des données dont la valeur de la colonne N="Zone 2".
Voici ce que j'ai commencé à faire, mais j'ai du mal pour la comparaison:
Sub OuvertureFichier()
Dim fichierA As Variant
Dim fichierB As Variant
Dim wbkA As String
Dim wbkB As String
Dim LaPlageA As String
Dim LaPlageB As String
'on ouvre le premier fichier
fichierA = Application.GetOpenFilename("Fichier XLSX (*.xlsx),*xlsx")
If fichier = False Then Exit Sub
Workbooks.Open Filename:=fichier
wbkA = ActiveWorkbook.Name
Sheets("Feuille1").Select
LaPlageA = Range("A2:BP" & Range("A" & Rows.Count).End(xlUp).Row).Address(ReferenceStyle:=xlR1C1, _
RowAbsolute:=True, _
ColumnAbsolute:=True)
fichierB = Application.GetOpenFilename("Fichier XLS *.xls), *xls")
If fichier = False Then Exit Sub
Workbooks.Open Filename:=fichier
wbkB = ActiveWorkbook.Name
Sheets("Feuille2").Select
LaPlageB = Range("A2:BP" & Range("A" & Rows.Count).End(xlUp).Row).Address(ReferenceStyle:=xlR1C1, _
RowAbsolute:=True, _
ColumnAbsolute:=True)
'Workbooks(wbkA).Close savechanges:=False
'Workbooks(wbkB).Close savechanges:=False
'Set fichierA=nothing
'Set fichierB=nothing
End Sub
Pouvez-vous m'aider, s'il vous plaît ?
Merci.