JLR59
Messages postés21Date d'inscriptionsamedi 2 février 2008StatutMembreDernière intervention 2 avril 2009
-
1 avril 2009 à 13:03
JLR59
Messages postés21Date d'inscriptionsamedi 2 février 2008StatutMembreDerniè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
JLR59
Messages postés21Date d'inscriptionsamedi 2 février 2008StatutMembreDerniè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
JLR59
Messages postés21Date d'inscriptionsamedi 2 février 2008StatutMembreDerniè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