Problème de macro

Bonjour,

Lorsque mon fichier 'chemin2' est ouvert ma macro ne passe pas à la macro 'Copicolle1'. Par contre lorsque le fichier 'Chemin2' est fermer je n'ai aucun problème.
Pouvez vous me dépanner.
Merci


'Active le chemin d'accès à la base de fusion des lots
Worksheets('chemin').Select
Dim chemin2 As String
chemin2 = Range('chemin!a6')

'Test si le fichier est déjà ouvert...

On Error Resume Next

Workbooks(chemin2).Activate
If Err = 0 Then
Call copicolle1
Exit Sub

Else:
Workbooks.Open Filename:=chemin2
Call copicolle1
Exit Sub
End If
End Sub
Private Sub copicolle1()

'selectionne la feuil1
Worksheets('feuil1').Select