Sub Macro3()
'
' Macro3 Macro
'
'
Sheets("Envoi").Select
ActiveSheet.Buttons.Add(792.75, 86.25, 131.25, 30.75).Select
Sheets("Envoi").Copy
Application.Run Range("ScOnWindow")
Sheets("Envoi").Select
Chemin = "C:\Users\ybruzac\Desktop\Récap Entrepot"
texte = Range("entrepot") & " - " & Range("semaine")
Application.DisplayAlerts = False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & texte, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Range("K18").Select
Application.WindowState = xlNormal
Application.WindowState = xlMinimized
Windows("Fichier Test Facture GMF.xlsm").Activate
Application.Run Range("ScOnWindow")
Windows("Classeur1").Activate
ActiveWindow.Close
Application.Run Range("ScOnWindow")
Application.WindowState = xlMaximized
ActiveSheet.Shapes("Button 1").Select
Selection.OnAction = "Macro3"
Range("M19").Select
ActiveSheet.Shapes("Button 1").Select
Application.Goto Reference:="Macro3"
ActiveWorkbook.Save
ActiveSheet.Shapes("Button 1").Select
Selection.Characters.Text = "Bouton 1"
With Selection.Characters(Start:=1, Length:=8).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = 2
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range("L17").Select
ActiveSheet.Shapes("Button 1").Select
Selection.OnAction = "Macro3"
Range("D26:D27").Select
Sheets("PENALITE").Select
Application.WindowState = xlMinimized
Sheets("Envoi").Select
ActiveSheet.Shapes("Button 1").Select
Selection.OnAction = "Macro3"
ActiveSheet.Shapes("Button 1").Select
Selection.Characters.Text = "Bouton 1"
With Selection.Characters(Start:=1, Length:=8).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = 2
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range("N10").Select
ActiveSheet.Shapes("Button 1").Select
Application.Goto Reference:="Macro3"
ActiveWorkbook.Save
ActiveSheet.Shapes("Button 1").Select
Selection.Characters.Text = "Bouton 1"
With Selection.Characters(Start:=1, Length:=8).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = 2
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range("P10").Select
ActiveSheet.Shapes("Button 1").Select
Application.Goto Reference:="Macro3"
Range("J17").Select
ActiveWindow.SmallScroll Down:=-9
ActiveSheet.Shapes("Button 1").Select
Application.Goto Reference:="Macro3"
ActiveWorkbook.Save
Range("Q9").Select
Application.WindowState = xlMinimized
Range("F20").Select
ActiveWindow.SmallScroll Down:=-6
Sheets("Envoi").Select
Range("F19").Select
ActiveWorkbook.Save
Range("F7").Select
ActiveCell.FormulaR1C1 = "Nantes"
Range("K7").Select
ActiveCell.FormulaR1C1 = "17"
Range("M10").Select
ActiveSheet.Shapes("Button 1").Select
Application.Goto Reference:="Macro3"
End Sub