Discussion :

[beegees]

Bonjour le forum,

Je déclare une variable comme ceci :

Code :

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

1
2
Dim AppExcel As Excel.Application
Dim wbexcel As Excel.Workbook

j'initialise mes variables :

Code :

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

1
2
3
4
5
6
7
'on ouvre le fichier excel (occupation)
Set AppExcel = CreateObject("Excel.Application")
    'je cache la feuille
    AppExcel.Visible = False
    'je sélectionne la bonne feuille du classeur
    Set wbexcel = AppExcel.Workbooks.Open("Z:\occupation", ReadOnly:=False)
    wbexcel.Sheets("DonneesReservationSalleInfo").Select

J'aimerais qu'avant d'ouvrir wbexcel, il vérifie si il n'est déjà pas ouvert :

Si il est ouvert, le fermer et ne pas enregistrer wbexcel.close(false)
S'il est pas ouvert, passer à la ligne suivante.

Je ne sais pas qu'est ce que je peux donner comme propriété à wbexcel pour savoir si il est déjà ouvert ou non.

Merci d'avance.

bgs

[pgz]

Bonjour,

Je crois que la collection WorkBooks contient tous les objets de type WorkBook ouverts. Il suffit de la parcourir pour savoir si celui qui t'intéresse est ouvert.

En espérant que cela t'aide,

pgz

[random]

sinon tu fais un activate de la feuille(1)
et tu récupères les message d'erreur éventuel

[beegees]

Bonjour,

Je crois que la collection WorkBooks contient tous les objets de type WorkBook ouverts. Il suffit de la parcourir pour savoir si celui qui t'intéresse est ouvert.

En espérant que cela t'aide,

pgz

Bonjour pgz,

Merci pour ta réponse et sorry pour le retard de la mienne mais j'ai eu un gros problème de serveur.

Je vais regarder ce que tu écris mais je pensais que cela serait une manipulatiion simple en mettant par exemple

si fichier c:\fichier ouvert = true then c:\fichier.close(false) mais je vois que ce n'est pas le cas.

Merci beaucoup à nouveau.

bgs

[beegees]

sinon tu fais un activate de la feuille(1)
et tu récupères les message d'erreur éventuel

Comprends pas

Tu peux approfondir stp.

Merci pour ta réponse.

bgs

[=JBO=]

Bonjour,

J'aimerais qu'avant d'ouvrir wbexcel, il vérifie si il n'est déjà pas ouvert

Je te propose d'utiliser plutôt les fonctionnalités directement disponibles dans le langage VB/VBA.
La fonction ci-dessous permet de tester si un fichier est déjà ouvert (hypothèse: le fichier existe).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Function IsFileOpen(sFilePath As String) As Boolean
    Dim nFile As Integer
 
    On Error Resume Next
 
    nFile = FreeFile()
    Open sFilePath For Input Access Read Lock Read Write As nFile
 
    If Err.Number = 0 Then
        IsFileOpen = False
        Close nFile
    Else
        IsFileOpen = True
    End If
End Function

=JBO=