Bonjour à tous,
voila en fait j'ai une macro qui m'ouvre plusieurs fichiers, je copie un onglet puis j'aimerai que la macro me ferme tous les classeurs commencant par stock, j'utilise ce code mais il me ferme que le classeur ou il y a la macro et pas les autres.
Dim Wb As Object
For Each Wb In Application.Workbooks
If Left(Wb.Name, 1) = S And Wb.Name <> ThisWorkbook.Name Then
On Error Resume Next
Wb.Saved = False
Wb.Close
End If
Next Wb
ThisWorkbook.Saved = False
ThisWorkbook.Close
End Sub
Auriez vous la solution ??
Merci d'avance
voila en fait j'ai une macro qui m'ouvre plusieurs fichiers, je copie un onglet puis j'aimerai que la macro me ferme tous les classeurs commencant par stock, j'utilise ce code mais il me ferme que le classeur ou il y a la macro et pas les autres.
Dim Wb As Object
For Each Wb In Application.Workbooks
If Left(Wb.Name, 1) = S And Wb.Name <> ThisWorkbook.Name Then
On Error Resume Next
Wb.Saved = False
Wb.Close
End If
Next Wb
ThisWorkbook.Saved = False
ThisWorkbook.Close
End Sub
Auriez vous la solution ??
Merci d'avance