Macro écriture sans ouverture fichier

[varik]

Bonjour tout le monde et merci de votre attention;j'essaie d'écrire sur plusieurs fichiers excel en parcourant dossier et sous dossier. le soucis et que le programme m'ouvre mes fichiers excel et la fonction save me lance une erreur

j'aimerais savoir si je ne me trompe pas de procédure et je tiens à signaler que les fichiers sur lesquelles d'écrire sont sous le format 97-2003 .

merci d'avance pour votre collaboration

Option Explicit
Sub PRINTER()
Dim Fso As Object, MonRepertoire As String
Dim f1 As Object, f2 As Object, wrk As Workbook

Set Fso = CreateObject("Scripting.FileSystemObject")
MonRepertoire = "C:\Documents and Settings\FR22034\Bureau\RETEST"

For Each f1 In Fso.GetFolder(MonRepertoire).SubFolders
For Each f2 In f1.Files

Set wrk = Application.Workbooks.Open(f2)

'modifie la cellule A1 de l'onglet Feuil1
wrk.ActiveSheet.Cells(11, 44).Value = "xxxxxxxxx"
wrk.ActiveSheet.Cells(25, 39).Value = "xxxxxxxxx"


'Sauvegarde le classeur
wrk.Save

'Ferme le classeur et libère la variable wrk
wrk.Close
Set wrk = Nothing
Next f2
Next f1
End Sub