H
hurricane
Guest
Bonjour forum
J’ai deux gros problèmes :
1) la macro ne fonctionne pas erreur 1004 ,9 ,76
2) et lorsque je la bidouille(vf 2) un peu erreur 1004
si quelqu’un a une idée parce que là je mis perd merci d’avance à tous
version 1
ChDir "P:\Supply Chain\Service\Supply Chain BG Restricted\Indicators\Reporting\"
Workbooks.Open Filename:="P:\Supply Chain\Service\Supply Chain BG Restricted\Indicators\Reporting\BOP in number of days.xls"
Sheets("copy").Range("Q12:AB103").Copy
Workbooks("Conso mensuelle.xls").Sheets("Days supply of BOP").Activate
ActiveSheet.Paste Range("Q12")
Application.DisplayAlerts = False
Workbooks("BOP in number of days.xls").Close SaveChanges:=False
Workbooks.Open Filename:="P:\Supply Chain\Service\Supply Chain BG Restricted\Indicators\Reporting\Finished Products in number of days.xls"
Sheets("copy").Range("Q12:AB103").Copy
Workbooks("Conso mensuelle.xls").Sheets("Days supply of finished product").Activate
ActiveSheet.Paste Range("Q12")
Workbooks("Finished Products in number of days.xls").Close SaveChanges:=False
Version 2
ChDir "c:\Indicateurs Thérésa"
Workbooks.Open Filename:="c:\Indicateurs Thérésa\BOP in number of days.xls
Sheets("copy").Select
Range("Q12:AB103").Select
Selection.Copy
Windows("Conso mensuelle.xls").Activate
Sheets("Days supply of BOP").Select
Range("Q12").Select
ActiveSheet.Paste
J’ai deux gros problèmes :
1) la macro ne fonctionne pas erreur 1004 ,9 ,76
2) et lorsque je la bidouille(vf 2) un peu erreur 1004
si quelqu’un a une idée parce que là je mis perd merci d’avance à tous
version 1
ChDir "P:\Supply Chain\Service\Supply Chain BG Restricted\Indicators\Reporting\"
Workbooks.Open Filename:="P:\Supply Chain\Service\Supply Chain BG Restricted\Indicators\Reporting\BOP in number of days.xls"
Sheets("copy").Range("Q12:AB103").Copy
Workbooks("Conso mensuelle.xls").Sheets("Days supply of BOP").Activate
ActiveSheet.Paste Range("Q12")
Application.DisplayAlerts = False
Workbooks("BOP in number of days.xls").Close SaveChanges:=False
Workbooks.Open Filename:="P:\Supply Chain\Service\Supply Chain BG Restricted\Indicators\Reporting\Finished Products in number of days.xls"
Sheets("copy").Range("Q12:AB103").Copy
Workbooks("Conso mensuelle.xls").Sheets("Days supply of finished product").Activate
ActiveSheet.Paste Range("Q12")
Workbooks("Finished Products in number of days.xls").Close SaveChanges:=False
Version 2
ChDir "c:\Indicateurs Thérésa"
Workbooks.Open Filename:="c:\Indicateurs Thérésa\BOP in number of days.xls
Sheets("copy").Select
Range("Q12:AB103").Select
Selection.Copy
Windows("Conso mensuelle.xls").Activate
Sheets("Days supply of BOP").Select
Range("Q12").Select
ActiveSheet.Paste