Bonjour à tous
J'utilise la macro ci-dessous pour extraire des onglets d'un fichier vers un autre. Celle ci conserve les formules liées aux autres onglets
Comment pourrais je mettre à jour cette macro afin d'extraire les onglets en valeur ?
Merci par avance
Cordialement
Sub Splitbook()
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
xWs.Copy
Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"
Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
J'utilise la macro ci-dessous pour extraire des onglets d'un fichier vers un autre. Celle ci conserve les formules liées aux autres onglets
Comment pourrais je mettre à jour cette macro afin d'extraire les onglets en valeur ?
Merci par avance
Cordialement
Sub Splitbook()
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
xWs.Copy
Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"
Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub