Fermer fichier excel externe

Version imprimable

27/06/2007, 09h27
pascalouh

Fermer fichier excel externe

Bonjour,

J'ai un logiciel qui me permet de faire des macros VBA et dans l'une d'entre elles, je dois faire des modifs dans un classeur excel.

Le fichier excel est un planing. Lorsque l'utilsateur utilise son logiciel, automatiquement, il va aller ajouter des choses sur le planing.

Le problème est que le planning est tout le temps ouvert (c'est nécessaire).
Donc la seule solution que je vois pour le moment, c'est que le logiciel externe ferme le fichier, fasse les modifs, et réouvre le fichier...

Mais est ce possible ? Peut tester si un fichier est ouvert ? Puis si oui, le fermer automatiquement (sans l'avoir ouvert par VBA auparavant) ?

Merci

Bonjour,
Tu dois pour ca connaitre le nom du fichier.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
'adaptation de ce qu'il y a dans les pages "gestion d'erreur"
Sub laMacro()
    Dim Wb As workbook
 
    'Evite le message d'erreur si le workbook n'existe pas.
    On Error Resume Next
    Set Ws = Workbooks("NomClasseur")
    On Error GoTo 0
 
    '(Wb = Nothing quand l'objet attribué à la variable n'existe pas)
    If Not Ws Is Nothing Then
        MsgBox "Le classeur existe"
        Else
        MsgBox "Le classeur n'existe pas."
    End If
End Sub

Pour fermer

Code:

workbooks("NomClasseur").close

Merci mais ca ne fonctionne pas.

Il m'affiche le msgbox qui dit que le classeur n'existe pas et j'ai une erreur lors de la fermeture qui me dit que l'indice n'appartient pas a la selection.

Mais je ne comprends pas un truc (meme si ca marchait j'aimerais comprendre :)). Il ne faut pas ouvrir un objet excel d'abord ? Comment il fait le lien sinon ?

Mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Sub aaaaa() Dim Wb As Workbook 'Evite le message d'erreur si le workbook n'existe pas. On Error Resume Next Set Wb = Workbooks("planning IOS ANNEE_2007_SEM_31") On Error GoTo 0 '(Wb = Nothing quand l'objet attribué à la variable n'existe pas) If Not Wb Is Nothing Then MsgBox "Le classeur existe" Else MsgBox "Le classeur n'existe pas." End If 'Pour fermer Workbooks("planning IOS ANNEE_2007_SEM_31").Close End Sub

Deja pour fermer le classeur il faut qu'il existe donc il faut mettre le code de fermeture dans le test. Et puis peut etre qu'il faut mettre des .xls a la fin je me rappelle plus :oops:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub aaaaa()
   Dim Wb As Workbook
 
   'Evite le message d'erreur si le workbook n'existe pas.
   On Error Resume Next
   Set Wb = Workbooks("planning IOS ANNEE_2007_SEM_31.xls") 'ou Workbooks("planning IOS ANNEE_2007_SEM_31")
   On Error GoTo 0
 
   '(Wb = Nothing quand l'objet attribué à la variable n'existe pas)
   If Not Wb Is Nothing Then
       MsgBox "Le classeur existe"
       Workbooks("planning IOS ANNEE_2007_SEM_31.xls").Close 'ou Workbooks("planning IOS ANNEE_2007_SEM_31").Close
       Else
       MsgBox "Le classeur n'existe pas."
   End If
 
End Sub

27/06/2007, 10h56
pascalouh

Citation:

donc il faut mettre le code de fermeture dans le test

Le problème n'est pas d'éviter le message en bougeant la fermeture de place.
Si je fais ca, il va tout de même dire que le classeur n'existe pas et ne vas juste pas tenter de le fermer.

Mais le classeur existe bien (et il est bien ouvert dans excel).
Pour le .xls j'avais tenté avec et sans parce que je ne savais pas non plus.
Mais il dit dans les deux cas que le classeur n'existe pas (j'ai verifié le nom il est correct)

Le

Code:

Set Wb = Workbooks("classeur")

ne semble pas aller prendre sa source dans le excel ouvert
27/06/2007, 16h19
AlainTech

Workbooks est la collection des classeurs ouverts par le projet courant.

Il n'est donc pas possible de fermer un classeur qui a été ouvert par un autre processus.

La seule solution que je voie est de killer le processus de l'instance d'Excel qui a ouvert le classeur en question.