maloya852
XLDnaute Nouveau
bonjour a tous
voila j ai un souci sur une macro de copie
Saveship Macro
' Opens the weekly shipment report then saves a copy of it for Historical data
'
'
Range("A1").Select
Selection.Copy
Workbooks.Open Filename:= _
"P:\Alex\MI - weekly\Shipping Items Angel & Flora.xls"
Windows("Shipping Items Angel & Flora.xls").Activate
Range("A1").Select
ActiveSheet.Copy
le bug est la Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True le bug est la
Application.CutCopyMode = False
ActiveWindow.SmallScroll ToRight:=1
Columns("T:T").ColumnWidth = 11.71
Bref le souci je suis une grosse grosse novice et ne connait pas grand chose au macro et mvb
La personne qui l a cree a quitte la societe et je me retrouve avec plein de nouveaux cadeaux de ce genre sous les bras ..
Bref.. il faut que je m y mette serieusement..
HELP !
voila j ai un souci sur une macro de copie
Saveship Macro
' Opens the weekly shipment report then saves a copy of it for Historical data
'
'
Range("A1").Select
Selection.Copy
Workbooks.Open Filename:= _
"P:\Alex\MI - weekly\Shipping Items Angel & Flora.xls"
Windows("Shipping Items Angel & Flora.xls").Activate
Range("A1").Select
ActiveSheet.Copy
le bug est la Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True le bug est la
Application.CutCopyMode = False
ActiveWindow.SmallScroll ToRight:=1
Columns("T:T").ColumnWidth = 11.71
Bref le souci je suis une grosse grosse novice et ne connait pas grand chose au macro et mvb
La personne qui l a cree a quitte la societe et je me retrouve avec plein de nouveaux cadeaux de ce genre sous les bras ..
Bref.. il faut que je m y mette serieusement..
HELP !