Enregistrement automatique

[maval]

Bonjour,

J'ai un code pour lancer une sauvegarde automatique toutes les 5 minutes en VB

Mais j'aimerai bloquer à l'aide d'un bouton pour ne pas enregistrer de façon que lorsque je modifie "Formules, code ou autre" sa n'enregistre pas et que je puisse remettre en marche après avoir fini les modifications

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:05:00"), "EnregistrerFichier"
    End Sub

Merci de votre aide

Cordialement

Maval

 

[job75]

Re : Enregistrement automatique

Bonjour maval,

Voyez le fichier joint, ses macros et son bouton.

La temporisation est réglée sur 10 secondes pour voir quelque chose.

Nota : téléchargez d'abord le fichier sur le bureau...

A+

 

[maval]

Re : Enregistrement automatique

Bonjour Job,

Nickel je te remercie et te souhaite une bonne après-midi

@+

Max

 

[job75]

Re : Enregistrement automatique

Re,

Le fichier (1) utilisait un bouton Formulaire, ce fichier (2) utilise un bouton ActiveX.

A+