Discussion :

[Airahn]

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

[Airahn]

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

Code :

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

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

mais j'ai une erreur disant

Indice en dehors de la plage

Lors du close

[Menhir]

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

Code :

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

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 :

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

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

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

[pijaku]

Bonjour,

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

Code :

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

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

[Airahn]

Menhir:

Hum excuse moi, que veux tu dire par

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

[Menhir]

Hum excuse moi, que veux tu dire par

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.

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

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

Workbooks("Classeur1.xlsm").Close

[Thumb down]

Bonjour,
Accessoirement ça pourrait être ça :

Code :

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

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!

[mfoxy]

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 :

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

[pijaku]

Bonjour,

Sans oublier de citer ces sources : https://www.tek-tips.com/viewthread.cfm?qid=1535467

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