Sauvegarde automatique d'un fichier Excel

3

J'aimerais que le fichier Excel se sauvegarde automatiquement au même nom dans le même répertoire, périodiquement (exemple au 5 minutes) dès son ouverture.

Je ne parle pas de la sauvegarde automatique à des fins de récupération, mais plutôt d'automatiser l'enregistrement manuel du fichier sans aucune intervention de l'utilisateur.

Merci

Posté le 13 décembre 2016, 14:49
par Billetar
Répondre
4

Bonsoir Billetar,

"La politesse est comme le zéro, qui, sans avoir de valeur en soi, en ajoute à toutes choses"


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

Dans un module
Sub EnregistrerFichier()
ActiveWorkbook.Save
End Sub

Cela convient-il ?

Cordialement.


mdo100 Posté le 13 décembre 2016, 21:49
par mdo100
  • Excuse moi pour mon message sans formule de politesse. J'étais absorbé par mon problème et j'ai oublié les bonnes manières. J'ai inclus les codes que tu m'a donné ci-dessus dans le code VB d'une macro et cela fonctionne à merveille en autant que je sois positionné sur le classeur Excel où la macro a été ajoutée. Est-ce possible que la sauvegarde auto s'effectue sur le fichier visé même si je suis positionné sur un autre classeur? Est-ce possible après la sauvegarde d'afficher une boîte de dialogue qui nous informe que la sauvegarde a été effectué? Merci beaucoup pour ton aide – billetar 14 décembre 2016, 03:43
4

Bonjour Billetar,

Modifier la macro dans le module comme ceci.

Option Explicit

Sub EnregistrerFichier()

ActiveWorkbook.Save
MsgBox "Votre classeur (Truc Muche) a été sauvegardé"

End Sub

Sachant que l'enregistrement automatique se fait qu'une seule fois, même si on clique dans une autre cellule, ce qui n'empêchera pas de travailler sur un autre classeur, la MsgBox t'avertira que le classeur (Truc Muche) à été sauvegardé.

Cordialement.


mdo100 Posté le 14 décembre 2016, 17:23
par mdo100
4

Merci beaucoup ça fonctionne très bien :)

Posté le 17 décembre 2016, 15:05
par Billetar

Si vous n'êtes pas inscrit sur le site, vous pouvez poster librement (en tant qu'invité).
Pour cela, indiquez un pseudonyme (nom d'utilisateur) et une adresse email :