VBA Problème de macro en changeant le nom du fichier

R

Roucas

XLDnaute Nouveau
Bonjour à toutes et tous,

Je suis très débutant en la matière.

J'ai crée des macro par intuitions et lorsque je change le nom de mon fichier, les macros ne fonctionnent plus je vous mets le code ici. Si vous voyez des choses qui vous semblent inutiles dans mon code n'hésitez pas à me le dire. Je vous remercie pour votre aide
Bonne journée à tous


Sub Scope1()
'
' Scope1 Macro
' Macro enregistrée le 31/07/2012 par FX562118
'

'
Application.ScreenUpdating = False
Range("A4:D1503").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"G4:J4"), Unique:=True
ActiveWindow.SmallScroll Down:=-9
End Sub
Sub Scope2()
'
' Scope2 Macro
' Macro enregistrée le 31/07/2012 par FX562118
'

'
Application.ScreenUpdating = False
Range("M5").Select
ActiveCell.FormulaR1C1 = _
"=IF(AND(RC[-5]<>0,RC[-6]<>""""),CONCATENATE(RC[-6],""¤"",RC[-5],""¤"",RC[-4],""¤"",RC[-3]),)"
Range("M5").Select
ActiveCell.FormulaR1C1 = _
"=IF(AND(RC[-5]<>0,RC[-6]<>""""),CONCATENATE(RC[-6],""¤"",RC[-5],""¤"",RC[-4],""¤"",RC[-3]),"""")"
Range("M5").Select
Selection.AutoFill Destination:=Range("M5:M1118"), Type:=xlFillDefault
Range("M5:M1118").Select
ActiveWindow.ScrollRow = 1070
ActiveWindow.ScrollRow = 1066
ActiveWindow.ScrollRow = 1064
ActiveWindow.ScrollRow = 1058
ActiveWindow.ScrollRow = 1054
ActiveWindow.ScrollRow = 1045
ActiveWindow.ScrollRow = 1033
ActiveWindow.ScrollRow = 1022
ActiveWindow.ScrollRow = 1014
ActiveWindow.ScrollRow = 1001
ActiveWindow.ScrollRow = 985
ActiveWindow.ScrollRow = 972
ActiveWindow.ScrollRow = 954
ActiveWindow.ScrollRow = 941
ActiveWindow.ScrollRow = 924
ActiveWindow.ScrollRow = 912
ActiveWindow.ScrollRow = 897
ActiveWindow.ScrollRow = 887
ActiveWindow.ScrollRow = 873
ActiveWindow.ScrollRow = 868
ActiveWindow.ScrollRow = 864
ActiveWindow.ScrollRow = 858
ActiveWindow.ScrollRow = 850
ActiveWindow.ScrollRow = 845
ActiveWindow.ScrollRow = 837
ActiveWindow.ScrollRow = 831
ActiveWindow.ScrollRow = 825
ActiveWindow.ScrollRow = 823
ActiveWindow.ScrollRow = 821
ActiveWindow.ScrollRow = 820
ActiveWindow.ScrollRow = 818
ActiveWindow.ScrollRow = 814
ActiveWindow.ScrollRow = 812
ActiveWindow.ScrollRow = 810
ActiveWindow.ScrollRow = 804
ActiveWindow.ScrollRow = 800
ActiveWindow.ScrollRow = 793
ActiveWindow.ScrollRow = 787
ActiveWindow.ScrollRow = 771
ActiveWindow.ScrollRow = 762
ActiveWindow.ScrollRow = 744
ActiveWindow.ScrollRow = 731
ActiveWindow.ScrollRow = 712
ActiveWindow.ScrollRow = 694
ActiveWindow.ScrollRow = 677
ActiveWindow.ScrollRow = 650
ActiveWindow.ScrollRow = 633
ActiveWindow.ScrollRow = 604
ActiveWindow.ScrollRow = 585
ActiveWindow.ScrollRow = 558
ActiveWindow.ScrollRow = 534
ActiveWindow.ScrollRow = 504
ActiveWindow.ScrollRow = 482
ActiveWindow.ScrollRow = 457
ActiveWindow.ScrollRow = 436
ActiveWindow.ScrollRow = 413
ActiveWindow.ScrollRow = 392
ActiveWindow.ScrollRow = 367
ActiveWindow.ScrollRow = 348
ActiveWindow.ScrollRow = 323
ActiveWindow.ScrollRow = 301
ActiveWindow.ScrollRow = 278
ActiveWindow.ScrollRow = 263
ActiveWindow.ScrollRow = 244
ActiveWindow.ScrollRow = 221
ActiveWindow.ScrollRow = 205
ActiveWindow.ScrollRow = 184
ActiveWindow.ScrollRow = 169
ActiveWindow.ScrollRow = 147
ActiveWindow.ScrollRow = 132
ActiveWindow.ScrollRow = 111
ActiveWindow.ScrollRow = 101
ActiveWindow.ScrollRow = 82
ActiveWindow.ScrollRow = 70
ActiveWindow.ScrollRow = 51
ActiveWindow.ScrollRow = 40
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 1
Range("N5").Select
ActiveCell.FormulaR1C1 = "1"
Range("N6").Select
ActiveCell.FormulaR1C1 = "2"
Range("N7").Select
ActiveCell.FormulaR1C1 = "3"
Range("N8").Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
ActiveCell.FormulaR1C1 = "4"
Range("N5:N8").Select
Selection.AutoFill Destination:=Range("N5:N42"), Type:=xlFillDefault
Range("N5:N42").Select
ActiveWindow.SmallScroll Down:=12
Selection.AutoFill Destination:=Range("N5:N556"), Type:=xlFillDefault
Range("N5:N556").Select
Selection.AutoFill Destination:=Range("N5:N1078"), Type:=xlFillDefault
Range("N5:N1078").Select
ActiveWindow.ScrollRow = 1031
ActiveWindow.ScrollRow = 1029
ActiveWindow.ScrollRow = 1024
ActiveWindow.ScrollRow = 1018
ActiveWindow.ScrollRow = 1004
ActiveWindow.ScrollRow = 989
ActiveWindow.ScrollRow = 954
ActiveWindow.ScrollRow = 929
ActiveWindow.ScrollRow = 887
ActiveWindow.ScrollRow = 858
ActiveWindow.ScrollRow = 820
ActiveWindow.ScrollRow = 793
ActiveWindow.ScrollRow = 764
ActiveWindow.ScrollRow = 723
ActiveWindow.ScrollRow = 694
ActiveWindow.ScrollRow = 642
ActiveWindow.ScrollRow = 617
ActiveWindow.ScrollRow = 581
ActiveWindow.ScrollRow = 554
ActiveWindow.ScrollRow = 519
ActiveWindow.ScrollRow = 500
ActiveWindow.ScrollRow = 475
ActiveWindow.ScrollRow = 457
ActiveWindow.ScrollRow = 436
ActiveWindow.ScrollRow = 421
ActiveWindow.ScrollRow = 402
ActiveWindow.ScrollRow = 388
ActiveWindow.ScrollRow = 369
ActiveWindow.ScrollRow = 357
ActiveWindow.ScrollRow = 346
ActiveWindow.ScrollRow = 330
ActiveWindow.ScrollRow = 319
ActiveWindow.ScrollRow = 301
ActiveWindow.ScrollRow = 292
ActiveWindow.ScrollRow = 276
ActiveWindow.ScrollRow = 265
ActiveWindow.ScrollRow = 249
ActiveWindow.ScrollRow = 238
ActiveWindow.ScrollRow = 222
ActiveWindow.ScrollRow = 213
ActiveWindow.ScrollRow = 197
ActiveWindow.ScrollRow = 188
ActiveWindow.ScrollRow = 172
ActiveWindow.ScrollRow = 165
ActiveWindow.ScrollRow = 151
ActiveWindow.ScrollRow = 144
ActiveWindow.ScrollRow = 132
ActiveWindow.ScrollRow = 124
ActiveWindow.ScrollRow = 118
ActiveWindow.ScrollRow = 113
ActiveWindow.ScrollRow = 109
ActiveWindow.ScrollRow = 103
ActiveWindow.ScrollRow = 101
ActiveWindow.ScrollRow = 97
ActiveWindow.ScrollRow = 95
ActiveWindow.ScrollRow = 93
ActiveWindow.ScrollRow = 92
ActiveWindow.ScrollRow = 90
ActiveWindow.ScrollRow = 88
ActiveWindow.ScrollRow = 86
ActiveWindow.ScrollRow = 84
ActiveWindow.ScrollRow = 82
ActiveWindow.ScrollRow = 80
ActiveWindow.ScrollRow = 76
ActiveWindow.ScrollRow = 74
ActiveWindow.ScrollRow = 68
ActiveWindow.ScrollRow = 65
ActiveWindow.ScrollRow = 59
ActiveWindow.ScrollRow = 57
ActiveWindow.ScrollRow = 51
ActiveWindow.ScrollRow = 47
ActiveWindow.ScrollRow = 43
ActiveWindow.ScrollRow = 41
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 32
ActiveWindow.ScrollRow = 28
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 1
End Sub
Sub Scope3()
'
' Scope3 Macro
' Macro enregistrée le 31/07/2012 par FX562118
'

'
Application.ScreenUpdating = False
Range("M4:N1074").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"Q4:R4"), Unique:=True
End Sub

Sub Scope4()
'
' Scope4 Macro
' Macro enregistrée le 31/07/2012 par FX562118
'

'
Application.ScreenUpdating = False
Range("Q5:Q1074").Select
ActiveWindow.ScrollRow = 1049
ActiveWindow.ScrollRow = 1047
ActiveWindow.ScrollRow = 1045
ActiveWindow.ScrollRow = 1043
ActiveWindow.ScrollRow = 1039
ActiveWindow.ScrollRow = 1037
ActiveWindow.ScrollRow = 1035
ActiveWindow.ScrollRow = 1033
ActiveWindow.ScrollRow = 1031
ActiveWindow.ScrollRow = 1028
ActiveWindow.ScrollRow = 1024
ActiveWindow.ScrollRow = 1020
ActiveWindow.ScrollRow = 1016
ActiveWindow.ScrollRow = 1010
ActiveWindow.ScrollRow = 1004
ActiveWindow.ScrollRow = 999
ActiveWindow.ScrollRow = 993
ActiveWindow.ScrollRow = 983
ActiveWindow.ScrollRow = 977
ActiveWindow.ScrollRow = 968
ActiveWindow.ScrollRow = 960
ActiveWindow.ScrollRow = 947
ActiveWindow.ScrollRow = 941
ActiveWindow.ScrollRow = 925
ActiveWindow.ScrollRow = 918
ActiveWindow.ScrollRow = 904
ActiveWindow.ScrollRow = 897
ActiveWindow.ScrollRow = 887
ActiveWindow.ScrollRow = 875
ActiveWindow.ScrollRow = 868
ActiveWindow.ScrollRow = 854
ActiveWindow.ScrollRow = 841
ActiveWindow.ScrollRow = 823
ActiveWindow.ScrollRow = 810
ActiveWindow.ScrollRow = 793
ActiveWindow.ScrollRow = 779
ActiveWindow.ScrollRow = 764
ActiveWindow.ScrollRow = 752
ActiveWindow.ScrollRow = 737
ActiveWindow.ScrollRow = 727
ActiveWindow.ScrollRow = 712
ActiveWindow.ScrollRow = 700
ActiveWindow.ScrollRow = 690
ActiveWindow.ScrollRow = 679
ActiveWindow.ScrollRow = 665
ActiveWindow.ScrollRow = 660
ActiveWindow.ScrollRow = 652
ActiveWindow.ScrollRow = 646
ActiveWindow.ScrollRow = 642
ActiveWindow.ScrollRow = 635
ActiveWindow.ScrollRow = 631
ActiveWindow.ScrollRow = 619
ActiveWindow.ScrollRow = 612
ActiveWindow.ScrollRow = 598
ActiveWindow.ScrollRow = 590
ActiveWindow.ScrollRow = 577
ActiveWindow.ScrollRow = 569
ActiveWindow.ScrollRow = 556
ActiveWindow.ScrollRow = 546
ActiveWindow.ScrollRow = 536
ActiveWindow.ScrollRow = 527
ActiveWindow.ScrollRow = 519
ActiveWindow.ScrollRow = 515
ActiveWindow.ScrollRow = 508
ActiveWindow.ScrollRow = 504
ActiveWindow.ScrollRow = 498
ActiveWindow.ScrollRow = 492
ActiveWindow.ScrollRow = 488
ActiveWindow.ScrollRow = 482
ActiveWindow.ScrollRow = 477
ActiveWindow.ScrollRow = 469
ActiveWindow.ScrollRow = 465
ActiveWindow.ScrollRow = 454
ActiveWindow.ScrollRow = 446
ActiveWindow.ScrollRow = 434
ActiveWindow.ScrollRow = 427
ActiveWindow.ScrollRow = 411
ActiveWindow.ScrollRow = 400
ActiveWindow.ScrollRow = 384
ActiveWindow.ScrollRow = 371
ActiveWindow.ScrollRow = 353
ActiveWindow.ScrollRow = 340
ActiveWindow.ScrollRow = 319
ActiveWindow.ScrollRow = 303
ActiveWindow.ScrollRow = 288
ActiveWindow.ScrollRow = 269
ActiveWindow.ScrollRow = 253
ActiveWindow.ScrollRow = 232
ActiveWindow.ScrollRow = 221
ActiveWindow.ScrollRow = 201
ActiveWindow.ScrollRow = 188
ActiveWindow.ScrollRow = 170
ActiveWindow.ScrollRow = 159
ActiveWindow.ScrollRow = 144
ActiveWindow.ScrollRow = 134
ActiveWindow.ScrollRow = 120
ActiveWindow.ScrollRow = 111
ActiveWindow.ScrollRow = 97
ActiveWindow.ScrollRow = 90
ActiveWindow.ScrollRow = 74
ActiveWindow.ScrollRow = 66
ActiveWindow.ScrollRow = 59
ActiveWindow.ScrollRow = 45
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 1
Selection.TextToColumns Destination:=Range("T5"), DataType:=xlDelimited, _
TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="¤", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1)), TrailingMinusNumbers:=True
End Sub
Sub Scope6()
'
' Scope6 Macro
' Macro enregistrée le 31/07/2012 par FX562118
'


Application.ScreenUpdating = False
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 23
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 18
Range("T5:AB735").Select
ActiveWindow.ScrollRow = 687
ActiveWindow.ScrollRow = 685
ActiveWindow.ScrollRow = 681
ActiveWindow.ScrollRow = 679
ActiveWindow.ScrollRow = 675
ActiveWindow.ScrollRow = 671
ActiveWindow.ScrollRow = 664
ActiveWindow.ScrollRow = 658
ActiveWindow.ScrollRow = 648
ActiveWindow.ScrollRow = 640
ActiveWindow.ScrollRow = 631
ActiveWindow.ScrollRow = 623
ActiveWindow.ScrollRow = 613
ActiveWindow.ScrollRow = 602
ActiveWindow.ScrollRow = 590
ActiveWindow.ScrollRow = 579
ActiveWindow.ScrollRow = 563
ActiveWindow.ScrollRow = 554
ActiveWindow.ScrollRow = 538
ActiveWindow.ScrollRow = 527
ActiveWindow.ScrollRow = 511
ActiveWindow.ScrollRow = 504
ActiveWindow.ScrollRow = 494
ActiveWindow.ScrollRow = 479
ActiveWindow.ScrollRow = 471
ActiveWindow.ScrollRow = 457
ActiveWindow.ScrollRow = 448
ActiveWindow.ScrollRow = 436
ActiveWindow.ScrollRow = 430
ActiveWindow.ScrollRow = 423
ActiveWindow.ScrollRow = 415
ActiveWindow.ScrollRow = 409
ActiveWindow.ScrollRow = 404
ActiveWindow.ScrollRow = 396
ActiveWindow.ScrollRow = 390
ActiveWindow.ScrollRow = 382
ActiveWindow.ScrollRow = 378
ActiveWindow.ScrollRow = 371
ActiveWindow.ScrollRow = 367
ActiveWindow.ScrollRow = 363
ActiveWindow.ScrollRow = 355
ActiveWindow.ScrollRow = 353
ActiveWindow.ScrollRow = 348
ActiveWindow.ScrollRow = 346
ActiveWindow.ScrollRow = 342
ActiveWindow.ScrollRow = 340
ActiveWindow.ScrollRow = 334
ActiveWindow.ScrollRow = 332
ActiveWindow.ScrollRow = 328
ActiveWindow.ScrollRow = 325
ActiveWindow.ScrollRow = 317
ActiveWindow.ScrollRow = 311
ActiveWindow.ScrollRow = 300
ActiveWindow.ScrollRow = 292
ActiveWindow.ScrollRow = 278
ActiveWindow.ScrollRow = 267
ActiveWindow.ScrollRow = 251
ActiveWindow.ScrollRow = 240
ActiveWindow.ScrollRow = 230
ActiveWindow.ScrollRow = 211
ActiveWindow.ScrollRow = 201
ActiveWindow.ScrollRow = 184
ActiveWindow.ScrollRow = 174
ActiveWindow.ScrollRow = 161
ActiveWindow.ScrollRow = 153
ActiveWindow.ScrollRow = 142
ActiveWindow.ScrollRow = 136
ActiveWindow.ScrollRow = 130
ActiveWindow.ScrollRow = 126
ActiveWindow.ScrollRow = 124
ActiveWindow.ScrollRow = 122
ActiveWindow.ScrollRow = 120
ActiveWindow.ScrollRow = 118
ActiveWindow.ScrollRow = 115
ActiveWindow.ScrollRow = 111
ActiveWindow.ScrollRow = 107
ActiveWindow.ScrollRow = 101
ActiveWindow.ScrollRow = 97
ActiveWindow.ScrollRow = 92
ActiveWindow.ScrollRow = 86
ActiveWindow.ScrollRow = 80
ActiveWindow.ScrollRow = 76
ActiveWindow.ScrollRow = 70
ActiveWindow.ScrollRow = 66
ActiveWindow.ScrollRow = 59
ActiveWindow.ScrollRow = 55
ActiveWindow.ScrollRow = 49
ActiveWindow.ScrollRow = 43
ActiveWindow.ScrollRow = 40
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 18
Selection.Sort Key1:=Range("T5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("S2").Select
End Sub
Sub MàJ1()
'
' MàJ1 Macro
' Macro enregistrée le 31/07/2012 par FX562118
'

'
Application.ScreenUpdating = False
Application.Run "'Maquette Plan de prod.xls'!Scope1"
Application.Run "'Maquette Plan de prod.xls'!Scope2"
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
Application.Run "'Maquette Plan de prod.xls'!Scope3"
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Application.Run "'Maquette Plan de prod.xls'!Scope4"
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Application.Run "'Maquette Plan de prod.xls'!Scope6"
End Sub
Sub Scope9()
'
' Scope9 Macro
' Macro enregistrée le 31/07/2012 par FX562118
'

'
Application.ScreenUpdating = False
Range("A5:D5").Select
Selection.AutoFill Destination:=Range("A5:D938")
Range("A5:D938").Select
Range("A2").Select
End Sub
Sub MàJ2()
'
' MàJ2 Macro
' Macro enregistrée le 31/07/2012 par FX562118
'

'
Application.ScreenUpdating = False
Application.Run "'Maquette Plan de prod.xls'!Scope9"
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 22
Application.Run "'Maquette Plan de prod.xls'!MàJ1"
End Sub

Sub ScopeF1()
'
' ScopeF1 Macro
' Macro enregistrée le 07/08/2012 par FX562118
'

'
Application.ScreenUpdating = False
Range("A4:D1500").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"G4:J4"), Unique:=True
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 1
End Sub
Sub Macro11()
'
' Macro11 Macro
' Macro enregistrée le 07/08/2012 par FX562118
'

'
With Selection.Interior
.ColorIndex = 46
.Pattern = xlSolid
End With
Range("F9").Select
With Selection.Interior
.ColorIndex = 46
.Pattern = xlSolid
End With
Range("E10").Select
With Selection.Interior
.ColorIndex = 46
.Pattern = xlSolid
End With
Range("F11").Select
With Selection.Interior
.ColorIndex = 46
.Pattern = xlSolid
End With
Range("E13").Select
With Selection.Interior
.ColorIndex = 46
.Pattern = xlSolid
End With
Range("F14").Select
With Selection.Interior
.ColorIndex = 12
.Pattern = xlSolid
End With
Range("F15").Select
End Sub
Sub ScopeF2()
'
' ScopeF2 Macro
' Macro enregistrée le 07/08/2012 par FX562118
'

'
Application.ScreenUpdating = False
Range("M4:N1500").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
("Q1:R11"), CopyToRange:=Range("Q4:R4"), Unique:=True
ActiveWindow.SmallScroll Down:=0
End Sub
Sub ScopeF4()
'
' ScopeF4 Macro
' Macro enregistrée le 07/08/2012 par FX562118
'

'
Application.ScreenUpdating = False
Range("A5").Select
Selection.AutoFill Destination:=Range("A5:A1503")
Range("A5:A1503").Select
Range("B5").Select
Selection.AutoFill Destination:=Range("B5:B1503")
Range("B5:B1503").Select
Range("C5").Select
Selection.AutoFill Destination:=Range("C5:C1503")
Range("C5:C1503").Select
Range("D5").Select
Selection.AutoFill Destination:=Range("D5:D1503")
Range("D5:D1503").Select
Range("D3").Select
End Sub
Sub MiseàjourscopeF()
'
' MiseàjourscopeF Macro
' Macro enregistrée le 07/08/2012 par FX562118
'

'
Application.ScreenUpdating = False
Application.Run "'Maquette Plan de prod.xls'!ScopeF4"
Application.Run "'Maquette Plan de prod.xls'!ScopeF1"
Application.Run "'Maquette Plan de prod.xls'!ScopeF2"
Application.Run "'Maquette Plan de prod.xls'!ScopeF3"
End Sub
Sub ScopeF3()
'
' ScopeF3 Macro
' Macro enregistrée le 07/08/2012 par FX562118
'

'
Application.ScreenUpdating = False
Range("Q5:Q382").Select
ActiveWindow.ScrollRow = 336
ActiveWindow.ScrollRow = 330
ActiveWindow.ScrollRow = 326
ActiveWindow.ScrollRow = 317
ActiveWindow.ScrollRow = 309
ActiveWindow.ScrollRow = 296
ActiveWindow.ScrollRow = 286
ActiveWindow.ScrollRow = 269
ActiveWindow.ScrollRow = 259
ActiveWindow.ScrollRow = 242
ActiveWindow.ScrollRow = 228
ActiveWindow.ScrollRow = 207
ActiveWindow.ScrollRow = 197
ActiveWindow.ScrollRow = 184
ActiveWindow.ScrollRow = 159
ActiveWindow.ScrollRow = 147
ActiveWindow.ScrollRow = 115
ActiveWindow.ScrollRow = 95
ActiveWindow.ScrollRow = 70
ActiveWindow.ScrollRow = 55
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollRow = 338
ActiveWindow.ScrollRow = 1
Selection.TextToColumns Destination:=Range("T5"), DataType:=xlDelimited, _
TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="¤", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1)), TrailingMinusNumbers:=True
End Sub
Sub ScopeF3bis()
'
' ScopeF3bis Macro
' Macro enregistrée le 07/08/2012 par FX562118
'

'
Application.ScreenUpdating = False
Range("T5:AB418").Select
ActiveWindow.ScrollRow = 371
ActiveWindow.ScrollRow = 367
ActiveWindow.ScrollRow = 361
ActiveWindow.ScrollRow = 357
ActiveWindow.ScrollRow = 348
ActiveWindow.ScrollRow = 340
ActiveWindow.ScrollRow = 326
ActiveWindow.ScrollRow = 319
ActiveWindow.ScrollRow = 303
ActiveWindow.ScrollRow = 292
ActiveWindow.ScrollRow = 278
ActiveWindow.ScrollRow = 273
ActiveWindow.ScrollRow = 263
ActiveWindow.ScrollRow = 257
ActiveWindow.ScrollRow = 251
ActiveWindow.ScrollRow = 248
ActiveWindow.ScrollRow = 244
ActiveWindow.ScrollRow = 240
ActiveWindow.ScrollRow = 238
ActiveWindow.ScrollRow = 234
ActiveWindow.ScrollRow = 230
ActiveWindow.ScrollRow = 224
ActiveWindow.ScrollRow = 222
ActiveWindow.ScrollRow = 217
ActiveWindow.ScrollRow = 213
ActiveWindow.ScrollRow = 207
ActiveWindow.ScrollRow = 201
ActiveWindow.ScrollRow = 194
ActiveWindow.ScrollRow = 188
ActiveWindow.ScrollRow = 178
ActiveWindow.ScrollRow = 169
ActiveWindow.ScrollRow = 153
ActiveWindow.ScrollRow = 140
ActiveWindow.ScrollRow = 124
ActiveWindow.ScrollRow = 113
ActiveWindow.ScrollRow = 99
ActiveWindow.ScrollRow = 84
ActiveWindow.ScrollRow = 76
ActiveWindow.ScrollRow = 68
ActiveWindow.ScrollRow = 61
ActiveWindow.ScrollRow = 59
ActiveWindow.ScrollRow = 57
ActiveWindow.ScrollRow = 55
ActiveWindow.ScrollRow = 53
ActiveWindow.ScrollRow = 51
ActiveWindow.ScrollRow = 47
ActiveWindow.ScrollRow = 43
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 1
Selection.Sort Key1:=Range("T5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("T3").Select
End Sub
Sub MàJScopeF()
'
' MàJScopeF Macro
' Macro enregistrée le 07/08/2012 par FX562118
'

'
Application.ScreenUpdating = False
Application.Run "'Maquette Plan de prod.xls'!ScopeF4"
Application.Run "'Maquette Plan de prod.xls'!ScopeF1"
Application.Run "'Maquette Plan de prod.xls'!ScopeF2"
Application.Run "'Maquette Plan de prod.xls'!ScopeF3"
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Application.Run "'Maquette Plan de prod.xls'!ScopeF3bis"
End Sub
Sub MàJtotale()
'
' MàJtotale Macro
' Macro enregistrée le 07/08/2012 par FX562118
'

'
Application.ScreenUpdating = False
Sheets("Scope-Saving actuels").Select
Application.Run "'Maquette Plan de prod.xls'!MàJ2"
Sheets("Scope-Saving futurs").Select
Application.Run "'Maquette Plan de prod.xls'!MàJScopeF"
Sheets("Acceuil").Select
End Sub
 
Trier par date Trier par votes
phlaurent55

phlaurent55

Nous a quittés en 2020
Repose en paix
Re : VBA Problème de macro en changeant le nom du fichier

Bonjour Roucas

sans voir le fichier .......... difficile de te répondre

pour plus de confort à la lecture de ce parchemin, tu peux déjà supprimer tous les
ActiveWindow.ScrollColumn = ..
ActiveWindow.ScrollRow = ..


à+
Philippe
 
Vote positif 0 Vote négatif
R

Roucas

XLDnaute Nouveau
Re : VBA Problème de macro en changeant le nom du fichier

Merci philippe pour votre réponse,

Mon code donne à présent ca (je ne peux pas mettre le fichier c'est un fichier du bureau et je peux pas créer d'exemple avec toutes les macro)

Mon soucis intervient au niveau de Application.Run "'Maquette Plan de prod.xls'!Scope1"[/U] pour créer ma macro final j'ai créé des boutons propre à des macros et j'ai cliqué dessus pour en faire ma macro finale


Sub Scope1()
'
' Scope1 Macro
' Macro enregistrée le 31/07/2012 par FX562118
'

'
Application.ScreenUpdating = False
Range("A4:D1503").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"G4:J4"), Unique:=True
ActiveWindow.SmallScroll Down:=-9
End Sub
Sub Scope2()
'
' Scope2 Macro
' Macro enregistrée le 31/07/2012 par FX562118
'

'
Application.ScreenUpdating = False
Range("M5").Select
ActiveCell.FormulaR1C1 = _
"=IF(AND(RC[-5]<>0,RC[-6]<>""""),CONCATENATE(RC[-6],""¤"",RC[-5],""¤"",RC[-4],""¤"",RC[-3]),)"
Range("M5").Select
ActiveCell.FormulaR1C1 = _
"=IF(AND(RC[-5]<>0,RC[-6]<>""""),CONCATENATE(RC[-6],""¤"",RC[-5],""¤"",RC[-4],""¤"",RC[-3]),"""")"
Range("M5").Select
Selection.AutoFill Destination:=Range("M5:M1118"), Type:=xlFillDefault
Range("M5:M1118").Select
Range("N5").Select
ActiveCell.FormulaR1C1 = "1"
Range("N6").Select
ActiveCell.FormulaR1C1 = "2"
Range("N7").Select
ActiveCell.FormulaR1C1 = "3"
Range("N8").Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
ActiveCell.FormulaR1C1 = "4"
Range("N5:N8").Select
Selection.AutoFill Destination:=Range("N5:N42"), Type:=xlFillDefault
Range("N5:N42").Select
ActiveWindow.SmallScroll Down:=12
Selection.AutoFill Destination:=Range("N5:N556"), Type:=xlFillDefault
Range("N5:N556").Select
Selection.AutoFill Destination:=Range("N5:N1078"), Type:=xlFillDefault
Range("N5:N1078").Select
End Sub
Sub Scope3()
'
' Scope3 Macro
' Macro enregistrée le 31/07/2012 par FX562118
'
'
Application.ScreenUpdating = False
Range("M4:N1074").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"Q4:R4"), Unique:=True
End Sub

Sub Scope4()
'
' Scope4 Macro
' Macro enregistrée le 31/07/2012 par FX562118
'

'
Application.ScreenUpdating = False
Range("Q5:Q1074").Select
Selection.TextToColumns Destination:=Range("T5"), DataType:=xlDelimited, _
TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="¤", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1)), TrailingMinusNumbers:=True
End Sub
Sub Scope6()
'
' Scope6 Macro
' Macro enregistrée le 31/07/2012 par FX562118
'


Application.ScreenUpdating = False
Range("T5:AB735").Select
Selection.Sort Key1:=Range("T5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("S2").Select
End Sub
Sub MàJ1()
'
' MàJ1 Macro
' Macro enregistrée le 31/07/2012 par FX562118
'

Application.ScreenUpdating = False
Application.Run "'Maquette Plan de prod.xls'!Scope1"
Application.Run "'Maquette Plan de prod.xls'!Scope2"
Application.Run "'Maquette Plan de prod.xls'!Scope3"
Application.Run "'Maquette Plan de prod.xls'!Scope4"
Application.Run "'Maquette Plan de prod.xls'!Scope6"
End Sub
Sub Scope9()
'
' Scope9 Macro
' Macro enregistrée le 31/07/2012 par FX562118
'
'
Application.ScreenUpdating = False
Range("A5:D5").Select
Selection.AutoFill Destination:=Range("A5:D938")
Range("A5:D938").Select
Range("A2").Select
End Sub
Sub MàJ2()
'
' MàJ2 Macro
' Macro enregistrée le 31/07/2012 par FX562118
'

'
Application.ScreenUpdating = False
Application.Run "'Maquette Plan de prod.xls'!Scope9"

Application.Run "'Maquette Plan de prod.xls'!MàJ1"
End Sub





Sub ScopeF1()
'
' ScopeF1 Macro
' Macro enregistrée le 07/08/2012 par FX562118
'

'
Application.ScreenUpdating = False
Range("A4:D1500").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"G4:J4"), Unique:=True
End Sub
Sub Macro11()
'
' Macro11 Macro
' Macro enregistrée le 07/08/2012 par FX562118
'

'
With Selection.Interior
.ColorIndex = 46
.Pattern = xlSolid
End With
Range("F9").Select
With Selection.Interior
.ColorIndex = 46
.Pattern = xlSolid
End With
Range("E10").Select
With Selection.Interior
.ColorIndex = 46
.Pattern = xlSolid
End With
Range("F11").Select
With Selection.Interior
.ColorIndex = 46
.Pattern = xlSolid
End With
Range("E13").Select
With Selection.Interior
.ColorIndex = 46
.Pattern = xlSolid
End With
Range("F14").Select
With Selection.Interior
.ColorIndex = 12
.Pattern = xlSolid
End With
Range("F15").Select
End Sub
Sub ScopeF2()
'
' ScopeF2 Macro
' Macro enregistrée le 07/08/2012 par FX562118
'

'
Application.ScreenUpdating = False
Range("M4:N1500").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
("Q1:R11"), CopyToRange:=Range("Q4:R4"), Unique:=True
ActiveWindow.SmallScroll Down:=0
End Sub
Sub ScopeF4()
'
' ScopeF4 Macro
' Macro enregistrée le 07/08/2012 par FX562118
'

'
Application.ScreenUpdating = False
Range("A5").Select
Selection.AutoFill Destination:=Range("A5:A1503")
Range("A5:A1503").Select
Range("B5").Select
Selection.AutoFill Destination:=Range("B5:B1503")
Range("B5:B1503").Select
Range("C5").Select
Selection.AutoFill Destination:=Range("C5:C1503")
Range("C5:C1503").Select
Range("D5").Select
Selection.AutoFill Destination:=Range("D5:D1503")
Range("D5:D1503").Select
Range("D3").Select
End Sub
Sub MiseàjourscopeF()
'
' MiseàjourscopeF Macro
' Macro enregistrée le 07/08/2012 par FX562118
'

'
Application.ScreenUpdating = False
Application.Run "'Maquette Plan de prod.xls'!ScopeF4"
Application.Run "'Maquette Plan de prod.xls'!ScopeF1"
Application.Run "'Maquette Plan de prod.xls'!ScopeF2"
Application.Run "'Maquette Plan de prod.xls'!ScopeF3"
End Sub
Sub ScopeF3()
'
' ScopeF3 Macro
' Macro enregistrée le 07/08/2012 par FX562118
'

'
Application.ScreenUpdating = False
Range("Q5:Q382").Select
Selection.TextToColumns Destination:=Range("T5"), DataType:=xlDelimited, _
TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="¤", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1)), TrailingMinusNumbers:=True
End Sub
Sub ScopeF3bis()
'
' ScopeF3bis Macro
' Macro enregistrée le 07/08/2012 par FX562118
'

'
Application.ScreenUpdating = False
Range("T5:AB418").Select
Selection.Sort Key1:=Range("T5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("T3").Select
End Sub
Sub MàJScopeF()
'
' MàJScopeF Macro
' Macro enregistrée le 07/08/2012 par FX562118
'

'
Application.ScreenUpdating = False
Application.Run "'Maquette Plan de prod.xls'!ScopeF4"
Application.Run "'Maquette Plan de prod.xls'!ScopeF1"
Application.Run "'Maquette Plan de prod.xls'!ScopeF2"
Application.Run "'Maquette Plan de prod.xls'!ScopeF3"
Application.Run "'Maquette Plan de prod.xls'!ScopeF3bis"
End Sub
Sub MàJtotale()
'
' MàJtotale Macro
' Macro enregistrée le 07/08/2012 par FX562118
'

'
Application.ScreenUpdating = False
Sheets("Scope-Saving actuels").Select
Application.Run "'Maquette Plan de prod.xls'!MàJ2"
Sheets("Scope-Saving futurs").Select
Application.Run "'Maquette Plan de prod.xls'!MàJScopeF"
Sheets("Acceuil").Select
End Sub


Merci,

Florian
 
Vote positif 0 Vote négatif
phlaurent55

phlaurent55

Nous a quittés en 2020
Repose en paix
Re : VBA Problème de macro en changeant le nom du fichier

Re,

Désolé mais la vue de ce code ne me donne pas envie de tenter d'essayer de le comprendre sans voir le (les) fichier(s)

une astuce pour passer outre les erreurs est de placer: On Error Resume Next dans le code mais je suis certain que le problème ne sera pas solutionné avec cela
J'ai crée des macro par intuitions et lorsque je change le nom de mon fichier, les macros ne fonctionnent plus
Cliquez pour agrandir...
il serait peut-être nécessaire de paramétrer le nom de fichier dans les instruction: Application.Run "'Maquette Plan de prod.xls'!Scope1"
L'erreur vient probablement du fait que le nom: Maquette Plan de prod.xls n'est plus le même ou est inexistant

....... mais sans vue d'ensemble pour pouvoir cerner le problème, je ne serai pas d'une grande utilité

à+
Philippe
 
Vote positif 0 Vote négatif

Discussions similaires

F
  • Résolu(e)
XL 2021 Créer Macro permettant d'indexer des nouveaux clients ? [Résolu]
4 5 6
Réponses
82
Affichages
2 K
fanou06
F
L
  • Question
XL 2016 Macro et suppressions de lignes
Réponses
9
Affichages
607
fanfan38
fanfan38
R
  • Question
Microsoft 365 [RESOLU] Mail multi destinataires avec vba
Réponses
11
Affichages
776
romubzh35
R
Usine à gaz
  • Résolu(e)
Microsoft 365 compter le temps passé sur une ligne et cumuler tous les temps passés
2
Réponses
17
Affichages
1 K
Usine à gaz
Usine à gaz
M
  • Résolu(e)
XL 2016 Pb avec code VBA
Réponses
10
Affichages
1 K
MickaeL_D
M
Usine à gaz
  • Question
Microsoft 365 Recherche Find : impossible dans lignes masquées par le filtre
2 3
Réponses
38
Affichages
3 K
Usine à gaz
Usine à gaz
D
  • Question
XL 2013 Macro VBA conversion fichier tsv en csv
2
Réponses
22
Affichages
3 K
Robert
Robert
J
  • Question
XL 2019 Borné une extraction par date
2
Réponses
22
Affichages
2 K
jui42
J
Usine à gaz
  • Question
Microsoft 365 Recherche dans tout le classeur de youky(BJ)
Réponses
6
Affichages
909
Usine à gaz
Usine à gaz
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
1 K
AtTheOne
AtTheOne

Membres actuellement en ligne

14 membres et 131 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 209
Messages
2 086 271
Membres
103 168
dernier inscrit
isidore33