renseignement sur bug macro

[bpol]

bonjour,

j'avance dans mes projets, mais maintenant j'ai une macro qui bug à la dernière ligne

quelqu'un pourrait me donner la raison?

Workbooks("tempsFF.xls").Close
'and
Workbooks.Open "N:\Public\tempsFF.xls"
'and
Workbooks("tempsFF.xls").Worksheets("temps").Range("A1:C220").Copy Workbooks("Classeur1").Worksheets("Feuil1").Range("A1")
'and
Workbooks("Classeur1").Worksheets("Feuil1").Range("E2") = Now()
'and
Workbooks("Classeur1").Worksheets("Feuil1").Select

P;S.: la macro se trouve dans un fichier sur disque D et disque N = serveur nas (par internet)
Bpol

 

[bpol]

Re : renseignement sur bug macro

RE,

problème résolu

j'ai emplacé Select par Activate et cela fonctionne

Bpol