Fermer un classeur Excel par vbs

Version imprimable

31/07/2020, 08h18
Airahn

Fermer un classeur Excel par vbs

Bonjour,

J'aimerai savoir si il y a un moyen de fermer par vbs un classeur Excel en particulier, par son nom par exemple.
J'ai un gros projet lancé par un fichier vbs qui lorsqu'une erreur intervient, laisse mon classeur en arrière plan.

A priori, aucunes erreurs ne devrait apparaître puisqu'elles sont redirigées et écrites dans un rapport, mais si jamais une erreur apparaît lors de l'utilisation de outlook, là je ne peux pas l'attraper et mon processus se stop, laissant le classeur en fond.

C'est pourquoi je voudrait fermer toute instance de mon classeur si il en existe avant de le réouvrir pour exécuter mes procédures, sans fermer l'application Excel.

Merci d'avance
31/07/2020, 08h25
Airahn
J'ai déjà essayé quelque chose de la forme
Code:

1 2 3 4 5 Dim AppExcel Set AppExcel = CreateObject("Excel.Application") AppExcel.Workbooks("ListeClient.xlsm").Close true
mais j'ai une erreur disant

Citation:

Indice en dehors de la plage

Lors du close
31/07/2020, 08h40
Menhir
Citation:
Envoyé par Airahn

J'ai déjà essayé quelque chose de la forme

Code:

1 2 3 4 Dim AppExcel Set AppExcel = CreateObject("Excel.Application") AppExcel.Workbooks("ListeClient.xlsm").Close true

mais j'ai une erreur disant Lors du close
Il est possible que la nouvelle cession d'Excel que tu crées dans cette macro ne voit pas les documents ouverts par la cession déjà ouverte.
Essaye ça (sans mettre le CreateObject) :

Code:

Excel.Workbooks("ListeClient.xlsm").Close true

Pour que ça fonctionne, il faut que la bibliothèque d'objects Excel soit chargée.

Bonjour,

Ou, peut-être, utiliser une variable pour le classeur :

Code:

1
2
3
4
5
6
7
8
Dim AppExcel, oWbk 
 
Set AppExcel = CreateObject("Excel.Application")
Set oWbk = AppExcel.Workbooks.Open("C:\Chemin complet\Fichier.xlsx")
AppExcel.Visible = True
 
oWbk.Close
Set oWbk = Nothing

31/07/2020, 09h04
Airahn

Menhir:

Hum excuse moi, que veux tu dire par

Citation:

il faut que la bibliothèque d'objects Excel soit chargée.

Pijaku:

Le problème c'est que je ne veux pas ouvrir puis fermer un classeur, ça je le fais déjà, mais fermer une instance existante de mon classeur qui serait en tache de fond
31/07/2020, 09h08
Menhir

Citation:

Envoyé par Airahn

Hum excuse moi, que veux tu dire par

Citation:

il faut que la bibliothèque d'objects Excel soit chargée.

Je ne connais pas VBS mais dans VBA, lorsqu'on veut manipuler des objets d'autres applications, il faut indiquer dans les références les bibliothèques d'objet de ces applications.
Je suppose que dans VBS, il doit y avoir un équivalent.

Cela dit, si tu manipules déjà des objets Excel dans d'autres modules, c'est que sa bibliothèque est chargée.
31/07/2020, 09h15
pijaku

Oui.
Ecrire AppExcel.Workbooks("ListeClient.xlsm").Close true sous-entends que ton classeur a été ouvert dans l'instance Excel AppExcel.
Or ce n'est pas le cas...

Code:

Workbooks("Classeur1.xlsm").Close
31/07/2020, 09h16
Airahn

Okay excuse moi, j'avais pas compris sur le coup

Mais je ne crois pas qu'on puisse faire ça sur vbs. Ce qui fait que ton idée ne fonctionne pas malheureusement.

Avec quelques recherches, j'ai peur que mon problème n'ai pas de solution. Plus qu'à prier que aucune erreur n’apparaîtra :rire:

Merci pour votre temps et Bonne journée
31/07/2020, 09h21
pijaku

Si c'est pour gérer une erreur éventuelle, tu peux jeter un oeil ici
https://tahe.developpez.com/web/vbscript/?page=page_4
31/07/2020, 09h46
Menhir

Citation:

Envoyé par Airahn

Mais je ne crois pas qu'on puisse faire ça sur vbs.

Il est peu probable que VBS sache manipuler les objets d'une application sans charger sa bibliothèque.
A ma connaissance, TOUS les langages actuels procèdent comme ça.
Mais peut-être que ça se fait automatiquement sans que tu ais à le paramétrer.

Citation:

Ce qui fait que ton idée ne fonctionne pas malheureusement.

L'as-tu testée ?
31/07/2020, 11h37
Thumb down
Bonjour,
Accessoirement ça pourrait être ça :
Code:

1 2 3 Set AppExcel = GetObject(,"Excel.Application") AppExcel.Workbooks("ListeClient.xlsm").Close
Mais le problème, je pense, vient d'une mauvaise gestion des erreurs dans ton VBS!

Hello,

Perso je ferais ainsi
Je viens de tester de mon côté, je parviens à fermer un classeur excel actif, via le code ci-dessous.

À voir maintient comment récupérer ton erreur pour appeler ce script.

Source : https://www.tek-tips.com/viewthread.cfm?qid=1535467

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
 
strName = "test.xls"
strPath = "C:\" 'attention à bien finir le path par \
strFilePath = strPath & strName
wscript.echo "Name and path of Excel file to find and close: " & strFilePath
 
Set objExcel = GetObject(strFilePath).Application 'Use this syntax for multiple instances of Excel.
 
If (not objExcel.ActiveWorkbook is nothing) then
    wscript.echo "ActiveWorkbook is: " & objExcel.ActiveWorkbook.Name
        If objExcel.ActiveWorkbook.name = strName then
            wscript.echo "Closing Workbook " & strName 
            objExcel.ActiveWorkbook.Saved = True
            objExcel.ActiveWorkbook.Close        
        End if
    Else
        wscript.echo "Open Workbook " & strName & " Not Found"
End if
 
set objExcel=nothing
'https://www.tek-tips.com/viewthread.cfm?qid=1535467

31/07/2020, 16h57
pijaku

Bonjour,

Sans oublier de citer ces sources : https://www.tek-tips.com/viewthread.cfm?qid=1535467
31/07/2020, 17h38
mfoxy

Bonjour Franck,

Je n'ai jms dit que le code venais de moi, et ne savais que d'autre sources que ce forum pouvait être indiquée
Correction faite dans mon post précédent.