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