comment fermer un fichier Excel depuis Access?

**audrey_desgres** · 17/06/2005, 13h04

bonjour tout le monde!

voilà mon petit problème , à partir d'access, je génère un fichier Excel et ensuite j'enregistre les données contenues sur cette feuille dans ma base de données.

à la fin de ma commande d'enregistrement, je lui dis de fermer le fichier Excel avec la commmande suivante :

Code :

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

excelapp.quit

le problème c'est qu'à chaque fois, je suis obligée de retourner sur Excel pour dire que je ne veux pas enregistrer les modifications , et seulement ensuite il me ferme mon fichier.

ce que je voudrai savoir, c'est est-ce qu'il existe une commande qui me permettrait de dire automatiquement que je ne veux pas enregistrer?

merci beaucoup d'avance
bisous
audrey

**ARO** · 17/06/2005, 14h19

Bonjour,

Extrait de l'aide Excel

Exemples
Cet exemple montre comment fermer le classeur Book1.xls sans inviter l'utilisateur à enregistrer les modifications. Les modifications apportées à Book1.xls ne sont pas enregistrées.

Application.DisplayAlerts = False
Workbooks("BOOK1.XLS").Close
Application.DisplayAlerts = True

**audrey_desgres** · 17/06/2005, 15h37

merci beaucoup !

**audrey_desgres** · 20/06/2005, 10h13

coucou!!

je viens d'essayer le code que tu m'as donné mais ça ne marche pas, il me demande toujours si je veux enregistrer

voici le code :

Code :

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

1
2
3
    ExcelApp.DisplayAlerts = False
    ExcelApp.Workbooks.Close
    ExcelApp.DisplayAlerts = True

'excelapp' est mon application Excel ouverte. je ne sais pas trop ce qui ne fonctionne pas...

merci
bisous

**argyronet** · 20/06/2005, 10h52

Bonjour,

Tu devrais essayer ainsi:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test5442()
Dim ExcelApp As Object
Dim bOnSauveLeClasseur As Boolean
'[....]
 
  ExcelApp.DisplayAlerts = False
  bOnSauveLeClasseur = True
'[....]
 
  ExcelApp.ActiveWorkbook.Close bOnSauveLeClasseur
  Set ExcelApp = Nothing
End Sub

Argy

**audrey_desgres** · 20/06/2005, 14h44

je viens d'essayer ton code mais ça ne marche toujours pas, il me demande toujours si je veux enregistrer...

merci quand même!
si quelqu'un a d'autres idées...

**argyronet** · 20/06/2005, 16h24

Comment ouvres-tu ton classeur ?
N'y a t-il pas d'opérations qui génèrent un nouveau classeur.
Bref, fais voir ton code...

Argy

**audrey_desgres** · 20/06/2005, 20h20

voici mon 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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
    '**********************************************************************************
    ' on s'intéresse enfin à la SYNTHESE GENERALE.
    ' on va parcourir toute la liste jusqu'à tomber sur la dernière ligne marquée par ##.
 
    ligne_pour_enregistrement = ligne_depart
 
    Do While ExcelApp.cells(ligne_pour_enregistrement, colonne_identifiant_domaine) <> marqueur_fin
 
        ligne_pour_enregistrement = ligne_pour_enregistrement + 1
 
    Loop
 
 
    ' on va d'abord trouver quel est le code qui a été coché.
    Call TrouveCode(ligne_pour_enregistrement, code)
 
 
    ' on sort donc on est sur la dernière ligne donc on va insérer le commentaire
    ' dans la table 'Synthèse_Globale'.
    Call EnregistreSyntheseGlobale(txtDate.Value, code, ExcelApp.cells(ligne_pour_enregistrement, colonne_libelles).Value, lstMachine.Value)
 
 
 
'*******************************************************************************
 
    ' on met un message de confirmation.
    MsgBox ("L'enregistrement de l'évaluation a bien été effectué.")
 
    lstEquipe.Value = Null
    lstNom.Value = Null
    lstPrenom.Value = Null
    lstMachine.Value = Null
    txtDate.Value = Null
    ExcelApp.Quit
 
Else
 
    'l'enregistrement a été annulé.
    MsgBox ("L'enregistrement de l'évaluation a été annulé.")
    lstEquipe.Value = Null
    lstNom.Value = Null
    lstPrenom.Value = Null
    lstMachine.Value = Null
    txtDate.Value = Null
    ExcelApp.DisplayAlerts = False
    ExcelApp.ActiveWorkbook.Close
    ExcelApp.DisplayAlerts = True
    ExcelApp.Quit
 
End If
 
 
enregistre_evaluation.Enabled = True
 
 
    ' Quitte la procédure.
    Exit Sub

merci d'avance

**audrey_desgres** · 20/06/2005, 20h22

voici pour l'ouverture du classeur :

Code :

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

1
2
3
4
5
6
'***********************************************************************
 
        ' Crée une nouvelle application Excel.
        Set ExcelApp = CreateObject("Excel.Application")
        ExcelApp.Workbooks.Add
        ExcelApp.Visible = True

**Arkham46** · 20/06/2005, 21h20

Salut,

Dans le code d'argyronet ça demande de sauvegarder le classeur alors que toi tu ne veux pas.

En mettant à false la valeur de bOnSauveLeClasseur ça me semblerait plus logique, non

:

**audrey_desgres** · 21/06/2005, 09h49

je viens d'essayer de mettre le booléen à false mais ca ne marche toujours pas

rien à faire, il me demande toujours d'enregistrer...

bisous

**Arkham46** · 21/06/2005, 11h04

bizarre ça devrait marcher dans les deux cas...
Peut-être avec cette syntaxe :

Code :

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

ExcelApp.ActiveWorkbook.Close SaveChanges:=False

La dernière solution c'est :

Code :

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

ExcelApp.ActiveWorkbook.saved = true

A mettre avant de fermer le classeur.
Si la propriété saved du classeur est vraie il ne devrait pas demander de le sauvegarder.

Sinon essaye d'afficher le nombre de classeur avant de fermer :

Code :

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

msgbox ExcelApp.Workbooks.count

Pour vérifier qu'il n'y a bien qu'un seul classeur dans l'appli excel.

**audrey_desgres** · 21/06/2005, 11h55

bonjour !!!

ça ne marche toujours pas ...

voilà où j'en suis dans le code parce que j'ai peur de m'être un peu embrouillée et d'avoir oublié des choses ou mis des choses au mauvais endroit...

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
    '**********************************************************************************
    ' on s'intéresse enfin à la SYNTHESE GENERALE.
    ' on va parcourir toute la liste jusqu'à tomber sur la dernière ligne marquée par ##.
 
    ligne_pour_enregistrement = ligne_depart
 
    Do While ExcelApp.cells(ligne_pour_enregistrement, colonne_identifiant_domaine) <> marqueur_fin
 
        ligne_pour_enregistrement = ligne_pour_enregistrement + 1
 
    Loop
 
 
    ' on va d'abord trouver quel est le code qui a été coché.
    Call TrouveCode(ligne_pour_enregistrement, code)
 
 
    ' on sort donc on est sur la dernière ligne donc on va insérer le commentaire
    ' dans la table 'Synthèse_Globale'.
    Call EnregistreSyntheseGlobale(txtDate.Value, code, ExcelApp.cells(ligne_pour_enregistrement, colonne_libelles).Value, lstMachine.Value)
 
 
 
'*******************************************************************************
 
    ' on met un message de confirmation.
    MsgBox ("L'enregistrement de l'évaluation a bien été effectué.")
 
    lstEquipe.Value = Null
    lstNom.Value = Null
    lstPrenom.Value = Null
    lstMachine.Value = Null
    txtDate.Value = Null
    ExcelApp.Quit
 
Else
 
    'l'enregistrement a été annulé.
    MsgBox ("L'enregistrement de l'évaluation a été annulé.")
    lstEquipe.Value = Null
    lstNom.Value = Null
    lstPrenom.Value = Null
    lstMachine.Value = Null
    txtDate.Value = Null
    ExcelApp.DisplayAlerts = False
    ExcelApp.ActiveWorkbook.Saved = True
    ExcelApp.DisplayAlerts = True
    ExcelApp.Quit
 
End If
 
 
enregistre_evaluation.Enabled = True
 
 
    ' Quitte la procédure.
    Exit Sub

j'ai essayé de mettre le code que tu m'as dit pour compter le nombre de classeurs mais ça n'a rien affiché... je l'avais mis juste au-dessus de excelapp.quit.

j'espère que vous pourrez m'aider (et merci déjà pour votre aide

)

audrey

**Arkham46** · 21/06/2005, 12h25

Tu as enlevé la fermeture du classeur?

Code :

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

1
2
ExcelApp.ActiveWorkbook.Saved = True
ExcelApp.ActiveWorkbook.Close

Le <saved = true> c'est juste pour faire croire à excel que le classeur à déjà été sauvegardé.
Il faut quand même demander explicitement la fermeture du classeur sinon le process excel risque de rester ouvert.

Mais est-ce que tu passes dans la partie "else"??
Parce que cette partie devrait fonctionner mais avant le <else> tu as une fermeture de l'application aussi mais pas correcte, c'est pas celle-là qui s'exécute?

**audrey_desgres** · 21/06/2005, 12h43

merci beaucoup !!!!

ça y est ça marche!! t'avais raison, j'avais mis dans le "else" alors qu'il fallait pas et j'avais aussi oublié de fermer

vraiment merci beaucoup pour ton aide

audrey

comment fermer un fichier Excel depuis Access?

Access

Discussions similaires

Partager

Partager