Discussion :

[Rayno1979]

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!

[leroissejp]

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

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

[Thomas8080]

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

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
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 :

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

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

Merci

[bidou]

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

Sinon il faut utiliser GetObject c'est le plus simple

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