Enregistrement auto avec message confirmation

Bonjour le forum,

je cherche (via macro) un moyen d'enregistrer automatiquement mon fichier toutes les 10 minutes mais avec un message pour confirmer.

Si vous pouviez m'aider...

Je vous remercie d'avance.

Christophe.

Hello,

Essaye ce code :

A placer dans thisworkbook

Private Sub Workbook_Open()
'à l'ouverture définit l'heure et la date
debut = Now

   'si temps écoulé ici 600s soit 10 minutes, alors sauvegarde
    If DateDiff("s", debut, Now) > 600 Then
         'Désactivation des alertes excel
        Application.DisplayAlerts = False
        'Sauvegarde du classeur
        ThisWorkbook.Save
        'Message de confirmation
        MsgBox "ok sauvegardé"
        'réactivation des alertes excel
        Application.DisplayAlerts = True
        'réinitialisation de début pour refaire le test autant de fois que necessaire
        debut = Now
    End If

End Sub

Au niveau de ThisWorkbook.Save, tu peux aussi définir des options de sauvegarde (chemin fichier, nom fichier, désactivation d'alerte, fermeture, écraser un fichier,...

Voilà

merci waard!

ça ne fonctionne pas, je suis sous 2007...

En tout cas merci..je mets le fichier au cas ou.

le message que je voudrais c'est pour lancer ou non l'enregistrement programmé non pas pour confirmer que cela a été fait.

encore merci à tous

Hello,

En regardant des vieux messages entre 2000 et 2007 sur Google, j'ai repris ce code, il est compatible avec ma version 2010, ça devrait être bon pour toi :

A mettre dans thisworkbook :

Private Sub Workbook_Open()
debut = now
'lance boucle macro mymacro à l'ouverture quand atteint 10 minutes
Application.OnTime now + TimeValue("00:10:00"), "MyMacro"

End Sub

A mettre dans module

Sub MyMacro()
'si temps écoulé ici 600s soit 10 minutes, alors sauvegarde
If DateDiff("s", debut, now) > 600 Then
'Désactivation des alertes excel
Application.DisplayAlerts = False
'Message de demande confirmation sauvegarde
Select Case MsgBox("Voulez-vous sauvegarder ?", vbOKCancel + vbInformation, "Sauvegarde Automatique 10 minutes")
   'Si OK
   Case vbOK
      'Sauvegarde du classeur
       ThisWorkbook.Save
        'Message de confirmation
       MsgBox "ok sauvegardé"
   'Si non annulation
   Case vbCancel
End Select 'Fin message OUI/NON
'MàJ de la variable now
debut = now
'activation des alertes excel
Application.DisplayAlerts = True
End If
'Relance la macro
Application.OnTime now + TimeValue("00:10:00"), "MyMacro"
End Sub

A tester

Super ! ça à l'air de fonctionner ! Merci beaucoup.