sauvegarde d'une feuille?

[phil59110]

bonsoir a tous et a toutes!!!!
voila j'ai un classeur que je sauvegarde tous les jours pour pour pouvoir en suite comparer les resulats seullement a force de sauvegarder tout les jour un classeur de 10M ça commence a faire lourd sur mon disque donc je voudrais savoir si il y aurais pas possibilité de sauvegarder uniquement la feuille de mon classeur qui m'intéressse avec la date du jour

merci beaucoup!!!!!!

 

[vbacrumble]

Re : sauvegarde d'une feuille?

Bonsoir


C'est possible par macro

Tu connais le VBA ?

EDITION: voici un exemple à adapter : sauvegarde de la feuille active en 1 classeur
contenant une seule feuille.

Sub SauveFeuilleVersClasseur()
Dim wb As Workbook, wb2 As Workbook
Dim ws As Worksheet
Dim Chemin$, NomFichier$
Set wb = ThisWorkbook
Set ws = wb.ActiveSheet
     
With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
End With
   
Set wb2 = Workbooks.Add(xlWBATWorksheet)
ws.Copy Before:=wb2.Sheets(1)
For Each ws2 In wb2.Worksheets
    If Not ws2.Name = ws.Name Then ws2.Delete
Next ws2

NomFichier = _
        ws.Name & "_ " & Format(Date, "ddmmyyyy") & ".xls"
Chemin = _
        InputBox("Saisir le nom du répertoire de sauvegarde", _
        "Choix Répertoire", _
        "C:\Temp") & "\"
        
wb2.SaveAs (Chemin + NomFichier)
wb2.Close

    With Application
        .DisplayAlerts = True
        .ScreenUpdating = True
    End With
End Sub

A+

 

[phil59110]

Re : sauvegarde d'une feuille?

Bonsoir


C'est possible par macro

Tu connais le VBA ?

EDITION: voici un exemple à adapter : sauvegarde de la feuille active en 1 classeur
contenant une seule feuille.

Sub SauveFeuilleVersClasseur()
Dim wb As Workbook, wb2 As Workbook
Dim ws As Worksheet
Dim Chemin$, NomFichier$
Set wb = ThisWorkbook
Set ws = wb.ActiveSheet
     
With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
End With
   
Set wb2 = Workbooks.Add(xlWBATWorksheet)
ws.Copy Before:=wb2.Sheets(1)
For Each ws2 In wb2.Worksheets
    If Not ws2.Name = ws.Name Then ws2.Delete
Next ws2

NomFichier = _
        ws.Name & "_ " & Format(Date, "ddmmyyyy") & ".xls"
Chemin = _
        InputBox("Saisir le nom du répertoire de sauvegarde", _
        "Choix Répertoire", _
        "C:\Temp") & "\"
        
wb2.SaveAs (Chemin + NomFichier)
wb2.Close

    With Application
        .DisplayAlerts = True
        .ScreenUpdating = True
    End With
End Sub

A+

merci vbacrumble!!
je vais testé ça mais comme dans mon classeur j'ai 8 feuilles est ce que ça va aller pour juste sauver la feuille qui m'intéresse je sais adapter ou modifier certaine macro mais je suis pas aussi fort que vous dans le domaine!

merci beaucoup!!!!!

 

[vbacrumble]

Re : sauvegarde d'une feuille?

Re



Si le nom de ta feuille est connu à l'avance et fixe
Ex: si le nom est MaFeuille

modifie cette ligne

Set ws = wb.ActiveSheet

en

Set ws = wb.Sheets("MaFeuille")

A+

 

[phil59110]

Re : sauvegarde d'une feuille?

Re



Si le nom de ta feuille est connu à l'avance et fixe
Ex: si le nom est MaFeuille

modifie cette ligne

en


A+

ok je fait ça je te remerci beaucoup Vbacrumble !!!!!
bonne soirée a toi!!!