Dans une macro VB avec Excel 2007 quel code inscrire pour que plusieurs
feuilles s'affiche en mode Aperçu avant impression MAIS avec le ruban (barre
d'outils) de l'Aperçu avant impression?
Mon problème est que je réussi à amener plusieurs feuilles en mode Aperçu
mais le ruban ne s'affiche pas. Le code qui fonctionnait en Excel 2003 ne
fonctionne pas en Excel 2007.
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
MichDenis
Met ceci dans le ThisWorkbook :
Et si tu désires imprimer, utilise une cellule d'une feuille avec un contenu particulier pour faire un test à savoir si la variable Cancel doit être placé à True or False
'NB- Je n'ai pas Excel 2007
'-------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.EnableEvents = False With ActiveWindow.SelectedSheets .PrintPreview Sheets(1).Select Cancel = True 'empêche l'impression End With Application.EnableEvents = True
End Sub '--------------------------
"Roland Miller" a écrit dans le message de news:
Bonjour,
Dans une macro VB avec Excel 2007 quel code inscrire pour que plusieurs feuilles s'affiche en mode Aperçu avant impression MAIS avec le ruban (barre d'outils) de l'Aperçu avant impression?
Mon problème est que je réussi à amener plusieurs feuilles en mode Aperçu mais le ruban ne s'affiche pas. Le code qui fonctionnait en Excel 2003 ne fonctionne pas en Excel 2007.
Merci
Rolly
Met ceci dans le ThisWorkbook :
Et si tu désires imprimer, utilise une cellule d'une feuille
avec un contenu particulier pour faire un test à savoir si
la variable Cancel doit être placé à True or False
'NB- Je n'ai pas Excel 2007
'--------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.EnableEvents = False
With ActiveWindow.SelectedSheets
.PrintPreview
Sheets(1).Select
Cancel = True 'empêche l'impression
End With
Application.EnableEvents = True
End Sub
'--------------------------
"Roland Miller" <RolandMiller@discussions.microsoft.com> a écrit dans le message de news:
7890466F-299E-4A85-8946-899158667E1B@microsoft.com...
Bonjour,
Dans une macro VB avec Excel 2007 quel code inscrire pour que plusieurs
feuilles s'affiche en mode Aperçu avant impression MAIS avec le ruban (barre
d'outils) de l'Aperçu avant impression?
Mon problème est que je réussi à amener plusieurs feuilles en mode Aperçu
mais le ruban ne s'affiche pas. Le code qui fonctionnait en Excel 2003 ne
fonctionne pas en Excel 2007.
Et si tu désires imprimer, utilise une cellule d'une feuille avec un contenu particulier pour faire un test à savoir si la variable Cancel doit être placé à True or False
'NB- Je n'ai pas Excel 2007
'-------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.EnableEvents = False With ActiveWindow.SelectedSheets .PrintPreview Sheets(1).Select Cancel = True 'empêche l'impression End With Application.EnableEvents = True
End Sub '--------------------------
"Roland Miller" a écrit dans le message de news:
Bonjour,
Dans une macro VB avec Excel 2007 quel code inscrire pour que plusieurs feuilles s'affiche en mode Aperçu avant impression MAIS avec le ruban (barre d'outils) de l'Aperçu avant impression?
Mon problème est que je réussi à amener plusieurs feuilles en mode Aperçu mais le ruban ne s'affiche pas. Le code qui fonctionnait en Excel 2003 ne fonctionne pas en Excel 2007.
Merci
Rolly
MichDenis
Peut être désires-tu quelque chose comme ceci :
Toujours à mettre dans le ThisWorkbook : '---------------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.EnableEvents = False With ActiveWindow.SelectedSheets .PrintPreview If MsgBox("Désirez-vous imprimez ce que " & _ "vous avez visionnez ?", vbInformation + _ vbYesNo, "attention") = vbNo Then Cancel = True 'empêche l'impression Application.EnableEvents = True Exit Sub End If .PrintOut End With Sheets(1).Select Application.EnableEvents = True
End Sub '----------------------------------
"MichDenis" a écrit dans le message de news:
Met ceci dans le ThisWorkbook :
Et si tu désires imprimer, utilise une cellule d'une feuille avec un contenu particulier pour faire un test à savoir si la variable Cancel doit être placé à True or False
'NB- Je n'ai pas Excel 2007
'-------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.EnableEvents = False With ActiveWindow.SelectedSheets .PrintPreview Sheets(1).Select Cancel = True 'empêche l'impression End With Application.EnableEvents = True
End Sub '--------------------------
"Roland Miller" a écrit dans le message de news:
Bonjour,
Dans une macro VB avec Excel 2007 quel code inscrire pour que plusieurs feuilles s'affiche en mode Aperçu avant impression MAIS avec le ruban (barre d'outils) de l'Aperçu avant impression?
Mon problème est que je réussi à amener plusieurs feuilles en mode Aperçu mais le ruban ne s'affiche pas. Le code qui fonctionnait en Excel 2003 ne fonctionne pas en Excel 2007.
Merci
Rolly
Peut être désires-tu quelque chose comme ceci :
Toujours à mettre dans le ThisWorkbook :
'----------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.EnableEvents = False
With ActiveWindow.SelectedSheets
.PrintPreview
If MsgBox("Désirez-vous imprimez ce que " & _
"vous avez visionnez ?", vbInformation + _
vbYesNo, "attention") = vbNo Then
Cancel = True 'empêche l'impression
Application.EnableEvents = True
Exit Sub
End If
.PrintOut
End With
Sheets(1).Select
Application.EnableEvents = True
End Sub
'----------------------------------
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
emzT3W0aIHA.4172@TK2MSFTNGP02.phx.gbl...
Met ceci dans le ThisWorkbook :
Et si tu désires imprimer, utilise une cellule d'une feuille
avec un contenu particulier pour faire un test à savoir si
la variable Cancel doit être placé à True or False
'NB- Je n'ai pas Excel 2007
'--------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.EnableEvents = False
With ActiveWindow.SelectedSheets
.PrintPreview
Sheets(1).Select
Cancel = True 'empêche l'impression
End With
Application.EnableEvents = True
End Sub
'--------------------------
"Roland Miller" <RolandMiller@discussions.microsoft.com> a écrit dans le message de news:
7890466F-299E-4A85-8946-899158667E1B@microsoft.com...
Bonjour,
Dans une macro VB avec Excel 2007 quel code inscrire pour que plusieurs
feuilles s'affiche en mode Aperçu avant impression MAIS avec le ruban (barre
d'outils) de l'Aperçu avant impression?
Mon problème est que je réussi à amener plusieurs feuilles en mode Aperçu
mais le ruban ne s'affiche pas. Le code qui fonctionnait en Excel 2003 ne
fonctionne pas en Excel 2007.
Toujours à mettre dans le ThisWorkbook : '---------------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.EnableEvents = False With ActiveWindow.SelectedSheets .PrintPreview If MsgBox("Désirez-vous imprimez ce que " & _ "vous avez visionnez ?", vbInformation + _ vbYesNo, "attention") = vbNo Then Cancel = True 'empêche l'impression Application.EnableEvents = True Exit Sub End If .PrintOut End With Sheets(1).Select Application.EnableEvents = True
End Sub '----------------------------------
"MichDenis" a écrit dans le message de news:
Met ceci dans le ThisWorkbook :
Et si tu désires imprimer, utilise une cellule d'une feuille avec un contenu particulier pour faire un test à savoir si la variable Cancel doit être placé à True or False
'NB- Je n'ai pas Excel 2007
'-------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.EnableEvents = False With ActiveWindow.SelectedSheets .PrintPreview Sheets(1).Select Cancel = True 'empêche l'impression End With Application.EnableEvents = True
End Sub '--------------------------
"Roland Miller" a écrit dans le message de news:
Bonjour,
Dans une macro VB avec Excel 2007 quel code inscrire pour que plusieurs feuilles s'affiche en mode Aperçu avant impression MAIS avec le ruban (barre d'outils) de l'Aperçu avant impression?
Mon problème est que je réussi à amener plusieurs feuilles en mode Aperçu mais le ruban ne s'affiche pas. Le code qui fonctionnait en Excel 2003 ne fonctionne pas en Excel 2007.
Merci
Rolly
Frédéric Sigonneau
Je suppose que tu travailles avec le ruban masqué (c'est vrai que c'est pire que les barres d'outils de jps ce truc). Si cela peut te dépanner, pour afficher ou cacher le ruban, Jim Rech propose le code ci-dessous (retour en arrière vers le futur !) :
Sub HideRibbon() Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" End Sub
Sub ShowRibbon() Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)" End Sub
Dans une macro VB avec Excel 2007 quel code inscrire pour que plusieurs feuilles s'affiche en mode Aperçu avant impression MAIS avec le ruban (barre d'outils) de l'Aperçu avant impression?
Mon problème est que je réussi à amener plusieurs feuilles en mode Aperçu mais le ruban ne s'affiche pas. Le code qui fonctionnait en Excel 2003 ne fonctionne pas en Excel 2007.
Merci
Rolly
Je suppose que tu travailles avec le ruban masqué (c'est vrai que c'est pire que
les barres d'outils de jps ce truc).
Si cela peut te dépanner, pour afficher ou cacher le ruban, Jim Rech propose le
code ci-dessous (retour en arrière vers le futur !) :
Sub HideRibbon()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
End Sub
Sub ShowRibbon()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
End Sub
Dans une macro VB avec Excel 2007 quel code inscrire pour que plusieurs
feuilles s'affiche en mode Aperçu avant impression MAIS avec le ruban (barre
d'outils) de l'Aperçu avant impression?
Mon problème est que je réussi à amener plusieurs feuilles en mode Aperçu
mais le ruban ne s'affiche pas. Le code qui fonctionnait en Excel 2003 ne
fonctionne pas en Excel 2007.
Je suppose que tu travailles avec le ruban masqué (c'est vrai que c'est pire que les barres d'outils de jps ce truc). Si cela peut te dépanner, pour afficher ou cacher le ruban, Jim Rech propose le code ci-dessous (retour en arrière vers le futur !) :
Sub HideRibbon() Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" End Sub
Sub ShowRibbon() Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)" End Sub
Dans une macro VB avec Excel 2007 quel code inscrire pour que plusieurs feuilles s'affiche en mode Aperçu avant impression MAIS avec le ruban (barre d'outils) de l'Aperçu avant impression?
Mon problème est que je réussi à amener plusieurs feuilles en mode Aperçu mais le ruban ne s'affiche pas. Le code qui fonctionnait en Excel 2003 ne fonctionne pas en Excel 2007.
Merci
Rolly
Pierre Archambault
J'ai eu le même problème et j'ai trouvé ceci:
Si tu avais la ligne Application.ScreenUpdating = False avant de procéder à l'aperçu, il est préférable de l'enlever et da la remettre seulement après que l'aperçu soit refermé sinon tu ne verra pas le ruban et impossible que quitter l'aperçu.
Pierre
Bonne chance
"Roland Miller" a écrit dans le message de news:
Bonjour,
Dans une macro VB avec Excel 2007 quel code inscrire pour que plusieurs feuilles s'affiche en mode Aperçu avant impression MAIS avec le ruban (barre d'outils) de l'Aperçu avant impression?
Mon problème est que je réussi à amener plusieurs feuilles en mode Aperçu mais le ruban ne s'affiche pas. Le code qui fonctionnait en Excel 2003 ne fonctionne pas en Excel 2007.
Merci
Rolly
J'ai eu le même problème et j'ai trouvé ceci:
Si tu avais la ligne
Application.ScreenUpdating = False
avant de procéder à l'aperçu, il est préférable de l'enlever et da la
remettre seulement après que l'aperçu soit refermé sinon tu ne verra pas le
ruban et impossible que quitter l'aperçu.
Pierre
Bonne chance
"Roland Miller" <RolandMiller@discussions.microsoft.com> a écrit dans le
message de news: 7890466F-299E-4A85-8946-899158667E1B@microsoft.com...
Bonjour,
Dans une macro VB avec Excel 2007 quel code inscrire pour que plusieurs
feuilles s'affiche en mode Aperçu avant impression MAIS avec le ruban
(barre
d'outils) de l'Aperçu avant impression?
Mon problème est que je réussi à amener plusieurs feuilles en mode Aperçu
mais le ruban ne s'affiche pas. Le code qui fonctionnait en Excel 2003 ne
fonctionne pas en Excel 2007.
Si tu avais la ligne Application.ScreenUpdating = False avant de procéder à l'aperçu, il est préférable de l'enlever et da la remettre seulement après que l'aperçu soit refermé sinon tu ne verra pas le ruban et impossible que quitter l'aperçu.
Pierre
Bonne chance
"Roland Miller" a écrit dans le message de news:
Bonjour,
Dans une macro VB avec Excel 2007 quel code inscrire pour que plusieurs feuilles s'affiche en mode Aperçu avant impression MAIS avec le ruban (barre d'outils) de l'Aperçu avant impression?
Mon problème est que je réussi à amener plusieurs feuilles en mode Aperçu mais le ruban ne s'affiche pas. Le code qui fonctionnait en Excel 2003 ne fonctionne pas en Excel 2007.
Merci
Rolly
JPMonnier
Bonsoir Tu peux, quand tu es bloqué sur 2007 en apperçu,reprendre la main en faisant ALT+F4
-- Cordialement
"Pierre Archambault" a écrit dans le message de news:sXErj.47$
J'ai eu le même problème et j'ai trouvé ceci:
Si tu avais la ligne Application.ScreenUpdating = False avant de procéder à l'aperçu, il est préférable de l'enlever et da la remettre seulement après que l'aperçu soit refermé sinon tu ne verra pas le ruban et impossible que quitter l'aperçu.
Pierre
Bonne chance
"Roland Miller" a écrit dans le message de news:
Bonjour,
Dans une macro VB avec Excel 2007 quel code inscrire pour que plusieurs feuilles s'affiche en mode Aperçu avant impression MAIS avec le ruban (barre d'outils) de l'Aperçu avant impression?
Mon problème est que je réussi à amener plusieurs feuilles en mode Aperçu mais le ruban ne s'affiche pas. Le code qui fonctionnait en Excel 2003 ne fonctionne pas en Excel 2007.
Merci
Rolly
Bonsoir
Tu peux, quand tu es bloqué sur 2007 en apperçu,reprendre la main en faisant
ALT+F4
--
Cordialement
jpmonnier-no-spam@neuf.fr
"Pierre Archambault" <pierre.archambault@videotron.ca> a écrit dans le
message de news:sXErj.47$8W2.2161@weber.videotron.net...
J'ai eu le même problème et j'ai trouvé ceci:
Si tu avais la ligne
Application.ScreenUpdating = False
avant de procéder à l'aperçu, il est préférable de l'enlever et da la
remettre seulement après que l'aperçu soit refermé sinon tu ne verra pas
le ruban et impossible que quitter l'aperçu.
Pierre
Bonne chance
"Roland Miller" <RolandMiller@discussions.microsoft.com> a écrit dans le
message de news: 7890466F-299E-4A85-8946-899158667E1B@microsoft.com...
Bonjour,
Dans une macro VB avec Excel 2007 quel code inscrire pour que plusieurs
feuilles s'affiche en mode Aperçu avant impression MAIS avec le ruban
(barre
d'outils) de l'Aperçu avant impression?
Mon problème est que je réussi à amener plusieurs feuilles en mode Aperçu
mais le ruban ne s'affiche pas. Le code qui fonctionnait en Excel 2003 ne
fonctionne pas en Excel 2007.
Bonsoir Tu peux, quand tu es bloqué sur 2007 en apperçu,reprendre la main en faisant ALT+F4
-- Cordialement
"Pierre Archambault" a écrit dans le message de news:sXErj.47$
J'ai eu le même problème et j'ai trouvé ceci:
Si tu avais la ligne Application.ScreenUpdating = False avant de procéder à l'aperçu, il est préférable de l'enlever et da la remettre seulement après que l'aperçu soit refermé sinon tu ne verra pas le ruban et impossible que quitter l'aperçu.
Pierre
Bonne chance
"Roland Miller" a écrit dans le message de news:
Bonjour,
Dans une macro VB avec Excel 2007 quel code inscrire pour que plusieurs feuilles s'affiche en mode Aperçu avant impression MAIS avec le ruban (barre d'outils) de l'Aperçu avant impression?
Mon problème est que je réussi à amener plusieurs feuilles en mode Aperçu mais le ruban ne s'affiche pas. Le code qui fonctionnait en Excel 2003 ne fonctionne pas en Excel 2007.