Microsoft 365 Sauvegarde automatique

[Philippe17]

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

 

[Eric C]

Bonsoir le forum
Bonsoir Philippe17


A modifier dans le MsgBox:

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

Bonne fin de ouikand
@+ Eric c

 

[Philippe17]

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]

Re,

Essaie avec ceci (à paufiner).

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]

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]

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]

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]

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]

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]

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) :

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]

Re,

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

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

@+ Eric c

 

[Philippe17]

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]

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

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

Merci à tous,

Philippe