[VBA EXCEL] - Synthaxe équivalente à Workbook = Nothing

Bonjour le Forum !

Mon problème est le suivant :
Je souhaite ouvrir un classeur mais uniquement si celui-ci n'est pas encore ouvert...

Je suis donc parti sur ce code :

Code:

---

1 2 3 4 5 6 7 8 9

For Each Wb In Workbooks If Wb.Name = "TSI " & CellAss.Value & ".xls" Then Set Wd = Wb End If Next Wb   If Not Wd.Name = "TSI " & CellAss.Value & ".xls"Then Set Wd = Workbooks.Open("TSI " & CellAss.Value & ".xls") End If

---

Ce code marche bien... si le classeur est déjà ouvert !
En effet si le classeur est fermé, Wd est vide et donc Wd.Name n'a pas de sens...

Ma question est donc la suivante :
Quelle est la synthaxe équivalente à

Code:

---

If Wd = Nothing Then

---

parce que tel quel, il aime pas trop !

Citation:

---

Erreur de compilation :

Utilisation incorrecte de l'objet.

---

Bonjour,

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim Wb As Workbook   On Error Resume Next Set Wb = Workbooks("TSI " & CellAss.Value & ".xls") On Error GoTo 0   If Wb Is Nothing Then 'Classeur fermé Else 'Classeur ouvert End IF

---

Préciser l'extension n'est pas nécessaire.

Cordialement,

Tirex28/

Et savoir si il est ouvert sur le reseau par une autre personne ca se passerait comment ?

Bonjour et merci Tirex28 !

Encore une petite question :
Dans quel répertoire Excel cherche-t-il à ouvrir le fichier dans ce cas ?

Code:

---

Set Wd = Workbooks.Open("TSI " & CellAss.Value & ".xls")

---

Si je ne me trompe il cherche dans le même répertoire que celui où est le fichier excel d'où est issus la macro.
sinon il faut écrire le chemin complet :

Code:

---

Set Wd = Workbooks.Open("C:\MesDocuments\TSI " & CellAss.Value & ".xls")

---

Si on appelle Fichier le chemin complet du fichier que l'on veut tester, il faut piéger l'erreur éventuelle de l'instruction "Name Fichier As Fichier" comme ceci:

Code:

---

1 2 3 4

On Error Resume Next Name Fichier As Fichier Select Case Err.Number ....

---

Si le fichier est ouvert il y a une erreur

Re,

Citation:

---

Dans quel répertoire Excel cherche-t-il à ouvrir le fichier dans ce cas ?

Code:

---

Set Wd = Workbooks.Open("TSI " & CellAss.Value & ".xls")

---

---

Excel utilise alors le repertoire courant renvoyé par la fonction CurDir ce qui peut produire une erreur 'Fichier introuvable'.

Citation:

---

Et savoir si il est ouvert sur le reseau par une autre personne ca se passerait comment ?

---

Dans ce cas Excel ouvrirait le fichier en lecture seule.

Cordialement,

Tirex28/

Citation:

---

Envoyé par tirex28

Dans ce cas Excel ouvrirait le fichier en lecture seule.
Tirex28/

---

Merci de ta réponse.

Peut-on empecher de l'ouvrir en lecture seul ?

Re,

Rien ne t'empeche de le refermer s'il est en lecture seule:

Code:

---

If WB.ReadOnly Then Wb.Close False

---

Cordialement,

Tirex28/

Merci à tous !