macro ouverture

[al1000]

Bonjour


comment ecrire une macro suivante


je suis dans le classeur b


si le classeur a est en lecture seule alors j'ouvre une boite de dialogue qui me dit fichier en lecture seule


si non je continue ma macro qui est dans le classeur b



a+

 

[excalibur]

Re : macro ouverture

bonjour al1000 le forum peut avec ActiveWorkbook.ReadOnly fait une recherche dans les archives du forum tu tapes ReadOnly

 

[al1000]

Re : macro ouverture

bonjour,


Voici j'ai trouve ceci:


' Macro1 Macro
If ActiveWorkbook.ReadOnly = True Then
MsgBox "File already in use ask to close it before modification."
ActiveWorkbook.Close
End If

Range("a1").Select
End Sub


mais je voudrais tester si le classeur a est en lecture seule alors il me done un message ( la macro qui est est ci dessus est dans le classeur nommé b)


a+

 

[al1000]

Re : macro ouverture

bonjour


Sub Macro2()

Workbooks.Open filename:= _
"F:\essai\21 10.xls" _
, UpdateLinks:=0, Notify:=False
If ActiveWorkbook.ReadOnlyRecommended = True Then
MsgBox "Ce fichier est en lecture seule"

End If


End Sub

j'ai trouvé la macro 2

mais quand je met true il m'indique rien et quand je met false il m'indique toujours le message

pourquoi?


a+

 

[excalibur]

Re : macro ouverture

rebonjour essai comme cela!!

Option Explicit
Sub Macro2()
Workbooks.Open Filename:= _
"F:\essai\21 10.xls" _
, UpdateLinks:=0, Notify:=True
If ActiveWorkbook.ReadOnly Then
MsgBox "Ce fichier est en lecture seule"
Else
MsgBox "essai" 'ton code!!
End If
End Sub

 

[al1000]

Re : macro ouverture

bonjour,

pouquoi ce code


Else
MsgBox "essai" 'ton code!!
End If


a+

 

[excalibur]

Re : macro ouverture

rebonjour je suppose si pas en lecture seule tu continue ta macro!! si c est pas le cas supprime

ton post

si le classeur a est en lecture seule alors j'ouvre une boite de dialogue qui me dit fichier en lecture seule
si non je continue ma macro qui est dans le classeur b