Fichier en lecture seule avec condition

Salut,


Bien vu 'MarcelG'...

La raison : c'est que, "ThisWorkbook_Open" est exécutée, mais c'est comme si on ne basculait pas vers elle, comme si elle était exécutée en arrière plan.
C'est pas clair je sais mais si tu l'exécute en pas à pas détaillé tu comprendra mieux.
Et donc, puisqu'on "ne donne pas la main" à "ThisWorkbook_Open", quand on arrive à la ligne "cl.Close", notre classeur (qui exécute "ThisWorkbook_Open") se ferme et les lignes après le "cl.Close" ne sont pas exécutées.

Ceci dit, je ne vois pas du tout comment on pourrait régler ça puisque l'idée principale (mon idée :aie:) était de fermer le classeur puis de le rouvrir (il faut bien le fermer à un moment donné !)...




Voilà, j'attends une réponse ou une confirmation avant d'abandonner cette idée et essayer d'en trouver une autre...

@+

Bonjour mondev, Bonjour le Forum

Après recherche et contact sur le Forum, j’ai obtenu une piste

Rappel du problème : ouvrir le classeur en écriture si c’est moi qui l’utilise, sinon ouverure en lecture seule

Le classeur utilisé : ClassPrinc.xls
Le classeur annexe : Annexe.xls

Sur ClassPrinc.xls

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

Private Sub Workbook_Open()   Dim ClassAnnexe As String Dim ClassAnnexe1 As String Dim Classeur As Workbook Dim Nb as Integer     ClassAnnexe = "Chemin\Annexe.xls" 'Chemin = Répertoire où se trouve le fichier, changé ici pour cause de confidentialité ClassAnnexe1 = "Annexe.xls"     Nb = 0 For Each Classeur In Workbooks If Classeur.Name = "Annexe.xls" Then Classeur.Close (False) Nb = 1 Exit For End If Next Classeur   If Nb = 0 Then With Application .Workbooks.Open filename:=ClassAnnexe .Workbooks(ClassAnnexe1).RunAutoMacros xlAutoOpen End With End If   End Sub

---

Sur Annexe.xls

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Option Explicit Public NomCl As String Public NomCl2 As String     Private Sub Workbook_Open() NomCl = "Chemin\ClassPrinc.xls" ‘Chemin = Répertoire où se trouve le fichier NomCl2 = "ClassPrinc.xls" Application.Run ("ouvre_ClassPrinc") End Sub

---

Avec

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Public Sub ouvre_ClassPrinc () NomCl = "Chemin\ClassPrinc.xls" 'Chemin = Répertoire où se trouve le fichier, changé ici pour cause de confidentialité   NomCl2 = "ClassPrinc.xls" Application.DisplayAlerts = False If Application.UserName = "MarcelG" Then Application.Workbooks.Open Filename:=NomCl, ReadOnly:=False Else Application.Workbooks.Open Filename:=NomCl, ReadOnly:=True End If Application.Workbooks(NomCl2).RunAutoMacros xlAutoOpen End Sub

---

Seule remarque : la dernière instruction du code

Code:

---

Application.Workbooks(NomCl2).RunAutoMacros xlAutoOpen

---

est inefficace. Autrement dit, la seconde ouverture du classeur ClassPrinc.xls ne s’accompagne pas de la fermeture de Annexe.xls

C’était l’un de tes soucis, je crois.

Cette réserve mise à part, le processus fonctionne.

Si tu vois un ajout ou une correction…

Merci

Marcel.