Bonjour,
Je souhaite savoir comment conditionner la réalisation de la partie 1 de la macro si la case A1 = x
La seconde partie doit être réalisée dans tous les cas.
Voici la macro
(partie 1 )
'
'gestion1
ActiveWindow.SmallScroll ToRight:=9
Selection.AutoFilter Field:=14, Criteria1:="1"
Windows("G1_.xls").Activate
Workbooks.Open Filename:= _
"Z:\AB\SUIVI \gestion1.xls"
Windows("gestion1.xls").Activate
Rows("6:4000").Select
Range("C7").Activate
Selection.ClearContents
Windows("G1_.xls").Activate
Rows("1:4000").Select
Range("J2").Activate
Selection.Copy
Windows("gestion1.xls").Activate
Rows("6:6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
Windows("G1_.xls").Activate
Selection.AutoFilter Field:=14
(partie 2)
'gestion2
ActiveWindow.SmallScroll ToRight:=9
Selection.AutoFilter Field:=14, Criteria1:="2"
Windows("G1_.xls").Activate
Workbooks.Open Filename:= _
"Z:\AB\SUIVI \gestion2.xls"
Windows("gestion2.xls").Activate
Rows("6:4000").Select
Range("C7").Activate
Selection.ClearContents
Windows("G1_.xls").Activate
Rows("1:4000").Select
Range("J2").Activate
Selection.Copy
Windows("gestion2_.xls").Activate
Rows("6:6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
Windows("G1_.xls").Activate
Selection.AutoFilter Field:=14
Merci pour votre aide.
Je souhaite savoir comment conditionner la réalisation de la partie 1 de la macro si la case A1 = x
La seconde partie doit être réalisée dans tous les cas.
Voici la macro
(partie 1 )
'
'gestion1
ActiveWindow.SmallScroll ToRight:=9
Selection.AutoFilter Field:=14, Criteria1:="1"
Windows("G1_.xls").Activate
Workbooks.Open Filename:= _
"Z:\AB\SUIVI \gestion1.xls"
Windows("gestion1.xls").Activate
Rows("6:4000").Select
Range("C7").Activate
Selection.ClearContents
Windows("G1_.xls").Activate
Rows("1:4000").Select
Range("J2").Activate
Selection.Copy
Windows("gestion1.xls").Activate
Rows("6:6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
Windows("G1_.xls").Activate
Selection.AutoFilter Field:=14
(partie 2)
'gestion2
ActiveWindow.SmallScroll ToRight:=9
Selection.AutoFilter Field:=14, Criteria1:="2"
Windows("G1_.xls").Activate
Workbooks.Open Filename:= _
"Z:\AB\SUIVI \gestion2.xls"
Windows("gestion2.xls").Activate
Rows("6:4000").Select
Range("C7").Activate
Selection.ClearContents
Windows("G1_.xls").Activate
Rows("1:4000").Select
Range("J2").Activate
Selection.Copy
Windows("gestion2_.xls").Activate
Rows("6:6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
Windows("G1_.xls").Activate
Selection.AutoFilter Field:=14
Merci pour votre aide.