coucou  
j'essaie d'écrire sur plusieurs fichiers excel en boucle for each;le soucis est que mon programme ouvre réellement les fichiers .
 
est ce vous pouvez m'aidez svp pour finir mon petit programme tout en sachant que j'ai un besoin urgent.  
 
Option Explicit
Sub test()
Dim Fso As Object, MonRepertoire As String
Dim f1 As Object, f2 As Object, wb As Workbook
 
Set Fso = CreateObject("Scripting.FileSystemObject" )
MonRepertoire = "C:\..\"
 
For Each f1 In Fso.GetFolder(MonRepertoire).SubFolders
For Each f2 In f1.Files
Set wb = Workbooks.Open(f2)
ActiveSheet.Cells(11, 44).Value = "bla bla bla"
ActiveSheet.Cells(25, 39).Value = "bla bla bla"
f2.Close
wb.Close
Next f2
Next f1
End Sub
je vous remercie de votre compréhension