Discussion :

[ancel17]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

If Wd = Nothing Then

parce que tel quel, il aime pas trop !

Erreur de compilation :

Utilisation incorrecte de l'objet.

[tirex28]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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/

[hitmax]

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

[ancel17]

Bonjour et merci Tirex28 !

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[zandru]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[YannLaure]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[tirex28]

Re,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

   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'.

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/

[hitmax]

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 ?

[tirex28]

Re,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If WB.ReadOnly Then Wb.Close False

Cordialement,

Tirex28/

[ancel17]

Merci à tous !