Macro qui compare deux cellule de deux fichiers different.

Bonjour. le principe est le suivant. j'ai un fichier qui me vient d'un enseignant et j'ai un fichier que je récupère de ma bd que je compare avec celui de l'enseignant. si il y a des notes qui manque, ça m’écrit "pas de note" dans le troisième classeur.
https://www.cjoint.com/c/HADirNexaGO classeur 1
https://www.cjoint.com/c/HADisKMz62O classeur 2
https://www.cjoint.com/c/HADitBGVNGO classeur 3

Bonjour,

Je regarde la chose
Z'etes vraiment debutant ???
Juste un detail, le code VBA doit etre dans le classeur3 ou ?????
A+

Re,

Fichier traitement pour la meme liste de noms dans les trois classeurs:
Code VBA relativement "simple"
https://mon-partage.fr/f/fr9tiyi3/

Sub Bouton1_Cliquer()
Dim TN_1
Dim TN_2
Dim TN_Res As Range
Dim DernLigne As Long

On Error GoTo Fin 'traitement erreur(s)
'fige raffraichissement ecran
Application.ScreenUpdating = False
Chemin = ThisWorkbook.Path & "\"

'mise en memoire tableau notes
With Worksheets("feuil1")
'dernier cellule non vide colonne A
DernLigne = .Range("A" & Rows.Count).End(xlUp).Row

'mise en memoire Plage de cellule
Set TN_Res = .Range("A1:A" & DernLigne)
End With

'ouverture classeur 1 pour recupe tableau notes
Workbooks.Open (Chemin & "Classeur1.xlsx")
'mise en memoire tableau note
TN_1 = Worksheets("feuil1").UsedRange
'fermeture classeur 1
Workbooks("Classeur1.xlsx").Close True
'ouverture classeur 2 pour recupe tableau notes
Workbooks.Open (Chemin & "Classeur2.xlsx")
'mise en memoire tableau note
TN_2 = Worksheets("feuil1").UsedRange
'fermeture classeur 2
Workbooks("Classeur2.xlsx").Close True

'-------------------------------------------
'| traitement des tableaux notes |
'-------------------------------------------

'boucle pour ecriture de l'entete
For NL = 1 To 4
TN_Res(NL, 1) = TN_1(NL, 1)
Next NL

For NC = 1 To 4
TN_Res(1, NC) = TN_1(1, NC)
Next NC

'boucle sur ligne colonne A
For NL = 2 To 4
'boucle sur les colonnes
For NC = 2 To 4
If TN_1(NL, NC) <> TN_2(NL, NC) Then 'contenus cellules differents
TN_Res(NL, NC) = "Pas de note" 'ecriture cellule classeur Resultat
Else 'contenus cellules identiques
TN_Res(NL, NC) = "Ok" 'ecriture cellule classeur Resultat
End If
Next NC
Next NL
ThisWorkbook.Save
Fin:
'raffraichissement ecran ok
Application.ScreenUpdating = True

End Sub

Bon jour,
Quel Probleme!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Si Chemin: voir avec votre chemin de fichier a vous