Navigation parmi des classeurs

Bonjour,


je parcours des classeurs qui ne sont pas sauvegardé pour en extraire des données...mais rien a faire ma macro n'arrive pas a rentrer dans ces classeurs...comme si elle ne les reconnaissaent pas.


For Each wbkx In Application.Workbooks
wbkx.Activate
Name = Left(wbkx.Name, 6)
If Name = "Report" Then
' j'extrais mes données
End If
Next

Quelqu'un pourrais m'expliquer ce que je fais mal ?

Merci beaucoup.