Bonjour à tous
"Contraint" de passer à Excel 2007 après le vol de mon Excel 2000, j'avoue
que je trouve ça plutôt déroutant.
Mes applications qui fonctionnaient parfaitement sont maintenant en échec,
au moins pour les barres d'outils.
La barre standart ne disparait plus, et la barre d'outils personnalisée est
reléguée dans l'onglet "complément" (j'ai cherché un moment avant de la
trouver !!!)
Quelle est la solution?
Voici le code qui ne fonctionne plus sous XL2007:
Private Sub Workbook_Open()
Sheets("Enquete").Visible = True
Sheets("Avertissement").Visible = xlVeryHidden
Application.ScreenUpdating = False
Dim Barre As CommandBar
Set Barres = New Collection
For Each Barre In Application.CommandBars
If Barre.Visible = True And _
Barre.Name <> "Worksheet Menu Bar" Then
Barres.Add Barre.Name
Barre.Visible = False
End If
Next Barre
detruitCommandBarRMM
CommandBarRMM
Application.ScreenUpdating = True
With Application
.Caption = " blabala "
.WindowState = xlMaximized
.DisplayFormulaBar = False
.CommandBars("worksheet menu bar").Enabled = False
End With
With ActiveWindow
.DisplayHeadings = False
.DisplayGridlines = False
.DisplayZeros = False
.WindowState = xlMaximized
.Caption = " blebleu"
End With
End Sub
Merci +++ de me faire part de vos suggestions.
Bonjour à tous
"Contraint" de passer à Excel 2007 après le vol de mon Excel 2000, j'avoue
que je trouve ça plutôt déroutant.
Mes applications qui fonctionnaient parfaitement sont maintenant en échec,
au moins pour les barres d'outils.
La barre standart ne disparait plus, et la barre d'outils personnalisée est
reléguée dans l'onglet "complément" (j'ai cherché un moment avant de la
trouver !!!)
Quelle est la solution?
Voici le code qui ne fonctionne plus sous XL2007:
Private Sub Workbook_Open()
Sheets("Enquete").Visible = True
Sheets("Avertissement").Visible = xlVeryHidden
Application.ScreenUpdating = False
Dim Barre As CommandBar
Set Barres = New Collection
For Each Barre In Application.CommandBars
If Barre.Visible = True And _
Barre.Name <> "Worksheet Menu Bar" Then
Barres.Add Barre.Name
Barre.Visible = False
End If
Next Barre
detruitCommandBarRMM
CommandBarRMM
Application.ScreenUpdating = True
With Application
.Caption = " blabala "
.WindowState = xlMaximized
.DisplayFormulaBar = False
.CommandBars("worksheet menu bar").Enabled = False
End With
With ActiveWindow
.DisplayHeadings = False
.DisplayGridlines = False
.DisplayZeros = False
.WindowState = xlMaximized
.Caption = " blebleu"
End With
End Sub
Merci +++ de me faire part de vos suggestions.
Bonjour à tous
"Contraint" de passer à Excel 2007 après le vol de mon Excel 2000, j'avoue
que je trouve ça plutôt déroutant.
Mes applications qui fonctionnaient parfaitement sont maintenant en échec,
au moins pour les barres d'outils.
La barre standart ne disparait plus, et la barre d'outils personnalisée est
reléguée dans l'onglet "complément" (j'ai cherché un moment avant de la
trouver !!!)
Quelle est la solution?
Voici le code qui ne fonctionne plus sous XL2007:
Private Sub Workbook_Open()
Sheets("Enquete").Visible = True
Sheets("Avertissement").Visible = xlVeryHidden
Application.ScreenUpdating = False
Dim Barre As CommandBar
Set Barres = New Collection
For Each Barre In Application.CommandBars
If Barre.Visible = True And _
Barre.Name <> "Worksheet Menu Bar" Then
Barres.Add Barre.Name
Barre.Visible = False
End If
Next Barre
detruitCommandBarRMM
CommandBarRMM
Application.ScreenUpdating = True
With Application
.Caption = " blabala "
.WindowState = xlMaximized
.DisplayFormulaBar = False
.CommandBars("worksheet menu bar").Enabled = False
End With
With ActiveWindow
.DisplayHeadings = False
.DisplayGridlines = False
.DisplayZeros = False
.WindowState = xlMaximized
.Caption = " blebleu"
End With
End Sub
Merci +++ de me faire part de vos suggestions.
Bonjour à tous
"Contraint" de passer à Excel 2007 après le vol de mon Excel 2000, j'avoue
que je trouve ça plutôt déroutant.
Mes applications qui fonctionnaient parfaitement sont maintenant en échec,
au moins pour les barres d'outils.
La barre standart ne disparait plus, et la barre d'outils personnalisée
est reléguée dans l'onglet "complément" (j'ai cherché un moment avant de
la trouver !!!)
Quelle est la solution?
Voici le code qui ne fonctionne plus sous XL2007:
Private Sub Workbook_Open()
Sheets("Enquete").Visible = True
Sheets("Avertissement").Visible = xlVeryHidden
Application.ScreenUpdating = False
Dim Barre As CommandBar
Set Barres = New Collection
For Each Barre In Application.CommandBars
If Barre.Visible = True And _
Barre.Name <> "Worksheet Menu Bar" Then
Barres.Add Barre.Name
Barre.Visible = False
End If
Next Barre
detruitCommandBarRMM
CommandBarRMM
Application.ScreenUpdating = True
With Application
.Caption = " blabala "
.WindowState = xlMaximized
.DisplayFormulaBar = False
.CommandBars("worksheet menu bar").Enabled = False
End With
With ActiveWindow
.DisplayHeadings = False
.DisplayGridlines = False
.DisplayZeros = False
.WindowState = xlMaximized
.Caption = " blebleu"
End With
End Sub
Merci +++ de me faire part de vos suggestions.
Bonjour à tous
"Contraint" de passer à Excel 2007 après le vol de mon Excel 2000, j'avoue
que je trouve ça plutôt déroutant.
Mes applications qui fonctionnaient parfaitement sont maintenant en échec,
au moins pour les barres d'outils.
La barre standart ne disparait plus, et la barre d'outils personnalisée
est reléguée dans l'onglet "complément" (j'ai cherché un moment avant de
la trouver !!!)
Quelle est la solution?
Voici le code qui ne fonctionne plus sous XL2007:
Private Sub Workbook_Open()
Sheets("Enquete").Visible = True
Sheets("Avertissement").Visible = xlVeryHidden
Application.ScreenUpdating = False
Dim Barre As CommandBar
Set Barres = New Collection
For Each Barre In Application.CommandBars
If Barre.Visible = True And _
Barre.Name <> "Worksheet Menu Bar" Then
Barres.Add Barre.Name
Barre.Visible = False
End If
Next Barre
detruitCommandBarRMM
CommandBarRMM
Application.ScreenUpdating = True
With Application
.Caption = " blabala "
.WindowState = xlMaximized
.DisplayFormulaBar = False
.CommandBars("worksheet menu bar").Enabled = False
End With
With ActiveWindow
.DisplayHeadings = False
.DisplayGridlines = False
.DisplayZeros = False
.WindowState = xlMaximized
.Caption = " blebleu"
End With
End Sub
Merci +++ de me faire part de vos suggestions.
Bonjour à tous
"Contraint" de passer à Excel 2007 après le vol de mon Excel 2000, j'avoue
que je trouve ça plutôt déroutant.
Mes applications qui fonctionnaient parfaitement sont maintenant en échec,
au moins pour les barres d'outils.
La barre standart ne disparait plus, et la barre d'outils personnalisée
est reléguée dans l'onglet "complément" (j'ai cherché un moment avant de
la trouver !!!)
Quelle est la solution?
Voici le code qui ne fonctionne plus sous XL2007:
Private Sub Workbook_Open()
Sheets("Enquete").Visible = True
Sheets("Avertissement").Visible = xlVeryHidden
Application.ScreenUpdating = False
Dim Barre As CommandBar
Set Barres = New Collection
For Each Barre In Application.CommandBars
If Barre.Visible = True And _
Barre.Name <> "Worksheet Menu Bar" Then
Barres.Add Barre.Name
Barre.Visible = False
End If
Next Barre
detruitCommandBarRMM
CommandBarRMM
Application.ScreenUpdating = True
With Application
.Caption = " blabala "
.WindowState = xlMaximized
.DisplayFormulaBar = False
.CommandBars("worksheet menu bar").Enabled = False
End With
With ActiveWindow
.DisplayHeadings = False
.DisplayGridlines = False
.DisplayZeros = False
.WindowState = xlMaximized
.Caption = " blebleu"
End With
End Sub
Merci +++ de me faire part de vos suggestions.
Bonsoir
S'il y a bien une chose qui a changé entre 2007 et les versions
précédentes c'est la gestion des menus et des barres d'outils.
La notion de barre standard n'existe plus donc tu ne la feras pas
disparaitre avec ton code.
Si tu veux jouer avec les onglets il va te falloir apprendre le langage
XML. Pas sur que le jeu en vaille la chandelle. Si tu le penses, va faire
un tour sur le site de Ron de Bruin par exemple.
On peut raler, aimer, détester, protester, pleurer, supplier, le fait est
que c'est l'évolution décidée par microsoft. On peut espérer que les
possibilités de personnalisation de l'interface reviennent un peu dans les
prochaines versions d'office mais rien n'est certain. En tous cas, les
changements dans la structure des fichiers excel, qui inclut la
programmation de l'interface avec XML a l'air d'être bien en place.
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
Manbas a écrit :Bonjour à tous
"Contraint" de passer à Excel 2007 après le vol de mon Excel 2000,
j'avoue que je trouve ça plutôt déroutant.
Mes applications qui fonctionnaient parfaitement sont maintenant en
échec, au moins pour les barres d'outils.
La barre standart ne disparait plus, et la barre d'outils personnalisée
est reléguée dans l'onglet "complément" (j'ai cherché un moment avant de
la trouver !!!)
Quelle est la solution?
Voici le code qui ne fonctionne plus sous XL2007:
Private Sub Workbook_Open()
Sheets("Enquete").Visible = True
Sheets("Avertissement").Visible = xlVeryHidden
Application.ScreenUpdating = False
Dim Barre As CommandBar
Set Barres = New Collection
For Each Barre In Application.CommandBars
If Barre.Visible = True And _
Barre.Name <> "Worksheet Menu Bar" Then
Barres.Add Barre.Name
Barre.Visible = False
End If
Next Barre
detruitCommandBarRMM
CommandBarRMM
Application.ScreenUpdating = True
With Application
.Caption = " blabala "
.WindowState = xlMaximized
.DisplayFormulaBar = False
.CommandBars("worksheet menu bar").Enabled = False
End With
With ActiveWindow
.DisplayHeadings = False
.DisplayGridlines = False
.DisplayZeros = False
.WindowState = xlMaximized
.Caption = " blebleu"
End With
End Sub
Merci +++ de me faire part de vos suggestions.
Bonsoir
S'il y a bien une chose qui a changé entre 2007 et les versions
précédentes c'est la gestion des menus et des barres d'outils.
La notion de barre standard n'existe plus donc tu ne la feras pas
disparaitre avec ton code.
Si tu veux jouer avec les onglets il va te falloir apprendre le langage
XML. Pas sur que le jeu en vaille la chandelle. Si tu le penses, va faire
un tour sur le site de Ron de Bruin par exemple.
On peut raler, aimer, détester, protester, pleurer, supplier, le fait est
que c'est l'évolution décidée par microsoft. On peut espérer que les
possibilités de personnalisation de l'interface reviennent un peu dans les
prochaines versions d'office mais rien n'est certain. En tous cas, les
changements dans la structure des fichiers excel, qui inclut la
programmation de l'interface avec XML a l'air d'être bien en place.
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
Manbas a écrit :
Bonjour à tous
"Contraint" de passer à Excel 2007 après le vol de mon Excel 2000,
j'avoue que je trouve ça plutôt déroutant.
Mes applications qui fonctionnaient parfaitement sont maintenant en
échec, au moins pour les barres d'outils.
La barre standart ne disparait plus, et la barre d'outils personnalisée
est reléguée dans l'onglet "complément" (j'ai cherché un moment avant de
la trouver !!!)
Quelle est la solution?
Voici le code qui ne fonctionne plus sous XL2007:
Private Sub Workbook_Open()
Sheets("Enquete").Visible = True
Sheets("Avertissement").Visible = xlVeryHidden
Application.ScreenUpdating = False
Dim Barre As CommandBar
Set Barres = New Collection
For Each Barre In Application.CommandBars
If Barre.Visible = True And _
Barre.Name <> "Worksheet Menu Bar" Then
Barres.Add Barre.Name
Barre.Visible = False
End If
Next Barre
detruitCommandBarRMM
CommandBarRMM
Application.ScreenUpdating = True
With Application
.Caption = " blabala "
.WindowState = xlMaximized
.DisplayFormulaBar = False
.CommandBars("worksheet menu bar").Enabled = False
End With
With ActiveWindow
.DisplayHeadings = False
.DisplayGridlines = False
.DisplayZeros = False
.WindowState = xlMaximized
.Caption = " blebleu"
End With
End Sub
Merci +++ de me faire part de vos suggestions.
Bonsoir
S'il y a bien une chose qui a changé entre 2007 et les versions
précédentes c'est la gestion des menus et des barres d'outils.
La notion de barre standard n'existe plus donc tu ne la feras pas
disparaitre avec ton code.
Si tu veux jouer avec les onglets il va te falloir apprendre le langage
XML. Pas sur que le jeu en vaille la chandelle. Si tu le penses, va faire
un tour sur le site de Ron de Bruin par exemple.
On peut raler, aimer, détester, protester, pleurer, supplier, le fait est
que c'est l'évolution décidée par microsoft. On peut espérer que les
possibilités de personnalisation de l'interface reviennent un peu dans les
prochaines versions d'office mais rien n'est certain. En tous cas, les
changements dans la structure des fichiers excel, qui inclut la
programmation de l'interface avec XML a l'air d'être bien en place.
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
Manbas a écrit :Bonjour à tous
"Contraint" de passer à Excel 2007 après le vol de mon Excel 2000,
j'avoue que je trouve ça plutôt déroutant.
Mes applications qui fonctionnaient parfaitement sont maintenant en
échec, au moins pour les barres d'outils.
La barre standart ne disparait plus, et la barre d'outils personnalisée
est reléguée dans l'onglet "complément" (j'ai cherché un moment avant de
la trouver !!!)
Quelle est la solution?
Voici le code qui ne fonctionne plus sous XL2007:
Private Sub Workbook_Open()
Sheets("Enquete").Visible = True
Sheets("Avertissement").Visible = xlVeryHidden
Application.ScreenUpdating = False
Dim Barre As CommandBar
Set Barres = New Collection
For Each Barre In Application.CommandBars
If Barre.Visible = True And _
Barre.Name <> "Worksheet Menu Bar" Then
Barres.Add Barre.Name
Barre.Visible = False
End If
Next Barre
detruitCommandBarRMM
CommandBarRMM
Application.ScreenUpdating = True
With Application
.Caption = " blabala "
.WindowState = xlMaximized
.DisplayFormulaBar = False
.CommandBars("worksheet menu bar").Enabled = False
End With
With ActiveWindow
.DisplayHeadings = False
.DisplayGridlines = False
.DisplayZeros = False
.WindowState = xlMaximized
.Caption = " blebleu"
End With
End Sub
Merci +++ de me faire part de vos suggestions.
Bonjour
Des éléments de reponse ici
http://dj.joss.free.fr/xl2007.htm
--
Daniel
FAQ MPFE
http://dj.joss.free.fr/faq.htm
VBAXL
http://dj.joss.free.fr/
"Manbas" a écrit dans le message de news:Bonjour à tous
"Contraint" de passer à Excel 2007 après le vol de mon Excel 2000,
j'avoue que je trouve ça plutôt déroutant.
Mes applications qui fonctionnaient parfaitement sont maintenant en
échec, au moins pour les barres d'outils.
La barre standart ne disparait plus, et la barre d'outils personnalisée
est reléguée dans l'onglet "complément" (j'ai cherché un moment avant de
la trouver !!!)
Quelle est la solution?
Voici le code qui ne fonctionne plus sous XL2007:
Private Sub Workbook_Open()
Sheets("Enquete").Visible = True
Sheets("Avertissement").Visible = xlVeryHidden
Application.ScreenUpdating = False
Dim Barre As CommandBar
Set Barres = New Collection
For Each Barre In Application.CommandBars
If Barre.Visible = True And _
Barre.Name <> "Worksheet Menu Bar" Then
Barres.Add Barre.Name
Barre.Visible = False
End If
Next Barre
detruitCommandBarRMM
CommandBarRMM
Application.ScreenUpdating = True
With Application
.Caption = " blabala "
.WindowState = xlMaximized
.DisplayFormulaBar = False
.CommandBars("worksheet menu bar").Enabled = False
End With
With ActiveWindow
.DisplayHeadings = False
.DisplayGridlines = False
.DisplayZeros = False
.WindowState = xlMaximized
.Caption = " blebleu"
End With
End Sub
Merci +++ de me faire part de vos suggestions.
Bonjour
Des éléments de reponse ici
http://dj.joss.free.fr/xl2007.htm
--
Daniel
FAQ MPFE
http://dj.joss.free.fr/faq.htm
VBAXL
http://dj.joss.free.fr/
"Manbas" <nospam.j.ragni@wanadoo.fr> a écrit dans le message de news:
eZTeVebFJHA.768@TK2MSFTNGP05.phx.gbl...
Bonjour à tous
"Contraint" de passer à Excel 2007 après le vol de mon Excel 2000,
j'avoue que je trouve ça plutôt déroutant.
Mes applications qui fonctionnaient parfaitement sont maintenant en
échec, au moins pour les barres d'outils.
La barre standart ne disparait plus, et la barre d'outils personnalisée
est reléguée dans l'onglet "complément" (j'ai cherché un moment avant de
la trouver !!!)
Quelle est la solution?
Voici le code qui ne fonctionne plus sous XL2007:
Private Sub Workbook_Open()
Sheets("Enquete").Visible = True
Sheets("Avertissement").Visible = xlVeryHidden
Application.ScreenUpdating = False
Dim Barre As CommandBar
Set Barres = New Collection
For Each Barre In Application.CommandBars
If Barre.Visible = True And _
Barre.Name <> "Worksheet Menu Bar" Then
Barres.Add Barre.Name
Barre.Visible = False
End If
Next Barre
detruitCommandBarRMM
CommandBarRMM
Application.ScreenUpdating = True
With Application
.Caption = " blabala "
.WindowState = xlMaximized
.DisplayFormulaBar = False
.CommandBars("worksheet menu bar").Enabled = False
End With
With ActiveWindow
.DisplayHeadings = False
.DisplayGridlines = False
.DisplayZeros = False
.WindowState = xlMaximized
.Caption = " blebleu"
End With
End Sub
Merci +++ de me faire part de vos suggestions.
Bonjour
Des éléments de reponse ici
http://dj.joss.free.fr/xl2007.htm
--
Daniel
FAQ MPFE
http://dj.joss.free.fr/faq.htm
VBAXL
http://dj.joss.free.fr/
"Manbas" a écrit dans le message de news:Bonjour à tous
"Contraint" de passer à Excel 2007 après le vol de mon Excel 2000,
j'avoue que je trouve ça plutôt déroutant.
Mes applications qui fonctionnaient parfaitement sont maintenant en
échec, au moins pour les barres d'outils.
La barre standart ne disparait plus, et la barre d'outils personnalisée
est reléguée dans l'onglet "complément" (j'ai cherché un moment avant de
la trouver !!!)
Quelle est la solution?
Voici le code qui ne fonctionne plus sous XL2007:
Private Sub Workbook_Open()
Sheets("Enquete").Visible = True
Sheets("Avertissement").Visible = xlVeryHidden
Application.ScreenUpdating = False
Dim Barre As CommandBar
Set Barres = New Collection
For Each Barre In Application.CommandBars
If Barre.Visible = True And _
Barre.Name <> "Worksheet Menu Bar" Then
Barres.Add Barre.Name
Barre.Visible = False
End If
Next Barre
detruitCommandBarRMM
CommandBarRMM
Application.ScreenUpdating = True
With Application
.Caption = " blabala "
.WindowState = xlMaximized
.DisplayFormulaBar = False
.CommandBars("worksheet menu bar").Enabled = False
End With
With ActiveWindow
.DisplayHeadings = False
.DisplayGridlines = False
.DisplayZeros = False
.WindowState = xlMaximized
.Caption = " blebleu"
End With
End Sub
Merci +++ de me faire part de vos suggestions.
Merci pour ta réponse Daniel.
Quelques astuces ...
Il est très facile de supprimer toute l'interface utilisateur prédéfinie
d'excel.
Pour cela définissez StartFromScratch ="true" dans la balise <ribbon>
principale
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon startFromScratch="true">
Les principaux onglets prédéfinis, la barre d'outils Accès rapide et les
commandes du menu
à l'exception de Nouveau, Ouvrir et Enregistrer seront masqués.
Mais comment introduire du code xml dans VBA? Ou alors je n'ai rien compris.
Je n'ai pas encore fait d'essai car je crains quelques manoeuvres dont je ne
pourrais pas enclencher la marche arrière...
"Daniel.j" a écrit dans le message de news:
%Bonjour
Des éléments de reponse ici
http://dj.joss.free.fr/xl2007.htm
--
Daniel
FAQ MPFE
http://dj.joss.free.fr/faq.htm
VBAXL
http://dj.joss.free.fr/
"Manbas" a écrit dans le message de news:Bonjour à tous
"Contraint" de passer à Excel 2007 après le vol de mon Excel 2000,
j'avoue que je trouve ça plutôt déroutant.
Mes applications qui fonctionnaient parfaitement sont maintenant en
échec, au moins pour les barres d'outils.
La barre standart ne disparait plus, et la barre d'outils personnalisée
est reléguée dans l'onglet "complément" (j'ai cherché un moment avant de
la trouver !!!)
Quelle est la solution?
Voici le code qui ne fonctionne plus sous XL2007:
Private Sub Workbook_Open()
Sheets("Enquete").Visible = True
Sheets("Avertissement").Visible = xlVeryHidden
Application.ScreenUpdating = False
Dim Barre As CommandBar
Set Barres = New Collection
For Each Barre In Application.CommandBars
If Barre.Visible = True And _
Barre.Name <> "Worksheet Menu Bar" Then
Barres.Add Barre.Name
Barre.Visible = False
End If
Next Barre
detruitCommandBarRMM
CommandBarRMM
Application.ScreenUpdating = True
With Application
.Caption = " blabala "
.WindowState = xlMaximized
.DisplayFormulaBar = False
.CommandBars("worksheet menu bar").Enabled = False
End With
With ActiveWindow
.DisplayHeadings = False
.DisplayGridlines = False
.DisplayZeros = False
.WindowState = xlMaximized
.Caption = " blebleu"
End With
End Sub
Merci +++ de me faire part de vos suggestions.
Merci pour ta réponse Daniel.
Quelques astuces ...
Il est très facile de supprimer toute l'interface utilisateur prédéfinie
d'excel.
Pour cela définissez StartFromScratch ="true" dans la balise <ribbon>
principale
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon startFromScratch="true">
Les principaux onglets prédéfinis, la barre d'outils Accès rapide et les
commandes du menu
à l'exception de Nouveau, Ouvrir et Enregistrer seront masqués.
Mais comment introduire du code xml dans VBA? Ou alors je n'ai rien compris.
Je n'ai pas encore fait d'essai car je crains quelques manoeuvres dont je ne
pourrais pas enclencher la marche arrière...
"Daniel.j" <dj@free.fr> a écrit dans le message de news:
%2308iIsbFJHA.616@TK2MSFTNGP06.phx.gbl...
Bonjour
Des éléments de reponse ici
http://dj.joss.free.fr/xl2007.htm
--
Daniel
FAQ MPFE
http://dj.joss.free.fr/faq.htm
VBAXL
http://dj.joss.free.fr/
"Manbas" <nospam.j.ragni@wanadoo.fr> a écrit dans le message de news:
eZTeVebFJHA.768@TK2MSFTNGP05.phx.gbl...
Bonjour à tous
"Contraint" de passer à Excel 2007 après le vol de mon Excel 2000,
j'avoue que je trouve ça plutôt déroutant.
Mes applications qui fonctionnaient parfaitement sont maintenant en
échec, au moins pour les barres d'outils.
La barre standart ne disparait plus, et la barre d'outils personnalisée
est reléguée dans l'onglet "complément" (j'ai cherché un moment avant de
la trouver !!!)
Quelle est la solution?
Voici le code qui ne fonctionne plus sous XL2007:
Private Sub Workbook_Open()
Sheets("Enquete").Visible = True
Sheets("Avertissement").Visible = xlVeryHidden
Application.ScreenUpdating = False
Dim Barre As CommandBar
Set Barres = New Collection
For Each Barre In Application.CommandBars
If Barre.Visible = True And _
Barre.Name <> "Worksheet Menu Bar" Then
Barres.Add Barre.Name
Barre.Visible = False
End If
Next Barre
detruitCommandBarRMM
CommandBarRMM
Application.ScreenUpdating = True
With Application
.Caption = " blabala "
.WindowState = xlMaximized
.DisplayFormulaBar = False
.CommandBars("worksheet menu bar").Enabled = False
End With
With ActiveWindow
.DisplayHeadings = False
.DisplayGridlines = False
.DisplayZeros = False
.WindowState = xlMaximized
.Caption = " blebleu"
End With
End Sub
Merci +++ de me faire part de vos suggestions.
Merci pour ta réponse Daniel.
Quelques astuces ...
Il est très facile de supprimer toute l'interface utilisateur prédéfinie
d'excel.
Pour cela définissez StartFromScratch ="true" dans la balise <ribbon>
principale
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon startFromScratch="true">
Les principaux onglets prédéfinis, la barre d'outils Accès rapide et les
commandes du menu
à l'exception de Nouveau, Ouvrir et Enregistrer seront masqués.
Mais comment introduire du code xml dans VBA? Ou alors je n'ai rien compris.
Je n'ai pas encore fait d'essai car je crains quelques manoeuvres dont je ne
pourrais pas enclencher la marche arrière...
"Daniel.j" a écrit dans le message de news:
%Bonjour
Des éléments de reponse ici
http://dj.joss.free.fr/xl2007.htm
--
Daniel
FAQ MPFE
http://dj.joss.free.fr/faq.htm
VBAXL
http://dj.joss.free.fr/
"Manbas" a écrit dans le message de news:Bonjour à tous
"Contraint" de passer à Excel 2007 après le vol de mon Excel 2000,
j'avoue que je trouve ça plutôt déroutant.
Mes applications qui fonctionnaient parfaitement sont maintenant en
échec, au moins pour les barres d'outils.
La barre standart ne disparait plus, et la barre d'outils personnalisée
est reléguée dans l'onglet "complément" (j'ai cherché un moment avant de
la trouver !!!)
Quelle est la solution?
Voici le code qui ne fonctionne plus sous XL2007:
Private Sub Workbook_Open()
Sheets("Enquete").Visible = True
Sheets("Avertissement").Visible = xlVeryHidden
Application.ScreenUpdating = False
Dim Barre As CommandBar
Set Barres = New Collection
For Each Barre In Application.CommandBars
If Barre.Visible = True And _
Barre.Name <> "Worksheet Menu Bar" Then
Barres.Add Barre.Name
Barre.Visible = False
End If
Next Barre
detruitCommandBarRMM
CommandBarRMM
Application.ScreenUpdating = True
With Application
.Caption = " blabala "
.WindowState = xlMaximized
.DisplayFormulaBar = False
.CommandBars("worksheet menu bar").Enabled = False
End With
With ActiveWindow
.DisplayHeadings = False
.DisplayGridlines = False
.DisplayZeros = False
.WindowState = xlMaximized
.Caption = " blebleu"
End With
End Sub
Merci +++ de me faire part de vos suggestions.
Bonjour à tous
"Contraint" de passer à Excel 2007 après le vol de mon Excel 2000, j'avoue
que je trouve ça plutôt déroutant.
Mes applications qui fonctionnaient parfaitement sont maintenant en échec,
au moins pour les barres d'outils.
La barre standart ne disparait plus, et la barre d'outils personnalisée est
reléguée dans l'onglet "complément" (j'ai cherché un moment avant de la
trouver !!!)
Quelle est la solution?
Voici le code qui ne fonctionne plus sous XL2007:
Private Sub Workbook_Open()
Sheets("Enquete").Visible = True
Sheets("Avertissement").Visible = xlVeryHidden
Application.ScreenUpdating = False
Dim Barre As CommandBar
Set Barres = New Collection
For Each Barre In Application.CommandBars
If Barre.Visible = True And _
Barre.Name <> "Worksheet Menu Bar" Then
Barres.Add Barre.Name
Barre.Visible = False
End If
Next Barre
detruitCommandBarRMM
CommandBarRMM
Application.ScreenUpdating = True
With Application
.Caption = " blabala "
.WindowState = xlMaximized
.DisplayFormulaBar = False
.CommandBars("worksheet menu bar").Enabled = False
End With
With ActiveWindow
.DisplayHeadings = False
.DisplayGridlines = False
.DisplayZeros = False
.WindowState = xlMaximized
.Caption = " blebleu"
End With
End Sub
Merci +++ de me faire part de vos suggestions.
Bonjour à tous
"Contraint" de passer à Excel 2007 après le vol de mon Excel 2000, j'avoue
que je trouve ça plutôt déroutant.
Mes applications qui fonctionnaient parfaitement sont maintenant en échec,
au moins pour les barres d'outils.
La barre standart ne disparait plus, et la barre d'outils personnalisée est
reléguée dans l'onglet "complément" (j'ai cherché un moment avant de la
trouver !!!)
Quelle est la solution?
Voici le code qui ne fonctionne plus sous XL2007:
Private Sub Workbook_Open()
Sheets("Enquete").Visible = True
Sheets("Avertissement").Visible = xlVeryHidden
Application.ScreenUpdating = False
Dim Barre As CommandBar
Set Barres = New Collection
For Each Barre In Application.CommandBars
If Barre.Visible = True And _
Barre.Name <> "Worksheet Menu Bar" Then
Barres.Add Barre.Name
Barre.Visible = False
End If
Next Barre
detruitCommandBarRMM
CommandBarRMM
Application.ScreenUpdating = True
With Application
.Caption = " blabala "
.WindowState = xlMaximized
.DisplayFormulaBar = False
.CommandBars("worksheet menu bar").Enabled = False
End With
With ActiveWindow
.DisplayHeadings = False
.DisplayGridlines = False
.DisplayZeros = False
.WindowState = xlMaximized
.Caption = " blebleu"
End With
End Sub
Merci +++ de me faire part de vos suggestions.
Bonjour à tous
"Contraint" de passer à Excel 2007 après le vol de mon Excel 2000, j'avoue
que je trouve ça plutôt déroutant.
Mes applications qui fonctionnaient parfaitement sont maintenant en échec,
au moins pour les barres d'outils.
La barre standart ne disparait plus, et la barre d'outils personnalisée est
reléguée dans l'onglet "complément" (j'ai cherché un moment avant de la
trouver !!!)
Quelle est la solution?
Voici le code qui ne fonctionne plus sous XL2007:
Private Sub Workbook_Open()
Sheets("Enquete").Visible = True
Sheets("Avertissement").Visible = xlVeryHidden
Application.ScreenUpdating = False
Dim Barre As CommandBar
Set Barres = New Collection
For Each Barre In Application.CommandBars
If Barre.Visible = True And _
Barre.Name <> "Worksheet Menu Bar" Then
Barres.Add Barre.Name
Barre.Visible = False
End If
Next Barre
detruitCommandBarRMM
CommandBarRMM
Application.ScreenUpdating = True
With Application
.Caption = " blabala "
.WindowState = xlMaximized
.DisplayFormulaBar = False
.CommandBars("worksheet menu bar").Enabled = False
End With
With ActiveWindow
.DisplayHeadings = False
.DisplayGridlines = False
.DisplayZeros = False
.WindowState = xlMaximized
.Caption = " blebleu"
End With
End Sub
Merci +++ de me faire part de vos suggestions.
Merci pour ta réponse Daniel.
Quelques astuces ...
Il est très facile de supprimer toute l'interface utilisateur prédéfinie
d'excel.
Pour cela définissez StartFromScratch ="true" dans la balise <ribbon>
principale
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon startFromScratch="true">
Les principaux onglets prédéfinis, la barre d'outils Accès rapide et les
commandes du menu
à l'exception de Nouveau, Ouvrir et Enregistrer seront masqués.
Mais comment introduire du code xml dans VBA? Ou alors je n'ai rien
compris. Je n'ai pas encore fait d'essai car je crains quelques manoeuvres
dont je ne pourrais pas enclencher la marche arrière...
"Daniel.j" a écrit dans le message de news:
%Bonjour
Des éléments de reponse ici
http://dj.joss.free.fr/xl2007.htm
--
Daniel
FAQ MPFE
http://dj.joss.free.fr/faq.htm
VBAXL
http://dj.joss.free.fr/
"Manbas" a écrit dans le message de news:Bonjour à tous
"Contraint" de passer à Excel 2007 après le vol de mon Excel 2000,
j'avoue que je trouve ça plutôt déroutant.
Mes applications qui fonctionnaient parfaitement sont maintenant en
échec, au moins pour les barres d'outils.
La barre standart ne disparait plus, et la barre d'outils personnalisée
est reléguée dans l'onglet "complément" (j'ai cherché un moment avant de
la trouver !!!)
Quelle est la solution?
Voici le code qui ne fonctionne plus sous XL2007:
Private Sub Workbook_Open()
Sheets("Enquete").Visible = True
Sheets("Avertissement").Visible = xlVeryHidden
Application.ScreenUpdating = False
Dim Barre As CommandBar
Set Barres = New Collection
For Each Barre In Application.CommandBars
If Barre.Visible = True And _
Barre.Name <> "Worksheet Menu Bar" Then
Barres.Add Barre.Name
Barre.Visible = False
End If
Next Barre
detruitCommandBarRMM
CommandBarRMM
Application.ScreenUpdating = True
With Application
.Caption = " blabala "
.WindowState = xlMaximized
.DisplayFormulaBar = False
.CommandBars("worksheet menu bar").Enabled = False
End With
With ActiveWindow
.DisplayHeadings = False
.DisplayGridlines = False
.DisplayZeros = False
.WindowState = xlMaximized
.Caption = " blebleu"
End With
End Sub
Merci +++ de me faire part de vos suggestions.
Merci pour ta réponse Daniel.
Quelques astuces ...
Il est très facile de supprimer toute l'interface utilisateur prédéfinie
d'excel.
Pour cela définissez StartFromScratch ="true" dans la balise <ribbon>
principale
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon startFromScratch="true">
Les principaux onglets prédéfinis, la barre d'outils Accès rapide et les
commandes du menu
à l'exception de Nouveau, Ouvrir et Enregistrer seront masqués.
Mais comment introduire du code xml dans VBA? Ou alors je n'ai rien
compris. Je n'ai pas encore fait d'essai car je crains quelques manoeuvres
dont je ne pourrais pas enclencher la marche arrière...
"Daniel.j" <dj@free.fr> a écrit dans le message de news:
%2308iIsbFJHA.616@TK2MSFTNGP06.phx.gbl...
Bonjour
Des éléments de reponse ici
http://dj.joss.free.fr/xl2007.htm
--
Daniel
FAQ MPFE
http://dj.joss.free.fr/faq.htm
VBAXL
http://dj.joss.free.fr/
"Manbas" <nospam.j.ragni@wanadoo.fr> a écrit dans le message de news:
eZTeVebFJHA.768@TK2MSFTNGP05.phx.gbl...
Bonjour à tous
"Contraint" de passer à Excel 2007 après le vol de mon Excel 2000,
j'avoue que je trouve ça plutôt déroutant.
Mes applications qui fonctionnaient parfaitement sont maintenant en
échec, au moins pour les barres d'outils.
La barre standart ne disparait plus, et la barre d'outils personnalisée
est reléguée dans l'onglet "complément" (j'ai cherché un moment avant de
la trouver !!!)
Quelle est la solution?
Voici le code qui ne fonctionne plus sous XL2007:
Private Sub Workbook_Open()
Sheets("Enquete").Visible = True
Sheets("Avertissement").Visible = xlVeryHidden
Application.ScreenUpdating = False
Dim Barre As CommandBar
Set Barres = New Collection
For Each Barre In Application.CommandBars
If Barre.Visible = True And _
Barre.Name <> "Worksheet Menu Bar" Then
Barres.Add Barre.Name
Barre.Visible = False
End If
Next Barre
detruitCommandBarRMM
CommandBarRMM
Application.ScreenUpdating = True
With Application
.Caption = " blabala "
.WindowState = xlMaximized
.DisplayFormulaBar = False
.CommandBars("worksheet menu bar").Enabled = False
End With
With ActiveWindow
.DisplayHeadings = False
.DisplayGridlines = False
.DisplayZeros = False
.WindowState = xlMaximized
.Caption = " blebleu"
End With
End Sub
Merci +++ de me faire part de vos suggestions.
Merci pour ta réponse Daniel.
Quelques astuces ...
Il est très facile de supprimer toute l'interface utilisateur prédéfinie
d'excel.
Pour cela définissez StartFromScratch ="true" dans la balise <ribbon>
principale
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon startFromScratch="true">
Les principaux onglets prédéfinis, la barre d'outils Accès rapide et les
commandes du menu
à l'exception de Nouveau, Ouvrir et Enregistrer seront masqués.
Mais comment introduire du code xml dans VBA? Ou alors je n'ai rien
compris. Je n'ai pas encore fait d'essai car je crains quelques manoeuvres
dont je ne pourrais pas enclencher la marche arrière...
"Daniel.j" a écrit dans le message de news:
%Bonjour
Des éléments de reponse ici
http://dj.joss.free.fr/xl2007.htm
--
Daniel
FAQ MPFE
http://dj.joss.free.fr/faq.htm
VBAXL
http://dj.joss.free.fr/
"Manbas" a écrit dans le message de news:Bonjour à tous
"Contraint" de passer à Excel 2007 après le vol de mon Excel 2000,
j'avoue que je trouve ça plutôt déroutant.
Mes applications qui fonctionnaient parfaitement sont maintenant en
échec, au moins pour les barres d'outils.
La barre standart ne disparait plus, et la barre d'outils personnalisée
est reléguée dans l'onglet "complément" (j'ai cherché un moment avant de
la trouver !!!)
Quelle est la solution?
Voici le code qui ne fonctionne plus sous XL2007:
Private Sub Workbook_Open()
Sheets("Enquete").Visible = True
Sheets("Avertissement").Visible = xlVeryHidden
Application.ScreenUpdating = False
Dim Barre As CommandBar
Set Barres = New Collection
For Each Barre In Application.CommandBars
If Barre.Visible = True And _
Barre.Name <> "Worksheet Menu Bar" Then
Barres.Add Barre.Name
Barre.Visible = False
End If
Next Barre
detruitCommandBarRMM
CommandBarRMM
Application.ScreenUpdating = True
With Application
.Caption = " blabala "
.WindowState = xlMaximized
.DisplayFormulaBar = False
.CommandBars("worksheet menu bar").Enabled = False
End With
With ActiveWindow
.DisplayHeadings = False
.DisplayGridlines = False
.DisplayZeros = False
.WindowState = xlMaximized
.Caption = " blebleu"
End With
End Sub
Merci +++ de me faire part de vos suggestions.