Bonjour tout le monde
j ai essaie ce module pour copier une feuille modifiee dans divers classeurs suivant module suivant.
Sub test()
Dim Fso As Object, MonRepertoire As String
Dim f1 As Object, f2 As Object, WB As Workbook
Dim ClasSou As Workbook, ClasBis As Workbook
Dim i As Byte
Set Fso = CreateObject("Scripting.FileSystemObject")
MonRepertoire = "C:\DECLARATION 2022 FINAL DERNIER\Déclaration Societe 2022\zzzzz\"
For Each f1 In Fso.GetFolder(MonRepertoire).SubFolders
For Each f2 In f1.Files
Set WB = Workbooks.Open(f2)
Worksheets("Recap annu").Delete
Workbooks(WB).Sheets("Imprimer declaration").Copy After:=.Sheets(7)
WB.Close SaveChanges:=True
Next f2
Next f1
End Sub
la feuille recap annu se delete au fichier destinataire
mais la copie du fichier ou se trouve la module vers le fichier destinataire erreur l indice n appartient pas
merci de votre aide.
j ai essaie ce module pour copier une feuille modifiee dans divers classeurs suivant module suivant.
Sub test()
Dim Fso As Object, MonRepertoire As String
Dim f1 As Object, f2 As Object, WB As Workbook
Dim ClasSou As Workbook, ClasBis As Workbook
Dim i As Byte
Set Fso = CreateObject("Scripting.FileSystemObject")
MonRepertoire = "C:\DECLARATION 2022 FINAL DERNIER\Déclaration Societe 2022\zzzzz\"
For Each f1 In Fso.GetFolder(MonRepertoire).SubFolders
For Each f2 In f1.Files
Set WB = Workbooks.Open(f2)
Worksheets("Recap annu").Delete
Workbooks(WB).Sheets("Imprimer declaration").Copy After:=.Sheets(7)
WB.Close SaveChanges:=True
Next f2
Next f1
End Sub
la feuille recap annu se delete au fichier destinataire
mais la copie du fichier ou se trouve la module vers le fichier destinataire erreur l indice n appartient pas
merci de votre aide.