Bonjour a tous, besoin d'une dernière petite aide pour finaliser mon fichier de gestion de stock, voilà j'ai un code qui me permet d'enregistrer dans une zone de stockage precise et lance l'impression d'un étiquette pour un emballage automatiquement, par contre je voudrais ajouter une ligne avant l'impression avec type une message box qui demande "voulez-vous imprimer l'étiquette" si oui l'impression se lance et la macro continue et si non l'impression se lance pas et la macro continue également.
Merci beaucoup à l'avance
mon code actuel est celui-ci :
Sub ARMOIRESAGESTION()
'
' ARMOIRESAGESTION Macro
'
If IsEmpty(Range("A5").Value) Then MsgBox "Vous n'avez pas renseigné la date de saisie"
If IsEmpty(Range("A5").Value) Then Exit Sub
If IsEmpty(Range("B5").Value) Then MsgBox "Vous n'avez pas renseigné le produit"
If IsEmpty(Range("B5").Value) Then Exit Sub
If IsEmpty(Range("C5").Value) Then MsgBox "Vous n'avez pas renseigné le marquage effectif"
If IsEmpty(Range("C5").Value) Then Exit Sub
If IsEmpty(Range("D5").Value) Then MsgBox "Vous n'avez pas renseigné le numéro d'OP ou LOT"
If IsEmpty(Range("D5").Value) Then Exit Sub
If IsEmpty(Range("E5").Value) Then MsgBox "Vous n'avez pas renseigné le type et numéro d'emballage"
If IsEmpty(Range("E5").Value) Then Exit Sub
If IsEmpty(Range("F5").Value) Then MsgBox "Vous n'avez pas renseigné le poids"
If IsEmpty(Range("F5").Value) Then Exit Sub
If IsEmpty(Range("I5").Value) Then MsgBox "Vous n'avez pas visé"
If IsEmpty(Range("I5").Value) Then Exit Sub
If MsgBox("Voulez-vous stocker en ARMOIRES A ?", vbYesNo) = vbNo Then Exit Sub
Sheets("LIENS").Select
Range("B12").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWindow.Close SaveChanges:=False
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("LIENS").Select
Range("B10").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Windows("etiquette excel MODIF.xlsm").Activate
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
ActiveWindow.Close SaveChanges:=False
Windows("FICHIER DE SUIVI DES ZONES FINAL.xlsm").Activate
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("GESTION STOCK").Select
Range("A5").Select
Selection.Copy
Sheets("Armoires de stockage-A").Select
Range("A4").Select
Selection.Insert Shift:=xlDown
Sheets("GESTION STOCK").Select
Range("K5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Armoires de stockage-A").Select
Range("C4").Select
Selection.Insert Shift:=xlDown
Sheets("GESTION STOCK").Select
Range("B5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Armoires de stockage-A").Select
Range("D4").Select
Selection.Insert Shift:=xlDown
Sheets("GESTION STOCK").Select
Range("D5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Armoires de stockage-A").Select
Range("E4").Select
Selection.Insert Shift:=xlDown
Sheets("GESTION STOCK").Select
Range("C5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Armoires de stockage-A").Select
Range("F4").Select
Selection.Insert Shift:=xlDown
Sheets("GESTION STOCK").Select
Range("C7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Armoires de stockage-A").Select
Range("G4").Select
Selection.Insert Shift:=xlDown
Sheets("GESTION STOCK").Select
Range("E5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Armoires de stockage-A").Select
Range("H4").Select
Selection.Insert Shift:=xlDown
Sheets("GESTION STOCK").Select
Range("F5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Armoires de stockage-A").Select
Range("I4").Select
Selection.Insert Shift:=xlDown
Sheets("GESTION STOCK").Select
Range("G5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Armoires de stockage-A").Select
Range("J4").Select
Selection.Insert Shift:=xlDown
Sheets("GESTION STOCK").Select
Range("H5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Armoires de stockage-A").Select
Range("K4").Select
Selection.Insert Shift:=xlDown
Sheets("GESTION STOCK").Select
Range("I5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Armoires de stockage-A").Select
Range("L4").Select
Selection.Insert Shift:=xlDown
Sheets("GESTION STOCK").Select
Sheets("GESTION STOCK").Select
Range("A5,B5,C5,D5,E5,F5,G5,H5,I5,A7:B7,C7").Select
Range("C7").Activate
Application.CutCopyMode = False
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("A5,B5,C5,D5,E5,F5,G5,H5,I5,A7:B7,C7,E7,K5").Select
Range("K5").Activate
Selection.ClearContents
Range("A1:I1").Select
ActiveWorkbook.Save
'
End Sub
Merci beaucoup à l'avance
mon code actuel est celui-ci :
Sub ARMOIRESAGESTION()
'
' ARMOIRESAGESTION Macro
'
If IsEmpty(Range("A5").Value) Then MsgBox "Vous n'avez pas renseigné la date de saisie"
If IsEmpty(Range("A5").Value) Then Exit Sub
If IsEmpty(Range("B5").Value) Then MsgBox "Vous n'avez pas renseigné le produit"
If IsEmpty(Range("B5").Value) Then Exit Sub
If IsEmpty(Range("C5").Value) Then MsgBox "Vous n'avez pas renseigné le marquage effectif"
If IsEmpty(Range("C5").Value) Then Exit Sub
If IsEmpty(Range("D5").Value) Then MsgBox "Vous n'avez pas renseigné le numéro d'OP ou LOT"
If IsEmpty(Range("D5").Value) Then Exit Sub
If IsEmpty(Range("E5").Value) Then MsgBox "Vous n'avez pas renseigné le type et numéro d'emballage"
If IsEmpty(Range("E5").Value) Then Exit Sub
If IsEmpty(Range("F5").Value) Then MsgBox "Vous n'avez pas renseigné le poids"
If IsEmpty(Range("F5").Value) Then Exit Sub
If IsEmpty(Range("I5").Value) Then MsgBox "Vous n'avez pas visé"
If IsEmpty(Range("I5").Value) Then Exit Sub
If MsgBox("Voulez-vous stocker en ARMOIRES A ?", vbYesNo) = vbNo Then Exit Sub
Sheets("LIENS").Select
Range("B12").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWindow.Close SaveChanges:=False
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("LIENS").Select
Range("B10").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Windows("etiquette excel MODIF.xlsm").Activate
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
ActiveWindow.Close SaveChanges:=False
Windows("FICHIER DE SUIVI DES ZONES FINAL.xlsm").Activate
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("GESTION STOCK").Select
Range("A5").Select
Selection.Copy
Sheets("Armoires de stockage-A").Select
Range("A4").Select
Selection.Insert Shift:=xlDown
Sheets("GESTION STOCK").Select
Range("K5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Armoires de stockage-A").Select
Range("C4").Select
Selection.Insert Shift:=xlDown
Sheets("GESTION STOCK").Select
Range("B5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Armoires de stockage-A").Select
Range("D4").Select
Selection.Insert Shift:=xlDown
Sheets("GESTION STOCK").Select
Range("D5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Armoires de stockage-A").Select
Range("E4").Select
Selection.Insert Shift:=xlDown
Sheets("GESTION STOCK").Select
Range("C5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Armoires de stockage-A").Select
Range("F4").Select
Selection.Insert Shift:=xlDown
Sheets("GESTION STOCK").Select
Range("C7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Armoires de stockage-A").Select
Range("G4").Select
Selection.Insert Shift:=xlDown
Sheets("GESTION STOCK").Select
Range("E5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Armoires de stockage-A").Select
Range("H4").Select
Selection.Insert Shift:=xlDown
Sheets("GESTION STOCK").Select
Range("F5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Armoires de stockage-A").Select
Range("I4").Select
Selection.Insert Shift:=xlDown
Sheets("GESTION STOCK").Select
Range("G5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Armoires de stockage-A").Select
Range("J4").Select
Selection.Insert Shift:=xlDown
Sheets("GESTION STOCK").Select
Range("H5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Armoires de stockage-A").Select
Range("K4").Select
Selection.Insert Shift:=xlDown
Sheets("GESTION STOCK").Select
Range("I5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Armoires de stockage-A").Select
Range("L4").Select
Selection.Insert Shift:=xlDown
Sheets("GESTION STOCK").Select
Sheets("GESTION STOCK").Select
Range("A5,B5,C5,D5,E5,F5,G5,H5,I5,A7:B7,C7").Select
Range("C7").Activate
Application.CutCopyMode = False
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("A5,B5,C5,D5,E5,F5,G5,H5,I5,A7:B7,C7,E7,K5").Select
Range("K5").Activate
Selection.ClearContents
Range("A1:I1").Select
ActiveWorkbook.Save
'
End Sub