Aide sur fonction IF

Bonjour, voila j'ai un petit soucie, j'ai fais une macro, qui m'ouvre un autre fichier excel, puis qui dois me fermer le fichier actuellement ouvert. Ceci a l'aide d'une fonction IF, il doit me l'enregistrer seulement si le fichier n'est pas en lecture seul.
Je n' ais aucun message d'erreur mais cela ne me sauvegarde pas.

merci de votre aide.

Sub Retourlisterames()

y = Workbooks("Rame65.xls").FullName 'recupere le chemin de ton fichier excel
x = Workbooks("Rame65.xls").Name 'recupere le nom du fichier excel
lg = Len(x) 'len=longueur
chemin = Mid(y, 1, Len(y) - Len(x)) 'recupere juste le chemin
Workbooks.Open (chemin + "Listerames.xls")



If vbReadnormal = True Then
ThisWorkbook.Close SaveChanges:=True
Else
ThisWorkbook.Close SaveChanges:=False
End If

End Sub