Microsoft 365 Sauvegarde automatique

Philippe17 · 20 Avril 2024

Bonsoir à tous,

J'ai copié un bout de code VBA dans « ThisWorkbook » quand je ferme mon classeur, il me crée une sauvegarde automatiquement dans mes documents, à la fermeture. Il me prévient par message Box que la sauvegarde va s'effectuer, je n'ai que OK pour valider, possible d'avoir un message Box pour confirmer par « oui ou non ” ?

Merci pour votre aide,

Philippe

patricktoulon · 20 Avril 2024

VB:

Private Sub workbook_beforeclose(cancel As Boolean)
' Déclaration des variables
    Dim Nomdossier$, NonFichier$, Rep As VbMsgBoxResult
    ' Affectation des variables
    Nomdossier = "C:\Users\vrign\Documents\"
    ' Désactive les messages d'alertes
    Application.DisplayAlerts = False
    'on crée le nom du fichier de sauvegarde 'Date + Nom)
    NomFichier = Day(Date) & "_" & Month(Date) & "_" & Year(Date) & "_" & "Sauvegarde.xlsm"
     ' On affiche un message de demande d'enregistrement
    Rep = MsgBox("Votre Fichier de sauvegarde intitulé : " & NomFichier & vbNewLine & _
                 "dans le dossier suivant : " & Nomdossier, vbYesNo + vbinforlation, "CONFIRMATION")
    If Rep = vbYes Then
     ' On sauvegarde le fichier...

Eric C · 20 Avril 2024

Bonsoir le forum
Bonsoir Philippe17

A modifier dans le MsgBox:

VB:

"dans le dossier suivant : " & Nomdossier, vbYesNoCancel + vbInformation, "CONFIRMATION"

Bonne fin de ouikand
@+ Eric c

Philippe17 · 20 Avril 2024

Merci Eric C,
C'est bien ce que je désire, mais j'ai un problème, quand je valide « NON » il enregistre quand même, vous pouvez m'aider svp ?

Philippe

Eric C · 20 Avril 2024

Re,

Essaie avec ceci (à paufiner).

VB:

Private Sub workbook_beforeclose(cancel As Boolean)

    ' Déclaration des variables
    Dim Nomdossier As String
    Dim NonFichier As String
Dim rep As Variant

    ' Affectation des variables
    Nomdossier = "C:\a\A effacer\"
    ' Désactive les messages d'alertes
   ' Application.DisplayAlerts = False
    'on crée le nom du fichier de sauvegarde 'Date + Nom)
    NomFichier = Day(Date) & "_" & Month(Date) & "_" & Year(Date) & "_" & "Sauvegarde2.xlsm"
    ' On sauvegarde le fichier de backup
    ' On affiche un message de confirmation
 rep = MsgBox("Enregistrement de votre fichier de sauvegarde", vbOKCancel, "CONFIRMATION")
If rep = vbCancel Then
Exit Sub
Else
       ActiveWorkbook.SaveCopyAs Nomdossier & NomFichier
    
  '  MsgBox "Enregistrement de votre fichier de sauvegarde intitulé : " & NomFichier & vbNewLine & _
   '          "dans le dossier suivant : " & Nomdossier + vbinforlation, "CONFIRMATION"

End If
End Sub

@+ Eric c

patricktoulon · 20 Avril 2024

VB:

Private Sub workbook_beforeclose(cancel As Boolean)
' Déclaration des variables
    Dim Nomdossier$, NonFichier$, Rep As VbMsgBoxResult
    ' Affectation des variables
    Nomdossier = "C:\Users\vrign\Documents\"
    ' Désactive les messages d'alertes
    Application.DisplayAlerts = False
    'on crée le nom du fichier de sauvegarde 'Date + Nom)
    NomFichier = Day(Date) & "_" & Month(Date) & "_" & Year(Date) & "_" & "Sauvegarde.xlsm"
     ' On affiche un message de demande d'enregistrement
    Rep = MsgBox("Votre Fichier de sauvegarde intitulé : " & NomFichier & vbNewLine & _
                 "dans le dossier suivant : " & Nomdossier, vbYesNo + vbinforlation, "CONFIRMATION")
    If Rep = vbYes Then
     ' On sauvegarde le fichier de backup
      ActiveWorkbook.SaveCopyAs Nomdossier & NomFichier
    Else
        MsgBox "Annulation de l'enregistrement "
    End If
End Sub

Staple1600 · 21 Avril 2024

Bonjour le fil

[Pour infos]
Sinon Excel sait faire cela tout seul, sans VBA

Et comme tu utilises 365 tu peux aussi faire une sauvegarde sur OneDrive.

Mais on peut préférer voir s'afficher une MsgBox et devoir cliquer sur Oui ou Non

Philippe17 · 21 Avril 2024

Bonjour, je vous remercie tous et merci patricktoulon,
La solution de patricktoulon me plais beaucoup et c'est bien ce que je voulais, je viens de m'apercevoir que si je pouvais enregistrer plusieurs sauvegardes, ce serait génial ! croyais vous que ce soit possible,
exemple : 21_04_2024_10h20_Sauvegarde.xlsm & 21_04_2024_10h25-Sauvegarde.xlsm et ainsi de suite !

Bon dimanche à vous tous,

Philippe

Staple1600 · 21 Avril 2024

Re

Pour infos (bis)
C'est aussi ce que fait Excel automatiquement
On peut choisir d'ouvrir plus versions d'un même fichier
(voir ci-dessous)
Pour ce faire: Fichier -> Informations

EDITION: Bonjour @Eric C

Philippe17 · 21 Avril 2024

Bonjour Staple 1600,
Merci pour la réponse et merci pour les infos, mais comme vous avez dit plus haut, je préfère cliquer sur Oui ou Non,
Bonne journée,

Philippe

Eric C · 21 Avril 2024

Re le forum
Re le fil, bonjour staple1600

Je te propose en reprenant le fichier de notre ami Patrick..... Oupsssss... (que je salue au passage) :

VB:

Private Sub workbook_beforeclose(cancel As Boolean)

   Dim Nomdossier$, NomFichier$, Rep As VbMsgBoxResult
    ' Affectation des variables
    Nomdossier = "C:\a\A effacer\"
    ' Désactive les messages d'alertes
  '  Application.DisplayAlerts = False
    'on crée le nom du fichier de sauvegarde 'Date + Nom)
    NomFichier = Format(Date, "dd-mm-yy") & " " & "à" & " " & Format(Time, "h- mm") & "-" & "Sauvegarde" & ".xlsm"
     ' On affiche un message de demande d'enregistrement
    Rep = MsgBox("Votre Fichier de sauvegarde intitulé : " & NomFichier & vbNewLine & _
                 "dans le dossier suivant : " & Nomdossier, vbYesNo + vbinforlation, "CONFIRMATION")
    If Rep = vbYes Then
     ' On sauvegarde le fichier de backup
      ActiveWorkbook.SaveCopyAs Nomdossier & NomFichier
    Else
        MsgBox "Annulation de l'enregistrement "
    End If
End Sub

@+ Eric c

Eric C · 21 Avril 2024

Re,

Si tu désires l'heure dans le nom du fichier :

VB:

 NomFichier = Format(Date, "dd-mm-yy") & " " & "à" & " " & Format(Time, "h""H""mm") & "-" & "Sauvegarde" & ".xlsm"

@+ Eric c

Philippe17 · 21 Avril 2024

Merci Eric C.,
Excellent, j'ai rajouté la ligne pour les heures, impeccable,
Je vous remercie pour vos réponses et votre aide,
Bonne fin de journée,

Philippe

Philippe17 · 21 Avril 2024

Attention, pour ceux qu'ils veulent utiliser ce code qui fonctionne à merveille,
changer "vbinforlation" par "vbInformation"

VB:

"dans le dossier suivant : " & Nomdossier, vbYesNo + vbinforlation, "CONFIRMATION")

Merci à tous,

Philippe

Microsoft 365 Sauvegarde automatique

Philippe17

XLDnaute Occasionnel

Pièces jointes

patricktoulon

Eric C

XLDnaute Barbatruc

Philippe17

XLDnaute Occasionnel

Eric C

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Philippe17

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Philippe17

XLDnaute Occasionnel

Eric C

XLDnaute Barbatruc

Eric C

XLDnaute Barbatruc

Philippe17

XLDnaute Occasionnel

Philippe17

XLDnaute Occasionnel

Discussions similaires