XL 2013 Copier une feuille vers divers classeurs

[tototn]

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.

 

[vgendron]

Bonjour

j'imagine que ta macro bug ici
Set WB = Workbooks.Open(f2)
Worksheets("Recap annu").Delete

quand tu executes la première ligne ==> Le classeur est bien ouvert ET devient le claseur actif
la deuxième ligne de code essaie de supprimer la feuille "Recap annu" DU FICHIER ACTIF..

 

[tototn]

merci de votre aide mais ca buggue toujours dans sheets(2) voila capture d ecran