Sauvegarde fichier en lecture seule

[MJ13]

Bonjour à tous.

Si j'ai un fichier Excel qui a dans Thisworkbook ce code pour obliger à le sauvegarder en quittant le fichier.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Save
End Sub

Mais si j'ouvre le fichier dans une autre session d'Excel (donc le fichier est en lecture seule), le fichier se sauvegarde dans mon dossier par défaut en cours lorsque je le ferme. Mais je voudrais qu'il ne se sauvegarde pas, puisqu'il est en lecture seule.

Comment puis-je faire?

Merci d'avance.

 

[tototiti2008]

Re : Sauvegarde fichier en lecture seule

Bonjour MJ13,

peut-être :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    ThisWorkbook.Save
    On Error GoTo 0
End Sub

 

[MJ13]

Re : Sauvegarde fichier en lecture seule

Bonjour Tototiti

Avec ton code, cela me fait la même chose car il n' y a pas d'erreur lorsque je le ferme.

Il faudrait peut-être tester si le fichier est en lecture seule?

Voila ce que j'ai mis et j'ai l'impression que cela fonctionne.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Stop
'MsgBox ThisWorkbook.ReadOnly
If ThisWorkbook.ReadOnly = True Then Exit Sub Else ThisWorkbook.Save
End Sub

Merci pour ton aide.

 

[tototiti2008]

Re : Sauvegarde fichier en lecture seule

Re,

mais chez moi, quand il essaye d'enregistrer sur un fichier ouvert par une autre session Excel, il fait une erreur...

Ou alors si tu ferme la 1ère session avant de fermer la seconde qui est en lecture seule ?

 

[MJ13]

Re : Sauvegarde fichier en lecture seule

Re Tototiti

mais chez moi, quand il essaye d'enregistrer sur un fichier ouvert par une autre session Excel, il fait une erreur...

Ou alors si tu ferme la 1ère session avant de fermer la seconde qui est en lecture seule ?

Moi, c'est sur sur un fichier sur un réseau, ceci explique peut-être cela (j'ai pas testé chez moi).