• Initiateur de la discussion Initiateur de la discussion Martins@97
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Martins@97

XLDnaute Nouveau
Capture.PNG
Bonsoir,
je n'arrive pas a atteindre cette page d'impression excel 2016. meme avec l'enregistreur de macro. je dois véritablement louper quelque chose de simplissime mais quoi . . .
merci de votre aide, conseils
 
Bonsoir,
après ceci

Sub imprime_RECETTE()
Application.ScreenUpdating = False
Sheets("FEUIL1").Select
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")


Sheets("fichetechnique").Select
Application.ScreenUpdating = True
End Sub

Je voudrai que la feuille 1 soit imprimée !!!??

mais pour info mon classeur est programmer pour s'ouvrir en plein écran, sans le ruban barre des titres, et tout le reste
 
Bonsoir

Martins@97
Tu as testé ce dont je parlais ou pas?
(en l'adaptant)
VB:
Sub OldiesButGoodies_A()
ActiveSheet.PrintPreview
End Sub
Ci-dessous l'adaptation en question
VB:
Sub OldiesButGoodies_C()
Sheets("Feuil1").PrintPreview
End Sub
 
Bonjour
J'ai supprimé la ligne Sheets("fichetechnique").Select et en plaçant Sheets("FEUIL1").Select après Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint"), l' aperçu s'effectue bien sur la FEUIL1


Sub imprime_RECETTE()
Application.ScreenUpdating = False
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
Sheets("FEUIL1").Select
Application.ScreenUpdating = True
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
33
Affichages
716
Réponses
4
Affichages
143
Réponses
5
Affichages
391
  • Question Question
Autres Code VBA
Réponses
11
Affichages
257
  • Question Question
Microsoft 365 CSV en EXCEL
Réponses
1
Affichages
99
Retour