Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

petit bug macro

  • Initiateur de la discussion Marion
  • Date de début
M

Marion

Guest
boujour au forum
des soucis et encore des soucis

le code ci-dessous bug au niveau de Sheets('MENU IMPRESSION').Select
ça me prend la tête car je ne comprends pas pourquoi?

s'il vous plait une aide serait la bien venue
merci
A+Marion


Sub imprimer_rm()

res = MsgBox('avez vous pensez a tout', vbYesNocancel)
If res = vbNo Then
Sheets('planning').Select
Range('b97').Select

ElseIf res = vbCancel Then
Exit Sub
ElseIf res = vbYes Then
Application.ScreenUpdating = False
Sheets('planning').Select
ActiveWindow.SmallScroll ToRight:=3
ActiveSheet.PageSetup.PrintArea = '$A$2:$L$20'

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets('MENU IMPRESSION').Select
End If

End Sub
 

dg62

XLDnaute Barbatruc
bonjour Marion


je viens de faire un essai et tout fonctionne correctement.
as-tu verifié l'orthographe des noms des feuilles ?

Message édité par: dg62, à: 24/04/2005 12:25
 

Discussions similaires

  • Question
Microsoft 365 MsgBox
Réponses
9
Affichages
474
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…