Bonjour,
J'ai une appli qui tourne parfaitement sur Excel 2000
Cette appli inhibe complètement les menus standards d'Excel
avec ma cde Quitter, je rétablis la config des menus avant les menus
personnalisés
et après mes svg, Application.Quit
tout est ok
sur Excel 2007, tout mes menus perso fonctionnent très bien sauf sur cette
cde (Application.Quit), Excel plante
Auriez vous une explication
Merci d'avance
Bonjour, J'ai une appli qui tourne parfaitement sur Excel 2000 Cette appli inhibe complètement les menus standards d'Excel avec ma cde Quitter, je rétablis la config des menus avant les menus personnalisés et après mes svg, Application.Quit tout est ok
sur Excel 2007, tout mes menus perso fonctionnent très bien sauf sur cette cde (Application.Quit), Excel plante Auriez vous une explication Merci d'avance
Bonjour,
J'ai une appli qui tourne parfaitement sur Excel 2000
Cette appli inhibe complètement les menus standards d'Excel
avec ma cde Quitter, je rétablis la config des menus avant les
menus personnalisés
et après mes svg, Application.Quit
tout est ok
sur Excel 2007, tout mes menus perso fonctionnent très bien sauf sur
cette cde (Application.Quit), Excel plante
Auriez vous une explication
Merci d'avance
Bonjour, J'ai une appli qui tourne parfaitement sur Excel 2000 Cette appli inhibe complètement les menus standards d'Excel avec ma cde Quitter, je rétablis la config des menus avant les menus personnalisés et après mes svg, Application.Quit tout est ok
sur Excel 2007, tout mes menus perso fonctionnent très bien sauf sur cette cde (Application.Quit), Excel plante Auriez vous une explication Merci d'avance
JPMonnier
Ou je sauvegarde et clos ensuite, ce qui m'inquiète est que le pb n'existe pas sur Excel 2000 -- Cordialement
"isabelle" a écrit dans le message de news:usSZno2%
Bonjour, J'ai une appli qui tourne parfaitement sur Excel 2000 Cette appli inhibe complètement les menus standards d'Excel avec ma cde Quitter, je rétablis la config des menus avant les menus personnalisés et après mes svg, Application.Quit tout est ok
sur Excel 2007, tout mes menus perso fonctionnent très bien sauf sur cette cde (Application.Quit), Excel plante Auriez vous une explication Merci d'avance
Ou je sauvegarde et clos ensuite, ce qui m'inquiète est que le pb n'existe
pas sur Excel 2000
--
Cordialement
jpmonnier-nospam@neuf.fr
"isabelle" <i@v> a écrit dans le message de
news:usSZno2%23KHA.1888@TK2MSFTNGP05.phx.gbl...
Bonjour,
J'ai une appli qui tourne parfaitement sur Excel 2000
Cette appli inhibe complètement les menus standards d'Excel
avec ma cde Quitter, je rétablis la config des menus avant les menus
personnalisés
et après mes svg, Application.Quit
tout est ok
sur Excel 2007, tout mes menus perso fonctionnent très bien sauf sur
cette cde (Application.Quit), Excel plante
Auriez vous une explication
Merci d'avance
Bonjour, J'ai une appli qui tourne parfaitement sur Excel 2000 Cette appli inhibe complètement les menus standards d'Excel avec ma cde Quitter, je rétablis la config des menus avant les menus personnalisés et après mes svg, Application.Quit tout est ok
sur Excel 2007, tout mes menus perso fonctionnent très bien sauf sur cette cde (Application.Quit), Excel plante Auriez vous une explication Merci d'avance
isabelle
ça semple être un problème connu, y'a pas mal de discutions sur le web à ce sujet pour xl2007.
isabelle
Le 2010-05-24 14:14, JPMonnier a écrit :
Ou je sauvegarde et clos ensuite, ce qui m'inquiète est que le pb n'existe pas sur Excel 2000
ça semple être un problème connu, y'a pas mal de discutions sur le web à
ce sujet pour xl2007.
isabelle
Le 2010-05-24 14:14, JPMonnier a écrit :
Ou je sauvegarde et clos ensuite, ce qui m'inquiète est que le pb
n'existe pas sur Excel 2000
ça semple être un problème connu, y'a pas mal de discutions sur le web à ce sujet pour xl2007.
isabelle
Le 2010-05-24 14:14, JPMonnier a écrit :
Ou je sauvegarde et clos ensuite, ce qui m'inquiète est que le pb n'existe pas sur Excel 2000
JPMonnier
oui j'ai scruté le web mais je n'y ai pas trouvé mon compte merci -- Cordialement
"isabelle" a écrit dans le message de news:%23hE9a72%
ça semple être un problème connu, y'a pas mal de discutions sur le web à ce sujet pour xl2007.
isabelle
Le 2010-05-24 14:14, JPMonnier a écrit :
Ou je sauvegarde et clos ensuite, ce qui m'inquiète est que le pb n'existe pas sur Excel 2000
oui j'ai scruté le web mais je n'y ai pas trouvé mon compte
merci
--
Cordialement
jpmonnier-nospam@neuf.fr
"isabelle" <i@v> a écrit dans le message de
news:%23hE9a72%23KHA.1888@TK2MSFTNGP05.phx.gbl...
ça semple être un problème connu, y'a pas mal de discutions sur le web à
ce sujet pour xl2007.
isabelle
Le 2010-05-24 14:14, JPMonnier a écrit :
Ou je sauvegarde et clos ensuite, ce qui m'inquiète est que le pb
n'existe pas sur Excel 2000
oui j'ai scruté le web mais je n'y ai pas trouvé mon compte merci -- Cordialement
"isabelle" a écrit dans le message de news:%23hE9a72%
ça semple être un problème connu, y'a pas mal de discutions sur le web à ce sujet pour xl2007.
isabelle
Le 2010-05-24 14:14, JPMonnier a écrit :
Ou je sauvegarde et clos ensuite, ce qui m'inquiète est que le pb n'existe pas sur Excel 2000
michdenis
Bonjour,
Ferme d'abord tous les classeurs et ensuite l'application
Dim Wk As Workbook With Application For Each Wk in .Workbooks Wk.Close True 'Or False pour sauvegarder ou non! Next .Quit End With
"JPMonnier" a écrit dans le message de groupe de discussion : #xR#7f0#
Bonjour, J'ai une appli qui tourne parfaitement sur Excel 2000 Cette appli inhibe complètement les menus standards d'Excel avec ma cde Quitter, je rétablis la config des menus avant les menus personnalisés et après mes svg, Application.Quit tout est ok
sur Excel 2007, tout mes menus perso fonctionnent très bien sauf sur cette cde (Application.Quit), Excel plante Auriez vous une explication Merci d'avance
Bonjour,
Ferme d'abord tous les classeurs et ensuite l'application
Dim Wk As Workbook
With Application
For Each Wk in .Workbooks
Wk.Close True 'Or False pour sauvegarder ou non!
Next
.Quit
End With
"JPMonnier" <jpmonnier-no-spam@neuf.fr> a écrit dans le message de groupe de
discussion : #xR#7f0#KHA.3176@TK2MSFTNGP05.phx.gbl...
Bonjour,
J'ai une appli qui tourne parfaitement sur Excel 2000
Cette appli inhibe complètement les menus standards d'Excel
avec ma cde Quitter, je rétablis la config des menus avant les menus
personnalisés
et après mes svg, Application.Quit
tout est ok
sur Excel 2007, tout mes menus perso fonctionnent très bien sauf sur cette
cde (Application.Quit), Excel plante
Auriez vous une explication
Merci d'avance
Ferme d'abord tous les classeurs et ensuite l'application
Dim Wk As Workbook With Application For Each Wk in .Workbooks Wk.Close True 'Or False pour sauvegarder ou non! Next .Quit End With
"JPMonnier" a écrit dans le message de groupe de discussion : #xR#7f0#
Bonjour, J'ai une appli qui tourne parfaitement sur Excel 2000 Cette appli inhibe complètement les menus standards d'Excel avec ma cde Quitter, je rétablis la config des menus avant les menus personnalisés et après mes svg, Application.Quit tout est ok
sur Excel 2007, tout mes menus perso fonctionnent très bien sauf sur cette cde (Application.Quit), Excel plante Auriez vous une explication Merci d'avance
JPMonnier
Bonjour, Voici la proc qui pose pb, en revanche cette proc fonctionne en mode pas à pas !! Nota: si je clos le classeur contenant cette procédure, il ne peut plus voir la commande Application.Quit
Sub Quitte() Application.ScreenUpdating = False ReinitCroixAppli ' Workbooks("devis.xls").Save Workbooks("devis.xls").Close Application.ScreenUpdating = True Reinit_Croix_Feuil Application.EnableEvents = False Workbooks("base clients4.xls").Sheets("menu").Activate ReinitCroixAppli InitToutesCroixFeuilles X = 1 Set BAR = Sheets("barres") For Each CB In Application.CommandBars If CB.Name = BAR.Cells(X + 1, 1) And CB.Name <> "Worksheet Menu Bar" Then CB.Visible = True X = X + 1 End If If BAR.Cells(X + 1, 1) = "" Then Exit For Next With Application .DisplayFormulaBar = True .DisplayStatusBar = True End With SupprimerMenumen 'Menu perso VisEnvir 'Rendre visible l'environnement de départ VisBar ' Rendre les barres de départ visible ActiveWorkbook.Save Application.Quit End Sub Merci -- Cordialement
"michdenis" a écrit dans le message de news:%2361FGo3%
Bonjour,
Ferme d'abord tous les classeurs et ensuite l'application
Dim Wk As Workbook With Application For Each Wk in .Workbooks Wk.Close True 'Or False pour sauvegarder ou non! Next .Quit End With
"JPMonnier" a écrit dans le message de groupe de discussion : #xR#7f0#
Bonjour, J'ai une appli qui tourne parfaitement sur Excel 2000 Cette appli inhibe complètement les menus standards d'Excel avec ma cde Quitter, je rétablis la config des menus avant les menus personnalisés et après mes svg, Application.Quit tout est ok
sur Excel 2007, tout mes menus perso fonctionnent très bien sauf sur cette cde (Application.Quit), Excel plante Auriez vous une explication Merci d'avance
Bonjour,
Voici la proc qui pose pb, en revanche cette proc fonctionne en mode pas à
pas !!
Nota: si je clos le classeur contenant cette procédure, il ne peut plus voir
la commande Application.Quit
Sub Quitte()
Application.ScreenUpdating = False
ReinitCroixAppli '
Workbooks("devis.xls").Save
Workbooks("devis.xls").Close
Application.ScreenUpdating = True
Reinit_Croix_Feuil
Application.EnableEvents = False
Workbooks("base clients4.xls").Sheets("menu").Activate
ReinitCroixAppli
InitToutesCroixFeuilles
X = 1
Set BAR = Sheets("barres")
For Each CB In Application.CommandBars
If CB.Name = BAR.Cells(X + 1, 1) And CB.Name <> "Worksheet Menu Bar" Then
CB.Visible = True
X = X + 1
End If
If BAR.Cells(X + 1, 1) = "" Then Exit For
Next
With Application
.DisplayFormulaBar = True
.DisplayStatusBar = True
End With
SupprimerMenumen 'Menu perso
VisEnvir 'Rendre visible l'environnement de départ
VisBar ' Rendre les barres de départ visible
ActiveWorkbook.Save
Application.Quit
End Sub
Merci
--
Cordialement
jpmonnier-nospam@neuf.fr
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:%2361FGo3%23KHA.5848@TK2MSFTNGP06.phx.gbl...
Bonjour,
Ferme d'abord tous les classeurs et ensuite l'application
Dim Wk As Workbook
With Application
For Each Wk in .Workbooks
Wk.Close True 'Or False pour sauvegarder ou non!
Next
.Quit
End With
"JPMonnier" <jpmonnier-no-spam@neuf.fr> a écrit dans le message de groupe
de discussion : #xR#7f0#KHA.3176@TK2MSFTNGP05.phx.gbl...
Bonjour,
J'ai une appli qui tourne parfaitement sur Excel 2000
Cette appli inhibe complètement les menus standards d'Excel
avec ma cde Quitter, je rétablis la config des menus avant les menus
personnalisés
et après mes svg, Application.Quit
tout est ok
sur Excel 2007, tout mes menus perso fonctionnent très bien sauf sur
cette cde (Application.Quit), Excel plante
Auriez vous une explication
Merci d'avance
Bonjour, Voici la proc qui pose pb, en revanche cette proc fonctionne en mode pas à pas !! Nota: si je clos le classeur contenant cette procédure, il ne peut plus voir la commande Application.Quit
Sub Quitte() Application.ScreenUpdating = False ReinitCroixAppli ' Workbooks("devis.xls").Save Workbooks("devis.xls").Close Application.ScreenUpdating = True Reinit_Croix_Feuil Application.EnableEvents = False Workbooks("base clients4.xls").Sheets("menu").Activate ReinitCroixAppli InitToutesCroixFeuilles X = 1 Set BAR = Sheets("barres") For Each CB In Application.CommandBars If CB.Name = BAR.Cells(X + 1, 1) And CB.Name <> "Worksheet Menu Bar" Then CB.Visible = True X = X + 1 End If If BAR.Cells(X + 1, 1) = "" Then Exit For Next With Application .DisplayFormulaBar = True .DisplayStatusBar = True End With SupprimerMenumen 'Menu perso VisEnvir 'Rendre visible l'environnement de départ VisBar ' Rendre les barres de départ visible ActiveWorkbook.Save Application.Quit End Sub Merci -- Cordialement
"michdenis" a écrit dans le message de news:%2361FGo3%
Bonjour,
Ferme d'abord tous les classeurs et ensuite l'application
Dim Wk As Workbook With Application For Each Wk in .Workbooks Wk.Close True 'Or False pour sauvegarder ou non! Next .Quit End With
"JPMonnier" a écrit dans le message de groupe de discussion : #xR#7f0#
Bonjour, J'ai une appli qui tourne parfaitement sur Excel 2000 Cette appli inhibe complètement les menus standards d'Excel avec ma cde Quitter, je rétablis la config des menus avant les menus personnalisés et après mes svg, Application.Quit tout est ok
sur Excel 2007, tout mes menus perso fonctionnent très bien sauf sur cette cde (Application.Quit), Excel plante Auriez vous une explication Merci d'avance
michdenis
Directement de l'aide d'Excel 2007
'------------------------------ For Each w In Application.Workbooks w.Save Next w Application.Quit '------------------------------
"JPMonnier" a écrit dans le message de groupe de discussion : #ZUp$I## Bonjour, Voici la proc qui pose pb, en revanche cette proc fonctionne en mode pas à pas !! Nota: si je clos le classeur contenant cette procédure, il ne peut plus voir la commande Application.Quit
Sub Quitte() Application.ScreenUpdating = False ReinitCroixAppli ' Workbooks("devis.xls").Save Workbooks("devis.xls").Close Application.ScreenUpdating = True Reinit_Croix_Feuil Application.EnableEvents = False Workbooks("base clients4.xls").Sheets("menu").Activate ReinitCroixAppli InitToutesCroixFeuilles X = 1 Set BAR = Sheets("barres") For Each CB In Application.CommandBars If CB.Name = BAR.Cells(X + 1, 1) And CB.Name <> "Worksheet Menu Bar" Then CB.Visible = True X = X + 1 End If If BAR.Cells(X + 1, 1) = "" Then Exit For Next With Application .DisplayFormulaBar = True .DisplayStatusBar = True End With SupprimerMenumen 'Menu perso VisEnvir 'Rendre visible l'environnement de départ VisBar ' Rendre les barres de départ visible ActiveWorkbook.Save Application.Quit End Sub Merci -- Cordialement
"michdenis" a écrit dans le message de news:%2361FGo3%
Bonjour,
Ferme d'abord tous les classeurs et ensuite l'application
Dim Wk As Workbook With Application For Each Wk in .Workbooks Wk.Close True 'Or False pour sauvegarder ou non! Next .Quit End With
"JPMonnier" a écrit dans le message de groupe de discussion : #xR#7f0#
Bonjour, J'ai une appli qui tourne parfaitement sur Excel 2000 Cette appli inhibe complètement les menus standards d'Excel avec ma cde Quitter, je rétablis la config des menus avant les menus personnalisés et après mes svg, Application.Quit tout est ok
sur Excel 2007, tout mes menus perso fonctionnent très bien sauf sur cette cde (Application.Quit), Excel plante Auriez vous une explication Merci d'avance
Directement de l'aide d'Excel 2007
'------------------------------
For Each w In Application.Workbooks
w.Save
Next w
Application.Quit
'------------------------------
"JPMonnier" <jpmonnier-no-spam@neuf.fr> a écrit dans le message de groupe de discussion :
#ZUp$I##KHA.5916@TK2MSFTNGP04.phx.gbl...
Bonjour,
Voici la proc qui pose pb, en revanche cette proc fonctionne en mode pas à
pas !!
Nota: si je clos le classeur contenant cette procédure, il ne peut plus voir
la commande Application.Quit
Sub Quitte()
Application.ScreenUpdating = False
ReinitCroixAppli '
Workbooks("devis.xls").Save
Workbooks("devis.xls").Close
Application.ScreenUpdating = True
Reinit_Croix_Feuil
Application.EnableEvents = False
Workbooks("base clients4.xls").Sheets("menu").Activate
ReinitCroixAppli
InitToutesCroixFeuilles
X = 1
Set BAR = Sheets("barres")
For Each CB In Application.CommandBars
If CB.Name = BAR.Cells(X + 1, 1) And CB.Name <> "Worksheet Menu Bar" Then
CB.Visible = True
X = X + 1
End If
If BAR.Cells(X + 1, 1) = "" Then Exit For
Next
With Application
.DisplayFormulaBar = True
.DisplayStatusBar = True
End With
SupprimerMenumen 'Menu perso
VisEnvir 'Rendre visible l'environnement de départ
VisBar ' Rendre les barres de départ visible
ActiveWorkbook.Save
Application.Quit
End Sub
Merci
--
Cordialement
jpmonnier-nospam@neuf.fr
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:%2361FGo3%23KHA.5848@TK2MSFTNGP06.phx.gbl...
Bonjour,
Ferme d'abord tous les classeurs et ensuite l'application
Dim Wk As Workbook
With Application
For Each Wk in .Workbooks
Wk.Close True 'Or False pour sauvegarder ou non!
Next
.Quit
End With
"JPMonnier" <jpmonnier-no-spam@neuf.fr> a écrit dans le message de groupe
de discussion : #xR#7f0#KHA.3176@TK2MSFTNGP05.phx.gbl...
Bonjour,
J'ai une appli qui tourne parfaitement sur Excel 2000
Cette appli inhibe complètement les menus standards d'Excel
avec ma cde Quitter, je rétablis la config des menus avant les menus
personnalisés
et après mes svg, Application.Quit
tout est ok
sur Excel 2007, tout mes menus perso fonctionnent très bien sauf sur
cette cde (Application.Quit), Excel plante
Auriez vous une explication
Merci d'avance
'------------------------------ For Each w In Application.Workbooks w.Save Next w Application.Quit '------------------------------
"JPMonnier" a écrit dans le message de groupe de discussion : #ZUp$I## Bonjour, Voici la proc qui pose pb, en revanche cette proc fonctionne en mode pas à pas !! Nota: si je clos le classeur contenant cette procédure, il ne peut plus voir la commande Application.Quit
Sub Quitte() Application.ScreenUpdating = False ReinitCroixAppli ' Workbooks("devis.xls").Save Workbooks("devis.xls").Close Application.ScreenUpdating = True Reinit_Croix_Feuil Application.EnableEvents = False Workbooks("base clients4.xls").Sheets("menu").Activate ReinitCroixAppli InitToutesCroixFeuilles X = 1 Set BAR = Sheets("barres") For Each CB In Application.CommandBars If CB.Name = BAR.Cells(X + 1, 1) And CB.Name <> "Worksheet Menu Bar" Then CB.Visible = True X = X + 1 End If If BAR.Cells(X + 1, 1) = "" Then Exit For Next With Application .DisplayFormulaBar = True .DisplayStatusBar = True End With SupprimerMenumen 'Menu perso VisEnvir 'Rendre visible l'environnement de départ VisBar ' Rendre les barres de départ visible ActiveWorkbook.Save Application.Quit End Sub Merci -- Cordialement
"michdenis" a écrit dans le message de news:%2361FGo3%
Bonjour,
Ferme d'abord tous les classeurs et ensuite l'application
Dim Wk As Workbook With Application For Each Wk in .Workbooks Wk.Close True 'Or False pour sauvegarder ou non! Next .Quit End With
"JPMonnier" a écrit dans le message de groupe de discussion : #xR#7f0#
Bonjour, J'ai une appli qui tourne parfaitement sur Excel 2000 Cette appli inhibe complètement les menus standards d'Excel avec ma cde Quitter, je rétablis la config des menus avant les menus personnalisés et après mes svg, Application.Quit tout est ok
sur Excel 2007, tout mes menus perso fonctionnent très bien sauf sur cette cde (Application.Quit), Excel plante Auriez vous une explication Merci d'avance