Sauvegarde automatique

Bonsoir,

je voudrais lancer une sauvegarde automatique, à chaque fois que je rentre des données dans une feuille.

voici mon code, mais il me repond qu'il y a une erreur de compilation. en rouge

With Application.AutoRecover

.Enabled = True

.Time = 5

End With

merci de votre aide

Doliprane

Bonjour Doliprane, le forum,

Un essai ci-joint. Je cherche une solution pour éviter le message d’Excel.

Cordialement,

Bernard

re,

merci de te pencher sur mon prob.

Ton fichier marche, par contre, vu que j'ai plusieurs feuilles dois-je répéter dans toutes les feuilles.

je m'explique:

1 feuille création Véhicule

1 feuille modification véhicule

1 feuille entrée

1 feuille modif entrée

ces 4 feuilles sont renseignées soit en création ou en modif.

Je voudrais savoir si ton code je le met dans les 4 feuilles si oui ou?

MERCI

DOLI

Bonjour

Comme tu as mis dans ton code TIME=5, je considère que tu veux enregistrer toutes les 5 secondes (ou minutes).

Cette méthode enregistre automatiquement le fichier toutes les 5 secondes

Dans un module

Sub EnregistrerFichier()
ActiveWorkbook.Save
End Sub

Dans ThisWorkBook

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.OnTime Now + TimeValue("00:00:05"), "EnregistrerFichier"
End Sub

Pour Bernard, pour ne pas avoir le message :

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim xchemin As String, xnom As String
  Application.DisplayAlerts = False
  xchemin = "C:\" ' à adapter
  xnom = "sauvegarde.xls" ' à adapter
  SaveAs (xchemin & xnom)
  Application.DisplayAlerts = True
End Sub

Amicalement

Nad

Bonsoir Doliprane, le forum,

Tu peux mettre le code, amélioré par Nad, sur chaque feuille.

Bonsoir Nad,

Un grand merci pour l’information.

Amicalement,

Bernard

bonsoir,

Je vous remerci bcp, pour cette solution

et merci pour votre enseignement.

Amicalement,

Doliprane

Bonsoir

Juste pour être sûre que tu as bien compris.

Soit tu prends le code de Bernard et tu le colles dans toutes les feuilles, soit tu places mes 2 codes comme indiqué (ThisWorkbook et Module - pas de code dans les feuilles)

Amicalement

Nad