bonjour,
je recherche une solution pour pouvoir depuis un classeur avec plusieurs onglets
me retrouver avec un fichier par onglets donc decompiler le classeur.
j 'ai trouvé cette formule sur internet mais je ne comprends pas pourquoi elle ne fonctionne pas. vous pourrez peut etre m'aider.
merci d'avance.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub saveOnglet()
Dim ws
Dim newWk As Workbook
 
    For Each ws In Worksheets
        Set newWk = Workbooks.Add(xlWBATWorksheet)
        ws.Copy newWk.Sheets(1)
        newWk.SaveAs (ws.Name & ".xls")
        newWk.Close
        Set newWk = Nothing
    Next ws
 
End Sub