Discussion :

[Eric_03]

Bonjour,

Dans un 1er temps je souhaite empecher l'ouverture d'un classeur X lorsqu'une session excel est déja ouverte. Ensuite lorsque X est ouvert je ne veux plus qu'une nouvelle session excel s'ouvre.

A savoir que mon classeur X dispose du code et qu'un classeur Y dispose des donnees.


Merci
Eric

[LeForestier]

Bonjour,
Empècher d'ouvrir une autre instance d'excel, je ne pense pas que ce soit possible.
Ou alors j'ai pas bien compris ton problème,
Tu veux ouvrir le classeur X s'il n'est pas ouvert et éviter l'erreur s'il est ouvert et que l'ont veux de nouveau l'ouvrir ?
Explique un peu mieux.
A+

[Eric_03]

Merci tout d'abord

Je ne retrouve plus le code qui permettait en VBA d'analyser les processus en cours. Je construirai une boucle sur les processus et les analyserai dans workbook open. Si le processus excel.exe est découvert j'empecherai le classeur X de s'ouvrir.

je recherche le code et le met à disposition


Cordialement

A+
Eric

[ucfoutu]

Bonjour,

ceci devrait répondre à ton problème, quel que soit l'endroit d'où aurait pu être ouvert Excel :

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
25
Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
'================optionnel (si tu veux en plus détruire la fenêtre éventuellement trouvée =====
Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long
' ====================================================
 
Private Sub Command1_Click()
  MsgBox Exceltourne
End Sub
Private Function Exceltourne() As Boolean
  Const WM_USER = 1024
  Dim hwnd As Long
  hwnd = FindWindow("XLMAIN", 0)
  If hwnd = 0 Then
    Exceltourne = False
  Else
    Exceltourne = True
    Dim mystr As String
    mystr = String(100, Chr$(0))
    GetWindowText hwnd, mystr, 100
    mystr = Left$(mystr, InStr(mystr, Chr$(0)) - 1)
    MsgBox mystr 'optionnel (te permet de connaître le classeur trouvé)
  End If
End Function

Tu trouveras par ailleurs le code qui permet de savoir si un fichier particulier (excel ou non) est déjà ouvert (depuis ton application ou depuis ailleurs)...

[Eric_03]

Cela correspond exactement à mes besoins.

Il me reste à découvrir comment détecter l'ouverture d'un classeur quand mes classeurs X et Y sont en cours d'utilisation. Il me semble qu'avec un module de classe il est possible de détecter des évenements au niveau application.

Eric

[mercatog]

Jette un coup d'œil ici:
http://excel.developpez.com/faq/?pag...InstancesExcel