lecture seule et renregistrement

S

Softmama

XLDnaute Accro

• 8 Décembre 2010

• #2

Re : lecture seule et renregistrement

Bonjour

Code:

ActiveWorkbook.Close False

devrait résoudre ton problème.

 

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 8 Décembre 2010

• #3

Re : lecture seule et renregistrement

Bonsoir Esox,

Pour cela, il te faut mettre l'instruction suivante :

VB:

ActiveWorkbook.Close SaveChanges:=False

A+

 

Vote positif 0 Vote négatif

E

Esox

XLDnaute Occasionnel

• 8 Décembre 2010

• #4

Re : lecture seule et renregistrement

Bonjour,
Effectivement mais en fait comment faire ceci :

si fichier lecture seule alors fermeture sans enregistrer
sinon exécuter mes lignes de "reblindage" du fichier

merci,

 

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 8 Décembre 2010

• #5

Re : lecture seule et renregistrement

Re,

Ben comme tu le dis, tout simplement :

Code:

If activeWorkbook.Readonly then ActiveWorkbook.Close False

 

Vote positif 0 Vote négatif

E

Esox

XLDnaute Occasionnel

• 8 Décembre 2010

• #6

Re : lecture seule et renregistrement

Et après je continue par un ELSE et tout mon blabla derrière ??

 

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 8 Décembre 2010

• #7

Re : lecture seule et renregistrement

Re,

Ben après tu continues ton blabla sans besoin du Else, vue que le fichier sera fermé dans le cas où a condition est vérifiée !

 

Vote positif 0 Vote négatif

E

Esox

XLDnaute Occasionnel

• 8 Décembre 2010

• #8

Re : lecture seule et renregistrement

Re,
Ok merci, je vais bien finir par acquérir cette gymnastique cérébrale qui me manque...
encore merci...

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 8 Décembre 2010

• #9

Re : lecture seule et renregistrement

Bonsoir à tous


En complément des messages précédents

Code:

Private Sub Workbook_Open()
MsgBox "Pour test"
ActiveWorkbook.Close IIf(ActiveWorkbook.ReadOnly, False, True)
End Sub

 

Vote positif 0 Vote négatif