Complément VBA

Bonjour,

j'ai adapté le code ci-dessous (trouvé sur ce forum) me permettant d'extraire les données de tous les onglets de mon classeur sur des classeurs individuels; (nombre de classeurs identiques aux nombres d'onglets).

Sub saveOnglet()

Dim ws

Dim newWk As Workbook

Dim Chemin As String

Chemin = "C:\Users\ADMIN\Desktop\LCW\"

For Each ws In Worksheets

Set newWk = Workbooks.Add(xlWBATWorksheet)

ws.Copy newWk.Sheets(1)

newWk.SaveAs (Chemin & ws.Name & ".xlsx")

newWk.Close

Set newWk = Nothing

Next ws

End Sub

Les données de mon classeur source sont sous format "tableau" car générées par POWER QUERY.

Est-il possible de compléter ce code afin que de convertir les données des classeurs individuels (générés par la macro) du format "table" à un format "plage".

Espérant avoir été clair dans mes explications.

Par avance merci.

Bonjour,

Sub saveOnglet()
Dim ws
Dim newWk As Workbook
Dim Chemin As String
Chemin = "C:\Users\ADMIN\Desktop\LCW\"
For Each ws In Worksheets
Set newWk = Workbooks.Add(xlWBATWorksheet)
ws.Copy newWk.Sheets(1)
ActiveSheet.ListObjects(1).Unlist  ' la plage de cellules qui composait la liste redevient une plage de données ordinaire
newWk.SaveAs (Chemin & ws.Name & ".xlsx")

newWk.Close
Set newWk = Nothing
Next ws
End Sub

Bonsoir,

c'est tout juste parfait !

Merci beaucoup.

Bonne soirée.