Sauvegarde fichier en lecture seule

tototiti2008

XLDnaute Barbatruc

• 25 Février 2010

• #2

Re : Sauvegarde fichier en lecture seule

Bonjour MJ13,

peut-être :

Code:

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

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 25 Février 2010

• #3

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.

Code:

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.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 25 Février 2010

• #4

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 ?

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 25 Février 2010

• #5

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 ?

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif