A l’ouverture on a une macro qui vire tous les outils d’ Excel y compris le
menu avec la macro déclenchée à l’ouverture :
Sub incognito()
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = False
Next cmdB
' si tu veux masquer en plus la barre d'état
' la barre de formule
' les onglets...
With Application
.DisplayFullScreen = True
.DisplayStatusBar = False
.DisplayFormulaBar = False
End With
With ActiveWindow
.DisplayWorkbookTabs = False
.DisplayHeadings = False
End With
'
FileToPlay = "mid" & Int(Rnd() * 6) & ".mid"
Alias = Left$(FileToPlay, Len(FileToPlay) - 4)
End Sub
Je crois que le dessin QUITTER n’a pas de macro affectée et qu’il faudrait
lui affecter :
Sub Sesame()
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = True
Next cmdB
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
End With
End Sub
Que faut-il ajouter a cette macro pour que l’on ne pose pas la question si
on veut sauvegarder à la fermeture ?
Est-ce que Sesame est suffisant pour retrouver son Excel comme on l’avait
paramétré avant de charger ce fichier ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
LSteph
Bonjour Jean-Paul V,
Est-ce que Sesame est suffisant pour retrouver son Excel comme on l'avait paramétré avant de charger ce fichier ?
Oui, pour ma part cela ne m'a pas posé de pb (j'ai d'ailleurs aussi un sésame dans mon perso au cas où , mais n'en ai pas eu besoin celui intègré au classeur y a pourvu)
Que faut-il ajouter a cette macro pour que l'on ne pose pas la question si on veut sauvegarder à la fermeture ?
Il est bien mieux que la question soit posée car ceux qui téléchargent ce fichier peuvent vouloir le garder ou non en l'état lors de sa fermeture. Ainsi, ce serait d'ailleurs selon un tel choix :
thisworkbook.close true ou false
'lSteph
"Jean-Paul V" a écrit dans le message de news:
Bonjour
J'ai chargé ce fichier n°1719 dans ExcelLabo
Je pense que ce fichier a un problème.
A l'ouverture on a une macro qui vire tous les outils d' Excel y compris le menu avec la macro déclenchée à l'ouverture :
Sub incognito() Dim cmdB As CommandBar For Each cmdB In Application.CommandBars cmdB.Enabled = False Next cmdB ' si tu veux masquer en plus la barre d'état ' la barre de formule ' les onglets... With Application .DisplayFullScreen = True .DisplayStatusBar = False .DisplayFormulaBar = False End With With ActiveWindow .DisplayWorkbookTabs = False .DisplayHeadings = False End With ' FileToPlay = "mid" & Int(Rnd() * 6) & ".mid" Alias = Left$(FileToPlay, Len(FileToPlay) - 4) End Sub
Je crois que le dessin QUITTER n'a pas de macro affectée et qu'il faudrait lui affecter : Sub Sesame() Dim cmdB As CommandBar For Each cmdB In Application.CommandBars cmdB.Enabled = True Next cmdB With Application .DisplayFullScreen = False .DisplayStatusBar = True .DisplayFormulaBar = True End With With ActiveWindow .DisplayWorkbookTabs = True .DisplayHeadings = True End With End Sub Que faut-il ajouter a cette macro pour que l'on ne pose pas la question si on veut sauvegarder à la fermeture ?
Est-ce que Sesame est suffisant pour retrouver son Excel comme on l'avait paramétré avant de charger ce fichier ?
Bien Amicalement
Bonjour Jean-Paul V,
Est-ce que Sesame est suffisant pour retrouver son Excel comme on l'avait
paramétré avant de charger ce fichier ?
Oui, pour ma part cela ne m'a pas posé de pb (j'ai d'ailleurs aussi un
sésame dans
mon perso au cas où , mais n'en ai pas eu besoin celui intègré au classeur y
a pourvu)
Que faut-il ajouter a cette macro pour que l'on ne pose pas la question si
on veut sauvegarder à la fermeture ?
Il est bien mieux que la question soit posée car ceux qui téléchargent ce
fichier
peuvent vouloir le garder ou non en l'état lors de sa fermeture.
Ainsi, ce serait d'ailleurs selon un tel choix :
thisworkbook.close true
ou
false
'lSteph
"Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le message
de news: 337F8FD1-0667-4743-8812-02E4404841DD@microsoft.com...
Bonjour
J'ai chargé ce fichier n°1719 dans ExcelLabo
Je pense que ce fichier a un problème.
A l'ouverture on a une macro qui vire tous les outils d' Excel y compris
le
menu avec la macro déclenchée à l'ouverture :
Sub incognito()
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = False
Next cmdB
' si tu veux masquer en plus la barre d'état
' la barre de formule
' les onglets...
With Application
.DisplayFullScreen = True
.DisplayStatusBar = False
.DisplayFormulaBar = False
End With
With ActiveWindow
.DisplayWorkbookTabs = False
.DisplayHeadings = False
End With
'
FileToPlay = "mid" & Int(Rnd() * 6) & ".mid"
Alias = Left$(FileToPlay, Len(FileToPlay) - 4)
End Sub
Je crois que le dessin QUITTER n'a pas de macro affectée et qu'il faudrait
lui affecter :
Sub Sesame()
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = True
Next cmdB
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
End With
End Sub
Que faut-il ajouter a cette macro pour que l'on ne pose pas la question si
on veut sauvegarder à la fermeture ?
Est-ce que Sesame est suffisant pour retrouver son Excel comme on l'avait
paramétré avant de charger ce fichier ?
Est-ce que Sesame est suffisant pour retrouver son Excel comme on l'avait paramétré avant de charger ce fichier ?
Oui, pour ma part cela ne m'a pas posé de pb (j'ai d'ailleurs aussi un sésame dans mon perso au cas où , mais n'en ai pas eu besoin celui intègré au classeur y a pourvu)
Que faut-il ajouter a cette macro pour que l'on ne pose pas la question si on veut sauvegarder à la fermeture ?
Il est bien mieux que la question soit posée car ceux qui téléchargent ce fichier peuvent vouloir le garder ou non en l'état lors de sa fermeture. Ainsi, ce serait d'ailleurs selon un tel choix :
thisworkbook.close true ou false
'lSteph
"Jean-Paul V" a écrit dans le message de news:
Bonjour
J'ai chargé ce fichier n°1719 dans ExcelLabo
Je pense que ce fichier a un problème.
A l'ouverture on a une macro qui vire tous les outils d' Excel y compris le menu avec la macro déclenchée à l'ouverture :
Sub incognito() Dim cmdB As CommandBar For Each cmdB In Application.CommandBars cmdB.Enabled = False Next cmdB ' si tu veux masquer en plus la barre d'état ' la barre de formule ' les onglets... With Application .DisplayFullScreen = True .DisplayStatusBar = False .DisplayFormulaBar = False End With With ActiveWindow .DisplayWorkbookTabs = False .DisplayHeadings = False End With ' FileToPlay = "mid" & Int(Rnd() * 6) & ".mid" Alias = Left$(FileToPlay, Len(FileToPlay) - 4) End Sub
Je crois que le dessin QUITTER n'a pas de macro affectée et qu'il faudrait lui affecter : Sub Sesame() Dim cmdB As CommandBar For Each cmdB In Application.CommandBars cmdB.Enabled = True Next cmdB With Application .DisplayFullScreen = False .DisplayStatusBar = True .DisplayFormulaBar = True End With With ActiveWindow .DisplayWorkbookTabs = True .DisplayHeadings = True End With End Sub Que faut-il ajouter a cette macro pour que l'on ne pose pas la question si on veut sauvegarder à la fermeture ?
Est-ce que Sesame est suffisant pour retrouver son Excel comme on l'avait paramétré avant de charger ce fichier ?
Bien Amicalement
Modeste
Bonsour® Jean-Paul V avec ferveur ;o))) vous nous disiez :
Je pense que ce fichier a un problème.
A l'ouverture on a une macro qui vire tous les outils d' Excel y compris le menu avec la macro déclenchée à l'ouverture : Je crois que le dessin QUITTER n'a pas de macro affectée et qu'il faudrait lui affecter :
Oupsss!!!! en effet il y a un probleme ... excelabo n'y est pour rien la version mise à disposition ne correspond pas à la version finalisée que je pensais avoir distribuée ... toute mes excuses .
à titre de dépannage : l'accés au code (démasquage) se fait par Ctrl+shift+G l'inverse (masquage) se fait par Ctrl+Shift+H
il manque en effet la macro affectée au bouton Quitter : Sub quitter() ThisWorkbook.Saved = True ThisWorkbook.Close End Sub
c'est la procédure ThisWorkBook_beforeclose qui rétabli les barres de menu
Excel gérant trés mal la mémoire graphique, en cas de plantage, l'état initial ne serait pas restauré il peut etre prudent de sauvegarder la macro Sésame dans votre fichier perso.xls
Je rappelle toutefois que toutes ces élucubrations n'ont qu'une valeur didactique quant aux possibilités d'EXCEL. l'accés et la modification du code est de l'entière responsabilité de l'utilisateur.
une version corrigée sera fournie à Excelabo
Merci du retour
-- ;o))) @+
Les news à la source !!! news://news.microsoft.com/microsoft.public.fr.excel et répondez OUI
n'oubliez pas les FAQ :http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr
Bonsour® Jean-Paul V avec ferveur ;o))) vous nous disiez :
Je pense que ce fichier a un problème.
A l'ouverture on a une macro qui vire tous les outils d' Excel y compris
le
menu avec la macro déclenchée à l'ouverture :
Je crois que le dessin QUITTER n'a pas de macro affectée et qu'il faudrait
lui affecter :
Oupsss!!!!
en effet il y a un probleme ...
excelabo n'y est pour rien
la version mise à disposition ne correspond pas à la version finalisée que
je pensais avoir distribuée ...
toute mes excuses .
à titre de dépannage :
l'accés au code (démasquage) se fait par Ctrl+shift+G
l'inverse (masquage) se fait par Ctrl+Shift+H
il manque en effet la macro affectée au bouton Quitter :
Sub quitter()
ThisWorkbook.Saved = True
ThisWorkbook.Close
End Sub
c'est la procédure ThisWorkBook_beforeclose qui rétabli les barres de menu
Excel gérant trés mal la mémoire graphique, en cas de plantage, l'état
initial ne serait pas restauré
il peut etre prudent de sauvegarder la macro Sésame dans votre fichier
perso.xls
Je rappelle toutefois que toutes ces élucubrations n'ont qu'une valeur
didactique quant aux possibilités d'EXCEL.
l'accés et la modification du code est de l'entière responsabilité de
l'utilisateur.
une version corrigée sera fournie à Excelabo
Merci du retour
--
;o)))
@+
Les news à la source !!!
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI
n'oubliez pas les FAQ :http://www.excelabo.net
http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
Bonsour® Jean-Paul V avec ferveur ;o))) vous nous disiez :
Je pense que ce fichier a un problème.
A l'ouverture on a une macro qui vire tous les outils d' Excel y compris le menu avec la macro déclenchée à l'ouverture : Je crois que le dessin QUITTER n'a pas de macro affectée et qu'il faudrait lui affecter :
Oupsss!!!! en effet il y a un probleme ... excelabo n'y est pour rien la version mise à disposition ne correspond pas à la version finalisée que je pensais avoir distribuée ... toute mes excuses .
à titre de dépannage : l'accés au code (démasquage) se fait par Ctrl+shift+G l'inverse (masquage) se fait par Ctrl+Shift+H
il manque en effet la macro affectée au bouton Quitter : Sub quitter() ThisWorkbook.Saved = True ThisWorkbook.Close End Sub
c'est la procédure ThisWorkBook_beforeclose qui rétabli les barres de menu
Excel gérant trés mal la mémoire graphique, en cas de plantage, l'état initial ne serait pas restauré il peut etre prudent de sauvegarder la macro Sésame dans votre fichier perso.xls
Je rappelle toutefois que toutes ces élucubrations n'ont qu'une valeur didactique quant aux possibilités d'EXCEL. l'accés et la modification du code est de l'entière responsabilité de l'utilisateur.
une version corrigée sera fournie à Excelabo
Merci du retour
-- ;o))) @+
Les news à la source !!! news://news.microsoft.com/microsoft.public.fr.excel et répondez OUI
n'oubliez pas les FAQ :http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr
Misange
Salut GeeDee
Renvoie moi la version définitive que je fasse l'échange ! D'une façon générale, si tu pouvais donner le choix à l'ouverture du classeur de se mettre ou non en mode plein écran avec perte de toutes les barres d'outils ce serait nettement moins risqué ! Je dois dire que je suis assez réticente aux applis qui modifient ma config... J'ai toujours un peu peur de ne pas retrouver mes petits ensuite :-)
Misange migrateuse http://www.excelabo.net mail : http://cerbermail.com/?k5Q8Dh2mta
Le 15/01/2006 12:33, :
Bonsour® Jean-Paul V avec ferveur ;o))) vous nous disiez :
Je pense que ce fichier a un problème.
A l'ouverture on a une macro qui vire tous les outils d' Excel y compris le menu avec la macro déclenchée à l'ouverture : Je crois que le dessin QUITTER n'a pas de macro affectée et qu'il faudrait lui affecter :
Oupsss!!!! en effet il y a un probleme ... excelabo n'y est pour rien la version mise à disposition ne correspond pas à la version finalisée que je pensais avoir distribuée ... toute mes excuses .
à titre de dépannage : l'accés au code (démasquage) se fait par Ctrl+shift+G l'inverse (masquage) se fait par Ctrl+Shift+H
il manque en effet la macro affectée au bouton Quitter : Sub quitter() ThisWorkbook.Saved = True ThisWorkbook.Close End Sub
c'est la procédure ThisWorkBook_beforeclose qui rétabli les barres de menu
Excel gérant trés mal la mémoire graphique, en cas de plantage, l'état initial ne serait pas restauré il peut etre prudent de sauvegarder la macro Sésame dans votre fichier perso.xls
Je rappelle toutefois que toutes ces élucubrations n'ont qu'une valeur didactique quant aux possibilités d'EXCEL. l'accés et la modification du code est de l'entière responsabilité de l'utilisateur.
une version corrigée sera fournie à Excelabo
Merci du retour
Salut GeeDee
Renvoie moi la version définitive que je fasse l'échange !
D'une façon générale, si tu pouvais donner le choix à l'ouverture du
classeur de se mettre ou non en mode plein écran avec perte de toutes
les barres d'outils ce serait nettement moins risqué !
Je dois dire que je suis assez réticente aux applis qui modifient ma
config... J'ai toujours un peu peur de ne pas retrouver mes petits
ensuite :-)
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta
Le 15/01/2006 12:33, :
Bonsour® Jean-Paul V avec ferveur ;o))) vous nous disiez :
Je pense que ce fichier a un problème.
A l'ouverture on a une macro qui vire tous les outils d' Excel y compris
le
menu avec la macro déclenchée à l'ouverture :
Je crois que le dessin QUITTER n'a pas de macro affectée et qu'il faudrait
lui affecter :
Oupsss!!!!
en effet il y a un probleme ...
excelabo n'y est pour rien
la version mise à disposition ne correspond pas à la version finalisée que
je pensais avoir distribuée ...
toute mes excuses .
à titre de dépannage :
l'accés au code (démasquage) se fait par Ctrl+shift+G
l'inverse (masquage) se fait par Ctrl+Shift+H
il manque en effet la macro affectée au bouton Quitter :
Sub quitter()
ThisWorkbook.Saved = True
ThisWorkbook.Close
End Sub
c'est la procédure ThisWorkBook_beforeclose qui rétabli les barres de menu
Excel gérant trés mal la mémoire graphique, en cas de plantage, l'état
initial ne serait pas restauré
il peut etre prudent de sauvegarder la macro Sésame dans votre fichier
perso.xls
Je rappelle toutefois que toutes ces élucubrations n'ont qu'une valeur
didactique quant aux possibilités d'EXCEL.
l'accés et la modification du code est de l'entière responsabilité de
l'utilisateur.
Renvoie moi la version définitive que je fasse l'échange ! D'une façon générale, si tu pouvais donner le choix à l'ouverture du classeur de se mettre ou non en mode plein écran avec perte de toutes les barres d'outils ce serait nettement moins risqué ! Je dois dire que je suis assez réticente aux applis qui modifient ma config... J'ai toujours un peu peur de ne pas retrouver mes petits ensuite :-)
Misange migrateuse http://www.excelabo.net mail : http://cerbermail.com/?k5Q8Dh2mta
Le 15/01/2006 12:33, :
Bonsour® Jean-Paul V avec ferveur ;o))) vous nous disiez :
Je pense que ce fichier a un problème.
A l'ouverture on a une macro qui vire tous les outils d' Excel y compris le menu avec la macro déclenchée à l'ouverture : Je crois que le dessin QUITTER n'a pas de macro affectée et qu'il faudrait lui affecter :
Oupsss!!!! en effet il y a un probleme ... excelabo n'y est pour rien la version mise à disposition ne correspond pas à la version finalisée que je pensais avoir distribuée ... toute mes excuses .
à titre de dépannage : l'accés au code (démasquage) se fait par Ctrl+shift+G l'inverse (masquage) se fait par Ctrl+Shift+H
il manque en effet la macro affectée au bouton Quitter : Sub quitter() ThisWorkbook.Saved = True ThisWorkbook.Close End Sub
c'est la procédure ThisWorkBook_beforeclose qui rétabli les barres de menu
Excel gérant trés mal la mémoire graphique, en cas de plantage, l'état initial ne serait pas restauré il peut etre prudent de sauvegarder la macro Sésame dans votre fichier perso.xls
Je rappelle toutefois que toutes ces élucubrations n'ont qu'une valeur didactique quant aux possibilités d'EXCEL. l'accés et la modification du code est de l'entière responsabilité de l'utilisateur.
une version corrigée sera fournie à Excelabo
Merci du retour
LSteph
Re, ...oupss visiblement la version que j'en ai eu n'est pas sans doute pas la même! Il y a sesame dans le beforeclose et comme j'avais fermé par la barre des taches, je n'ai pas eu ce souci autant pour moi!
lSteph
"LSteph" a écrit dans le message de news: %
Bonjour Jean-Paul V,
Est-ce que Sesame est suffisant pour retrouver son Excel comme on l'avait paramétré avant de charger ce fichier ?
Oui, pour ma part cela ne m'a pas posé de pb (j'ai d'ailleurs aussi un sésame dans mon perso au cas où , mais n'en ai pas eu besoin celui intègré au classeur y a pourvu)
Que faut-il ajouter a cette macro pour que l'on ne pose pas la question si on veut sauvegarder à la fermeture ?
Il est bien mieux que la question soit posée car ceux qui téléchargent ce fichier peuvent vouloir le garder ou non en l'état lors de sa fermeture. Ainsi, ce serait d'ailleurs selon un tel choix :
thisworkbook.close true ou false
'lSteph
"Jean-Paul V" a écrit dans le message de news:
Bonjour
J'ai chargé ce fichier n°1719 dans ExcelLabo
Je pense que ce fichier a un problème.
A l'ouverture on a une macro qui vire tous les outils d' Excel y compris le menu avec la macro déclenchée à l'ouverture :
Sub incognito() Dim cmdB As CommandBar For Each cmdB In Application.CommandBars cmdB.Enabled = False Next cmdB ' si tu veux masquer en plus la barre d'état ' la barre de formule ' les onglets... With Application .DisplayFullScreen = True .DisplayStatusBar = False .DisplayFormulaBar = False End With With ActiveWindow .DisplayWorkbookTabs = False .DisplayHeadings = False End With ' FileToPlay = "mid" & Int(Rnd() * 6) & ".mid" Alias = Left$(FileToPlay, Len(FileToPlay) - 4) End Sub
Je crois que le dessin QUITTER n'a pas de macro affectée et qu'il faudrait lui affecter : Sub Sesame() Dim cmdB As CommandBar For Each cmdB In Application.CommandBars cmdB.Enabled = True Next cmdB With Application .DisplayFullScreen = False .DisplayStatusBar = True .DisplayFormulaBar = True End With With ActiveWindow .DisplayWorkbookTabs = True .DisplayHeadings = True End With End Sub Que faut-il ajouter a cette macro pour que l'on ne pose pas la question si on veut sauvegarder à la fermeture ?
Est-ce que Sesame est suffisant pour retrouver son Excel comme on l'avait paramétré avant de charger ce fichier ?
Bien Amicalement
Re,
...oupss visiblement la version que j'en ai eu n'est pas sans doute pas la
même!
Il y a sesame dans le beforeclose et comme j'avais fermé par la barre des
taches,
je n'ai pas eu ce souci autant pour moi!
lSteph
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
%23bhSqOcGGHA.2212@TK2MSFTNGP15.phx.gbl...
Bonjour Jean-Paul V,
Est-ce que Sesame est suffisant pour retrouver son Excel comme on l'avait
paramétré avant de charger ce fichier ?
Oui, pour ma part cela ne m'a pas posé de pb (j'ai d'ailleurs aussi un
sésame dans
mon perso au cas où , mais n'en ai pas eu besoin celui intègré au classeur
y a pourvu)
Que faut-il ajouter a cette macro pour que l'on ne pose pas la question
si
on veut sauvegarder à la fermeture ?
Il est bien mieux que la question soit posée car ceux qui téléchargent ce
fichier
peuvent vouloir le garder ou non en l'état lors de sa fermeture.
Ainsi, ce serait d'ailleurs selon un tel choix :
thisworkbook.close true
ou
false
'lSteph
"Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le
message de news: 337F8FD1-0667-4743-8812-02E4404841DD@microsoft.com...
Bonjour
J'ai chargé ce fichier n°1719 dans ExcelLabo
Je pense que ce fichier a un problème.
A l'ouverture on a une macro qui vire tous les outils d' Excel y compris
le
menu avec la macro déclenchée à l'ouverture :
Sub incognito()
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = False
Next cmdB
' si tu veux masquer en plus la barre d'état
' la barre de formule
' les onglets...
With Application
.DisplayFullScreen = True
.DisplayStatusBar = False
.DisplayFormulaBar = False
End With
With ActiveWindow
.DisplayWorkbookTabs = False
.DisplayHeadings = False
End With
'
FileToPlay = "mid" & Int(Rnd() * 6) & ".mid"
Alias = Left$(FileToPlay, Len(FileToPlay) - 4)
End Sub
Je crois que le dessin QUITTER n'a pas de macro affectée et qu'il
faudrait
lui affecter :
Sub Sesame()
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = True
Next cmdB
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
End With
End Sub
Que faut-il ajouter a cette macro pour que l'on ne pose pas la question
si
on veut sauvegarder à la fermeture ?
Est-ce que Sesame est suffisant pour retrouver son Excel comme on l'avait
paramétré avant de charger ce fichier ?
Re, ...oupss visiblement la version que j'en ai eu n'est pas sans doute pas la même! Il y a sesame dans le beforeclose et comme j'avais fermé par la barre des taches, je n'ai pas eu ce souci autant pour moi!
lSteph
"LSteph" a écrit dans le message de news: %
Bonjour Jean-Paul V,
Est-ce que Sesame est suffisant pour retrouver son Excel comme on l'avait paramétré avant de charger ce fichier ?
Oui, pour ma part cela ne m'a pas posé de pb (j'ai d'ailleurs aussi un sésame dans mon perso au cas où , mais n'en ai pas eu besoin celui intègré au classeur y a pourvu)
Que faut-il ajouter a cette macro pour que l'on ne pose pas la question si on veut sauvegarder à la fermeture ?
Il est bien mieux que la question soit posée car ceux qui téléchargent ce fichier peuvent vouloir le garder ou non en l'état lors de sa fermeture. Ainsi, ce serait d'ailleurs selon un tel choix :
thisworkbook.close true ou false
'lSteph
"Jean-Paul V" a écrit dans le message de news:
Bonjour
J'ai chargé ce fichier n°1719 dans ExcelLabo
Je pense que ce fichier a un problème.
A l'ouverture on a une macro qui vire tous les outils d' Excel y compris le menu avec la macro déclenchée à l'ouverture :
Sub incognito() Dim cmdB As CommandBar For Each cmdB In Application.CommandBars cmdB.Enabled = False Next cmdB ' si tu veux masquer en plus la barre d'état ' la barre de formule ' les onglets... With Application .DisplayFullScreen = True .DisplayStatusBar = False .DisplayFormulaBar = False End With With ActiveWindow .DisplayWorkbookTabs = False .DisplayHeadings = False End With ' FileToPlay = "mid" & Int(Rnd() * 6) & ".mid" Alias = Left$(FileToPlay, Len(FileToPlay) - 4) End Sub
Je crois que le dessin QUITTER n'a pas de macro affectée et qu'il faudrait lui affecter : Sub Sesame() Dim cmdB As CommandBar For Each cmdB In Application.CommandBars cmdB.Enabled = True Next cmdB With Application .DisplayFullScreen = False .DisplayStatusBar = True .DisplayFormulaBar = True End With With ActiveWindow .DisplayWorkbookTabs = True .DisplayHeadings = True End With End Sub Que faut-il ajouter a cette macro pour que l'on ne pose pas la question si on veut sauvegarder à la fermeture ?
Est-ce que Sesame est suffisant pour retrouver son Excel comme on l'avait paramétré avant de charger ce fichier ?
Bien Amicalement
Jean-Paul V
Merci à tous pour vos réponses.
C'est regardant vos fichiers qu'on découvre des possibilités insoupçonnées .
Bonsour® Jean-Paul V avec ferveur ;o))) vous nous disiez :
Je pense que ce fichier a un problème.
A l'ouverture on a une macro qui vire tous les outils d' Excel y compris le menu avec la macro déclenchée à l'ouverture : Je crois que le dessin QUITTER n'a pas de macro affectée et qu'il faudrait lui affecter :
Oupsss!!!! en effet il y a un probleme ... excelabo n'y est pour rien la version mise à disposition ne correspond pas à la version finalisée que je pensais avoir distribuée ... toute mes excuses .
à titre de dépannage : l'accés au code (démasquage) se fait par Ctrl+shift+G l'inverse (masquage) se fait par Ctrl+Shift+H
il manque en effet la macro affectée au bouton Quitter : Sub quitter() ThisWorkbook.Saved = True ThisWorkbook.Close End Sub
c'est la procédure ThisWorkBook_beforeclose qui rétabli les barres de menu
Excel gérant trés mal la mémoire graphique, en cas de plantage, l'état initial ne serait pas restauré il peut etre prudent de sauvegarder la macro Sésame dans votre fichier perso.xls
Je rappelle toutefois que toutes ces élucubrations n'ont qu'une valeur didactique quant aux possibilités d'EXCEL. l'accés et la modification du code est de l'entière responsabilité de l'utilisateur.
une version corrigée sera fournie à Excelabo
Merci du retour
-- ;o))) @+
Les news à la source !!! news://news.microsoft.com/microsoft.public.fr.excel et répondez OUI
n'oubliez pas les FAQ :http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr
Merci à tous pour vos réponses.
C'est regardant vos fichiers qu'on découvre des possibilités insoupçonnées .
Bonsour® Jean-Paul V avec ferveur ;o))) vous nous disiez :
Je pense que ce fichier a un problème.
A l'ouverture on a une macro qui vire tous les outils d' Excel y compris
le
menu avec la macro déclenchée à l'ouverture :
Je crois que le dessin QUITTER n'a pas de macro affectée et qu'il faudrait
lui affecter :
Oupsss!!!!
en effet il y a un probleme ...
excelabo n'y est pour rien
la version mise à disposition ne correspond pas à la version finalisée que
je pensais avoir distribuée ...
toute mes excuses .
à titre de dépannage :
l'accés au code (démasquage) se fait par Ctrl+shift+G
l'inverse (masquage) se fait par Ctrl+Shift+H
il manque en effet la macro affectée au bouton Quitter :
Sub quitter()
ThisWorkbook.Saved = True
ThisWorkbook.Close
End Sub
c'est la procédure ThisWorkBook_beforeclose qui rétabli les barres de menu
Excel gérant trés mal la mémoire graphique, en cas de plantage, l'état
initial ne serait pas restauré
il peut etre prudent de sauvegarder la macro Sésame dans votre fichier
perso.xls
Je rappelle toutefois que toutes ces élucubrations n'ont qu'une valeur
didactique quant aux possibilités d'EXCEL.
l'accés et la modification du code est de l'entière responsabilité de
l'utilisateur.
une version corrigée sera fournie à Excelabo
Merci du retour
--
;o)))
@+
Les news à la source !!!
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI
n'oubliez pas les FAQ :http://www.excelabo.net
http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
C'est regardant vos fichiers qu'on découvre des possibilités insoupçonnées .
Bonsour® Jean-Paul V avec ferveur ;o))) vous nous disiez :
Je pense que ce fichier a un problème.
A l'ouverture on a une macro qui vire tous les outils d' Excel y compris le menu avec la macro déclenchée à l'ouverture : Je crois que le dessin QUITTER n'a pas de macro affectée et qu'il faudrait lui affecter :
Oupsss!!!! en effet il y a un probleme ... excelabo n'y est pour rien la version mise à disposition ne correspond pas à la version finalisée que je pensais avoir distribuée ... toute mes excuses .
à titre de dépannage : l'accés au code (démasquage) se fait par Ctrl+shift+G l'inverse (masquage) se fait par Ctrl+Shift+H
il manque en effet la macro affectée au bouton Quitter : Sub quitter() ThisWorkbook.Saved = True ThisWorkbook.Close End Sub
c'est la procédure ThisWorkBook_beforeclose qui rétabli les barres de menu
Excel gérant trés mal la mémoire graphique, en cas de plantage, l'état initial ne serait pas restauré il peut etre prudent de sauvegarder la macro Sésame dans votre fichier perso.xls
Je rappelle toutefois que toutes ces élucubrations n'ont qu'une valeur didactique quant aux possibilités d'EXCEL. l'accés et la modification du code est de l'entière responsabilité de l'utilisateur.
une version corrigée sera fournie à Excelabo
Merci du retour
-- ;o))) @+
Les news à la source !!! news://news.microsoft.com/microsoft.public.fr.excel et répondez OUI
n'oubliez pas les FAQ :http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr
