J
JB
Guest
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
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