je désire faire tourner cette macro en boucle pour écrire sur les classeurs situés dans le dossier ciblé; mais j'ai un soucis avec l'instruction d'enregistrement SaveAs qui génère
run time error 1004 method saveas of object _workbook failed
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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
        Application.DisplayAlerts = False
          Set wb = Workbooks.Open(f2)
          ActiveSheet.Cells(11, 44).Value = "my bla bla"
          ActiveSheet.Cells(25, 39).Value = "my bla bla"
          wb.SaveAs Filename:=wb.Path & "\Xl4-" & wb.Name,FileFormat:=xlExcel4Workbook
          wb.Close False
        Application.DisplayAlerts = True
    Next f2
Next f1
 
End Sub
je vous remercie de votre aide ou autre conseils afin que je puisse enregistrer mes classeur excel avec leur nom et format d'origine ,