Fermeture application excel sur windows 2007

JLR59
Messages postés
21
Date d'inscription
samedi 2 février 2008
Statut
Membre
Dernière intervention
2 avril 2009
- 1 avril 2009 à 13:03
JLR59
Messages postés
21
Date d'inscription
samedi 2 février 2008
Statut
Membre
Dernière intervention
2 avril 2009
- 2 avril 2009 à 20:35
Bonjour,
Je rencontre un problème lors de la fermeture d'un fichier Excel.

Avec la commande Workbooks("Feuille de piquets.xlsm").Close Save = False
une fenêtre excel vide reste à l'écran.
Comment faire pour quitter mon Workbooks("Feuille de piquets.xlsm") sans sauver et  afficher ma page htm en plein écran?

Voici mon code:

Sub EnrFichierNoSemaine_click()
Dim NoSemaine As Variant
NoSemaine = Range("D1")
ScreenUpdating = False
    ActiveSheet.Shapes("ZoneTexte 7").Visible = False
    ActiveSheet.Shapes("EnrFichierNoSemaine").Visible = False
        With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
        "G:\soapWeb\Exploitation\FeuillePiquet\Piquet Semaine " & "" & NoSemaine & ".htm", _
        "Feuil1", "", xlHtmlStatic, "")
        .Publish True
        .AutoRepublish = False
End With
        ActiveSheet.Shapes("EnrFichierNoSemaine").Visible = True
        ActiveSheet.Shapes("ZoneTexte 7").Visible = True
        Shell "explorer " & "G:\soapWeb\Exploitation\FeuillePiquet\Piquet Semaine " & "" & NoSemaine & ".htm " & "", vbMaximizedFocus
        ScreenUpdating = True
    Windows("Feuille de piquets.xlsm").Activate
    Workbooks("Feuille de piquets.xlsm").Close Save = False
End Sub

Merci d'avance.

J-Louis

4 réponses

cs_Willi
Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
22
1 avril 2009 à 13:21
Bonjour,
Pour quitter Excel
Application.Exit()

++
0
JLR59
Messages postés
21
Date d'inscription
samedi 2 février 2008
Statut
Membre
Dernière intervention
2 avril 2009

1 avril 2009 à 20:01
bonjour Willi,

Merci mais je crois que la commande Exit, ferme tous les classeurs ouverts.
j'aimerai seulement fermer complètement mon fichier "Feuille de piquets.xlsm"
J-Louis
0
JLR59
Messages postés
21
Date d'inscription
samedi 2 février 2008
Statut
Membre
Dernière intervention
2 avril 2009

1 avril 2009 à 20:03
Je vais tester ça demain au boulot,

J-Louis
0
JLR59
Messages postés
21
Date d'inscription
samedi 2 février 2008
Statut
Membre
Dernière intervention
2 avril 2009

2 avril 2009 à 20:35
Bonsoir,


Alors il semblerait que sur excel 2007



Application.Quit  ne referme pas tous les classeurs ouverts mais seulement le classeur actif...


Ce que j'ai appliqué à la dernière phase de ma procédure.
Et ensuite j'ai créé un procédure Auto_Close
Sub Auto_Close () ' qui s'execute à la fermeture du classeur
Active.Workbooks.close save = True 'Fermeture du classeur avec enregistrement
                                 sans passer par la boite de dialogue(voulez-vous enregister.....)
End Sub

Je ne sais pas si c'est vraiment conventionel mais ça marche

A+


J-Louis
0