[VBA] Test d'application excel ouverte

Version imprimable

13/12/2005, 22h37
Rayno1979

[VBA] Test d'application excel ouverte

Bonsoir tous le monde, voila j'ai un petit probleme sur un projet de supervision utilisant VBA et Excel. L'application que je developpe consiste a enregistrer toutes les heures des suivis de production dans differents classeurs excel et sur le meme poste, les utilisateurs peuvent consulter ces enregistrements quand ils le souhaite....mais le souci c'est que je me retrouve parfois avec deux application excel d'ouverte ce qui occasionne un plantage à l'enregistrement suivant... j'aimerai donc pouvoir tester si une application excel est deja ouverte en debut d'enregistrement pour pouvoir la fermer mais je n'arrive pas à faire ce test...Si quelqu'un peut m'aider.
Merci beaucoup!

Bonsoir,
Ce code vérifi si un classeur est ouvert où non, si non, il demande si on veut l'ouvrir.

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
 
Private Function EstDansCollection(Coln As Object, Item As String) As Boolean
Dim obj As Object
On Error Resume Next
Set obj = Coln(Item)
EstDansCollection = Not obj Is Nothing
End Function
 
Private Sub CommandButton1_Click()
Dim Reponse
    If EstDansCollection(Workbooks, "Classeur2.xls") = True Then
        MsgBox "Le classeur est déjà ouvert !"
    Exit Sub
End If
 
If EstDansCollection(Workbooks, "Classeur2.xls") = False Then
    Reponse = MsgBox("Le classeur n'est pas ouvert, voulez-vous l'ouvrir ?", vbInformation + vbYesNo)
    If (Reponse = vbNo) Then
    Exit Sub
Else
        Workbooks.Open ("Classeur2.xls")
    End If
End If
End Sub

jpleroisse

14/12/2005, 07h41
bidou

si tu fais ton test avec VBA forcément qu'Excel sera déjà ouvert :koi:

Sinon il faut utiliser GetObject c'est le plus simple
14/12/2005, 19h50
Rayno1979

Merci pour vos reponses, je vais essayer ca demain, bidou c'est du VBA pour RSView (soft de supervision) pas du VBA excel.
Bonne soirée.

Citation:

Envoyé par leroissejp

Bonsoir,
Ce code vérifi si un classeur est ouvert où non, si non, il demande si on veut l'ouvrir.

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
 
Private Function EstDansCollection(Coln As Object, Item As String) As Boolean
Dim obj As Object
On Error Resume Next
Set obj = Coln(Item)
EstDansCollection = Not obj Is Nothing
End Function
 
Private Sub CommandButton1_Click()
Dim Reponse
    If EstDansCollection(Workbooks, "Classeur2.xls") = True Then
        MsgBox "Le classeur est déjà ouvert !"
    Exit Sub
End If
 
If EstDansCollection(Workbooks, "Classeur2.xls") = False Then
    Reponse = MsgBox("Le classeur n'est pas ouvert, voulez-vous l'ouvrir ?", vbInformation + vbYesNo)
    If (Reponse = vbNo) Then
    Exit Sub
Else
        Workbooks.Open ("Classeur2.xls")
    End If
End If
End Sub

jpleroisse

Bonsoir,
J'avais besoin exactement de cette fonction!
Il serait possible de passer le nom du fichier comme variable par ex.

Code:

1
2
3
Var_Nom_fichier_base = "ben01.xls"
    nom = ActiveWorkbook.Name
    If EstDansCollection(Workbooks, (Var_Nom_fichier_base)) = True Then

Merci