Tester si fichier ouvert ou l'afficher et déprotéger

sousou

XLDnaute Barbatruc

• 2 Décembre 2018

• #2

Bonsoir
Essaie quelque chose comme ceci:
Sub mamacro()
On Error Resume Next
set fich=Workbooks("test.xls")
If Err.Number = 9 Then Set fich = Workbook.Open("C:\ABC\Test.xls")
On Error GoTo 0
fich.Unprotect ("a")
End Sub

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 2 Décembre 2018

• #3

Bonjour à tous,
Voici une solution un légèrement différente.
Bruno

VB:

Sub TEST()
On Error Resume Next 'on g?re l'error
chemfich = "C:\ABC\Test.xls"
Workbooks("Test.xls").Activate 'si pas ouvert on va en error
If Err <> 0 Then Workbooks.Open (chemfich) 'on ouvre si err
ActiveWorkbook.Unprotect "a"
End Sub

 

Vote positif 0 Vote négatif

papy 73 ans

XLDnaute Occasionnel

• 4 Décembre 2018

• #4

Bonjour sousou, youky,
Je vous remercie c'est tout bon.
Bonne journée à vous

 

Vote positif 0 Vote négatif