XL 2019 Modification macro déplacement feuilles

[pierrelcq]

Bonjour,

J'utilise une macro pour archiver une feuille d'un fichier Excel vers un fichier Excel spécialement pour l'archivage de mes données.

Cela marche très bien, mais je souhaiterais une petite modification.

Les données sur mon Excel principal sont liées à un autre Excel, donc forcément lorsque je lance la macro achivage, la feuille que j'obtiens archivée est elle aussi lié au même excel et je souhaiterais briser ce lien.

En clair je souhaiterais archiver uniquement les informations brutes et non les formules.

C'est un peu confus et j'en suis désolé.

Voila la macro que j'utilise actuellement :

Sub Archivage()

Dim fichier_data As Workbook
Dim fichier_globale As Workbook
Dim ws_data As Worksheet
Dim onglet As Worksheet
Dim ws_menu As Worksheet
Dim chemin_globale As String
Dim numero_semaine As Long

chemin_globale = "G:\Pierre\HISTORIQUE EXCEL\BDDEXCEL.xlsm"

Set fichier_data = ActiveWorkbook
Set ws_data = fichier_data.Worksheets(2)

Set fichier_globale = Application.Workbooks.Open(chemin_globale)
Set ws_menu = fichier_globale.Worksheets("Menu")

ws_data.Copy after:=ws_menu

numero_semaine = fichier_globale.Worksheets(3).Name + 1

fichier_globale.Worksheets(2).Name = numero_semaine

End Sub


Je vous remercie d'avance.

Bien cordialement

Pierre

 

[Robert]

Bonjour Pierre, bonjour le forum,

Peut-être en rajoutant ces deux lignes avant le End Sub :

fichier_globale.Worksheets(2).Cells.Copy
fichier_globale.Worksheets(2).Range("A1").PasteSpecial (xlPasteValues)

 

[pierrelcq]

ça marche très bien, merci beaucoup !!