Quitter un fichier Excel ouvert via IE - VB/VBA/VBS - Programmation
MarshPosté le 17-08-2007 à 18:22:49
Bonjour,
Je souhaite mettre en ligne un fichier Excel (une FAQ) qui contient des macros.
Notamment, ce fichier contient un bouton quitter (car je ne souhaite pas que l'utilisateur puisse sortir autrement qu'en cliquant sur mon bouton) :
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
Cela marche bien quand le fichier a été ouvert avec Excel par contre lorsque le fichier à été ouvert via IE, quand on clique sur le bouton, il ne ferme pas la fenetre...
Marsh Posté le 17-08-2007 à 18:22:49
Bonjour,
Je souhaite mettre en ligne un fichier Excel (une FAQ) qui contient des macros.
Notamment, ce fichier contient un bouton quitter (car je ne souhaite pas que l'utilisateur puisse sortir autrement qu'en cliquant sur mon bouton) :
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
Cela marche bien quand le fichier a été ouvert avec Excel par contre lorsque le fichier à été ouvert via IE, quand on clique sur le bouton, il ne ferme pas la fenetre...
Avez-vous svp une solution pour m'aider?
Merci d'avance