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.
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.
