Sauvegarde de classeur ( mais pas en lecture seule ) Résolu/Fermé

Question

Bonjour,

j'utilise un code pour la sauvegarde d'un fichier important,
ça fonctionne bien par contre le problème c'est que cette sauvegarde automatique s'effectue même si je suis en lecture seule sur le fichier.


J'aimerais adapter ce code pour que la sauvegarde n'intervienne pas sur un fichier en lecture seule mais je ne sais pas comment.

Voici les codes 

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Chemin = "C:\"
  ClasseurCible = "CLOSE Synthese Mens.xlsm"
  ThisWorkbook.SaveCopyAs Chemin & ClasseurCible & " " & Format(Now, "dd-mm-yyyy" & " à " & _
 "hh""h""mm""'""ss""''""") & ".xlsm"

End Sub

Private Sub Workbook_Open()
Chemin = "C:\"
  ClasseurCible = "OPEN Synthese Mens.xlsm"
  ThisWorkbook.SaveCopyAs Chemin & ClasseurCible & " " & Format(Now, "dd-mm-yyyy" & " à " & _
 "hh""h""mm""'""ss""''""") & ".xlsm"

End Sub

Par avance merci

cs_Le Pivert · Answer

Bonjour,

Comme ceci dans ThisWorkbook:

Option Explicit
Dim seul As Boolean
Dim chemin, ClasseurCible
Private Sub Workbook_Open()
If Workbooks("Classeur1.xls").ReadOnly = True Then
     seul = True
    Else
     seul = False
    End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If seul = True Then
Application.ThisWorkbook.Saved = True
Else
chemin = "C:\Users\.....\Documents\"
ClasseurCible = "Classeur1.xls"
ThisWorkbook.SaveCopyAs chemin & ClasseurCible & " " & Format(Now, "dd-mm-yyyy" & " à " & _
"hh""h""mm""'""ss""''""") & ".xlsm"
End If
End Sub

cs_Le Pivert · Answer

Je n'ai aucun message d'erreur!

Ce que tu demandes n'est faisable que si tu changes à chaque fois que c'est toi qui l'ouvre la lecture seule. C'est assez astreignant. Il faudrait voir une autre solution.

cs_Le Pivert · Answer

Quand je lis cela:

En fait, je souhaite que le classeur soit sauvegardé uniquement par la personne qui agit sur le classeur pas ceux qui consultent en lecture seul.  

Avec Excel si tu ne fais rien sur le classeur, il se ferme sans enregistrer!

Par contre il suffit d'une action, pour qu'il te demande si tu veux enregistrer les modifications.

Donc je ne vois pas le problème!

Sauvegarde de classeur ( mais pas en lecture seule )

3 réponses

Discussions similaires