Problème vba

Option explicit

 Sub actualité 

Application.screenupdating = false
Application.enableevents = false

Dim classeur as worbook, chemin as string, gardeouvert as boolean

Select case thisworkbook.sheets("ACCUEIL").range("k20")
Case "poste 1"
Chemin = "Q:\deptprod\confection bu\production\commun conf\programme P1 pour P2.xlsm"

Case "poste 2"
Chemin = "Q:\deptprod\confection bu\production\commun conf\programme P2 pour P3.xlsm"

Case "poste 3"
Chemin = "Q:\deptprod\confection bu\production\commun conf\programme P3 pour P1.xlsm"

End select 

'Si classeur ouvert, alors fermer puis reouvrir ( pblm msg erreur fichier déjà ouvert ??

If classeurouvert then
    Classeurouvert.close savechanges:= false
    Gardeouvert = true
Else 
    Gardeouvert = false

End if 

'Si classeur fermé, alors ouvrir puis refermer (sans sauvegarde)

Set classeur = workbooks.open(filename:=chemin, readonly:=1, updatelinks:=0)
Thisworkbook.refreshall

If not gardeouvert then 
          Classeur.close savechanges:= false

End if 

Application.screenupdating = true
Application.enableevents = true

End sub

Private function dejaouvert (chemin)
Dim wb as workbook 
For each wb un workbooks
If wb.fullname = chemin then 
Set dejaouvert = wb

Exit function 
End if

Next wb
Classeurouvert = false
End function