guiman
Nouveau membre
Bonjour
J'ai créé un outil sous excel qui est mis en place sur un intranet.
Il contient un bouton qui me permet de fermer le classeur et avant de rétablir divers affichages et de ne pas enregistrer les modifications :
Sub Bouton_Quitter()
'Rétablir divers affichages
Sheets("Recherche dans la FAQ").Activate
With ActiveWindow
.DisplayGridlines = True
.DisplayHeadings = True
.DisplayOutline = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
'Fermer le classeur sans sauvegarder les modifications
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
End Sub
Ce bouton marche très bien quand on ouvre le classeur avec Excel mais lorsque le classeur est ouvert avec Internet Explorer, la fenetre ne se ferme pas.
Je suis pas très doué en VBA. Est ce que qulequ'un pourrait m'indiquer ma manipultion svp ?
Merci d'avance
J'ai créé un outil sous excel qui est mis en place sur un intranet.
Il contient un bouton qui me permet de fermer le classeur et avant de rétablir divers affichages et de ne pas enregistrer les modifications :
Sub Bouton_Quitter()
'Rétablir divers affichages
Sheets("Recherche dans la FAQ").Activate
With ActiveWindow
.DisplayGridlines = True
.DisplayHeadings = True
.DisplayOutline = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
'Fermer le classeur sans sauvegarder les modifications
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
End Sub
Ce bouton marche très bien quand on ouvre le classeur avec Excel mais lorsque le classeur est ouvert avec Internet Explorer, la fenetre ne se ferme pas.
Je suis pas très doué en VBA. Est ce que qulequ'un pourrait m'indiquer ma manipultion svp ?
Merci d'avance