Comment sauvegarder une feuille d'un classeur

Le 08/12/2013 à 16:15

Bonjour a tous,

Donc voilà je vous explique mon problème (comme plein d'autre sur ce même forum )

J'ai une feuille de pointage que je souhaite automatiser jusqu'ici ça fonctionne par-contre je viens de m’apercevoir d'une chose... la sauvegarde !

En faite je voudrais sauvegarder unique la feuille "matrice" en écrasant le fichier d'origine.

Merci a tous pour votre aide

Le 11/12/2013 à 09:28

cco86260 a écrit :
Bonjour a tous,
Donc voilà je vous explique mon problème (comme plein d'autre sur ce même forum )
J'ai une feuille de pointage que je souhaite automatiser jusqu'ici ça fonctionne par-contre je viens de m’apercevoir d'une chose... la sauvegarde !
En faite je voudrais sauvegarder unique la feuille "matrice" en écrasant le fichier d'origine.
Merci a tous pour votre aide

Pas de réponse ?

Le 11/12/2013 à 10:26

Bonjour

A tester

Application.DisplayAlerts = False
' Ta sauvegarde
Application.DisplayAlerts = True

Le 17/12/2013 à 13:23

Merci Banzaï64,

Cela fonctionne,

et pour ce que cela intéresse, voici le code, il supprime toute les feuilles sauf une, puis sauvegarde le classeur en l’écrasant

Sub es()
Dim ws As Worksheet
Sheets("MATRICE").Visible = True
With Application
    .DisplayAlerts = False
    .ScreenUpdating = False
       For Each ws In Worksheets
        If ws.name <> "MATRICE" Then ws.Delete
      Next ws
    .DisplayAlerts = True
    .ScreenUpdating = True

End With

Application.DisplayAlerts = False
' Ta sauvegarde
ThisWorkbook.SaveAs "RapHebdo"
Application.DisplayAlerts = True
Application.Quit

End Sub

Que voici,

A bientôt