XL 2016 Macro Extraire onglet en Valeur

[bast0504]

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

 

[Dranreb]

Bonsoir.
Essayez en ajoutant With Activesheet.UsedRange: .Value = .Value: End With

 

[don_pets]

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

Hello,

Tu peux nous glisser un fichier d'exemple afin de cerner au mieux ton besoin ?

 

[bast0504]

Bonjour

Vous trouverez en pièce jointe un exemple à partir duquel je souhaite extraire les onglet pays mais les formules restent liées au fichier

Comment modifier ma macro pour que les chiffres soient en valeurs ?

Merci par avance

 

[Dranreb]

Bonsoir.
Pourquoi ?
Ça ne marche pas en ajoutant With Activesheet.UsedRange: .Value = .Value: End With juste après la copie de la feuille ?

 

[bast0504]

Bonjour Dranreb

En integrant la ligne de code, la macro ne fait pas la copie comme recherché. Est ce que la ligne est bien intégrée dans le code ci-dessous

Sub Splitbook()
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
xWs.Copy
With ActiveSheet.UsedRange: .Value = .Value:
Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"
Application.ActiveWorkbook.Close False
End With
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Merci

 

[Dranreb]

Non. Le End With doit être laissé à la fin de la ligne, le With ActiveSheet.UsedRange ne servant qu'à éviter une répétition de cette expression.