Sub archivage_clients()
Dim i As Long
For i = 25 To 42
If Cells(i, 6) = "Pas assez de pièces disponibles" Then
MsgBox ("Vous ne pouvez pas effectuer cette action pour la cellule F, ligne " & i)
Exit Sub
End If
Next i
Sheets("Gestion des stocks").Select
Range("C25:C42").Select
Range("C42").Activate
Selection.Copy
Range("E3:E20").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _
:=False, Transpose:=False
Range("B20").Select
Application.CutCopyMode = False
Sheets("Employés").Select
Range("G12:G15").Select
Selection.Copy
Range("F12:F15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _
:=False, Transpose:=False
Range("B11").Select
Application.CutCopyMode = False
Sheets("Analyse Financière").Select
Range("F6:F7").Select
Selection.Copy
Range("E6:E7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _
:=False, Transpose:=False
Range("G21:H24").Select
Application.CutCopyMode = False
Selection.Copy
Range("E21:E24").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("C3:F3").Select
Sheets("Facture Client").Select
Range("A1:K57").Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A1").Select
Windows("Fichier de Gestion.xls").Activate
ActiveSheet.Shapes("Picture 86").Select
ActiveSheet.Shapes("Picture 19").Select
ActiveSheet.Shapes.Range(Array("Picture 19", "Picture 2")).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Classeur2").Activate
ActiveSheet.Paste
[COLOR="YellowGreen"]'Voilà ce que je veux enregistrer :[/COLOR]
[COLOR="Red"] ChDir "C:\Users\XXX\Desktop\PROJET\Factures Clients"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\XXX\Desktop\PROJET\Factures Clients\Classeur2.xls"[/COLOR] _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
[COLOR="YellowGreen"]'Ici ce que je veux ouvrir :[/COLOR]
[COLOR="Red"] Windows("Archivages Clients.xls").Activate[/COLOR]
Rows("7:7").Select
Selection.Insert Shift:=xlDown
Windows("Fichier de Gestion.xls").Activate
Range("C9:D9").Select
Selection.Copy
Windows("Archivages Clients.xls").Activate
Range("C7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Fichier de Gestion.xls").Activate
Range("C10:D10").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Archivages Clients.xls").Activate
Range("D7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Fichier de Gestion.xls").Activate
Range("J9").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Archivages Clients.xls").Activate
Range("E7").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Windows("Fichier de Gestion.xls").Activate
Range("J11").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Archivages Clients.xls").Activate
Range("F7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Fichier de Gestion.xls").Activate
Range("J49").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Archivages Clients.xls").Activate
Range("G7").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
Windows("Fichier de Gestion.xls").Activate
Range("J10") = Range("J10") + 1
Range("C9") = ""
Range("J11") = ""
Range("B16:I16") = ""
Range("B19:B42") = ""
Range("D19:D42") = ""
Range("D54:D56") = ""
ActiveWorkbook.Save
End Sub