Impossibilité d'encoder après exécution d'une macro
E
J'ai le même soucis.
Private Sub CommandButton3_Click()
ActiveSheet.unprotect "benny"
Application.ScreenUpdating = False
Columns("h").EntireColumn.Hidden = True
Dim totalchou As Integer
totalchou = WorksheetFunction.RoundUp(Range("d6"), 1)
With ActiveSheet.PageSetup
.TopMargin = Application.CentimetersToPoints(3.5)
.Orientation = xlPortrait
.PrintArea = "$g$4:$q$36"
.Zoom = 130
.CenterHorizontally = True
.CenterVertically = False
.CenterHeader = Chr(10) & Chr(10) & Format(Now, "dddd dd mmmm yyyy") & Chr(10) & Chr(10)
.CenterFooter = "CABARETS DE CHOU TOTAL REQUIS: " & totalchou
End With
'ActiveWindow.SelectedSheets.PrintPreview
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Columns("h").EntireColumn.Hidden = False
ActiveSheet.Protect "benny"
Application.ScreenUpdating = True
Worksheets("Lundi").Range("U8").Select
End SubBonjour,
Pour une meilleure utilisation du forum, merci de lire ces quelques lignes --> https://forum.excel-pratique.com/annonces/explications-et-regles-a-respecter-t13.html (pt 5 et suivants)
Cordialement
E
Merci Dan. Lecture faite et corrections vont être appliquée s. Bonne journée.
Re
Merci de mieux expliquer votre problème au besoin ajouter un fichier sans données confidentielles
Cordialement