Discussion :

[crassetph]

Bonjour

Je désire fermer un excel déjà ouvert (par un autre process)
Voici le code script (à corriger) ou à faire en VBA ?

Le problème réside dans l'affectatin de l'objet à fermer ...
On ne peut pas utiliser laprop ActiveWorkbook ...

Merci pour votre aide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim objExcel
Set objExcel = CreateObject("Excel.Application")
objExcel.DisplayAlerts = False
'Mise en commentaire ouverture car déjà ouvert
 'objExcel.Workbooks.Open("H:\memoriaux\SIRE\BOTIT\Benchmark\NewBench\Process Request Bloomberg.xls")
 
'----->  Affectation de l'objet à fermer 
objExcel.Workbooks.ActiveWorkbook("H:\memoriaux\SIRE\BOTIT\Benchmark\NewBench\Process Request Bloomberg.xls")
objExcel.Visible = True
objExcel.ActiveWorkbook.Save
objExcel.ActiveWorkbook.Close(0)
objExcel.Quit

[pgz]

Bonjour

Si je n'ai pas mal compris la question, tu peux essayer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim oWbk As Excel.Workbook
 
'instanciation du classeur déjà ouvert
Set oWbk = GetObject("H:\memoriaux\SIRE\BOTIT\Benchmark\NewBench\Process Request Bloomberg.xls")
 
'...
 
'fermeture classeur
oWbk.Close True
'fermeture application
oWbk.Application.Quit
 
Set oWbk = Nothing

Cordialement,

PGZ

[crassetph]

Bonjour

Merci ... le classeur se ferme mais :
1. les événements codés dans le Auto_close ne s'exécutent pas
PS ils sont codées dans dans le Module 1, sub auto close

Code :

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

1
2
3
4
5
6
7
Sub auto_close()
Call CopyValue
Call ExportValue
Application.DisplayAlerts = False
Application.Quit
'MsgBox "fermé"
End Sub

Que dois-je faire pour qu'ils s'exécutent lors de la fermeture du classeur déclenchée par par l'autre code

2. Petit problème collatéral (moins important) mais j'aimerais trouver

Si j'exécute le code alors que le fichier n'est pas ouvert, à l'ouverture suivante il n'est plus visible et il faut faire "Windows" "Unhide" systématiquement

voici le code

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
Public Sub CloseXLSProcessRequestBloomberg()
MsgBox ("begin")
Dim objExcel
Set objExcel = CreateObject("Excel.Application")
objExcel.DisplayAlerts = False
objExcel.Visible = True
          Dim oWbk As Excel.Workbook
          'instanciation du classeur déjà ouvertDim
          Set oWbk = GetObject("H:\memoriaux\SIRE\BOTIT\Benchmark\NewBench\Process Request Bloomberg.xls")
          'fermeture classeur
          oWbk.Close True
          Set oWbk = Nothing
'fermeture application
objExcel.Application.Quit
'oWbk.Application.Quit
MsgBox ("end")
End Sub

[Didier Gonard]

Bonjour,

Que dois-je faire pour qu'ils s'exécutent lors de la fermeture du classeur déclenchée par par l'autre code

c'est normal, auto Open ou close étaient censés disparaître ou n'être maintenus que par soucis de compatibilité, leur avantage ou inconvénient, selon le contexte, est qu'ils ne réagissent justement pas au code VBA.
Solution passer les commandes dans l'évènementiel Before Close du Workbook en faisant attention à la portabilité si besoin si versions avant 2000 je crois..

cordialement,

Didier