Perte d'un emplacement de fichier?

[Aquhydro]

Bonjour,
A la suite d'une fastidieuse recherche pour créer mon premier VBS, plus de force que de grès, j'ai obtenu ceci, qui n'est certes surement pas élégant, mais qui est "presque" fonctionnel, en effet, une partie est un script existant qui me permet d'utiliser un outil de modélisation, le reste je l'ai rajouté pour automatiser la chose.

Malheureusement, dans l'opération j'ai perdu 2(pour l'instant) liens, le premier je l'ai réparé en me replaçant dans la bonne feuille, le second par contre, me pose toujours problème, ou y a t'il une erreur, et quelle est elle selon vous? (je met en gras les deux endroit ou Excel m'en a signaler une, et a coté, en vert, quelques détails.



Sub macro
'
' Runs the executable ******'

'
Set Base = ActiveWorkbook

For i = 1 To 140
For j = 1 To 5
Application.Run "******.xls'!CopierColler"
Range("I3").Select
Windows("en attendant.xlsx").Activate
Range("A3:T701").Select
Range("T3").Activate
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollRow = 653
ActiveWindow.ScrollRow = 652
ActiveWindow.ScrollRow = 650
ActiveWindow.ScrollRow = 648
ActiveWindow.ScrollRow = 644
ActiveWindow.ScrollRow = 642
ActiveWindow.ScrollRow = 637
ActiveWindow.ScrollRow = 629
ActiveWindow.ScrollRow = 621
ActiveWindow.ScrollRow = 611
ActiveWindow.ScrollRow = 602
ActiveWindow.ScrollRow = 591
ActiveWindow.ScrollRow = 575
ActiveWindow.ScrollRow = 562
ActiveWindow.ScrollRow = 548
ActiveWindow.ScrollRow = 535
ActiveWindow.ScrollRow = 522
ActiveWindow.ScrollRow = 509
ActiveWindow.ScrollRow = 493
ActiveWindow.ScrollRow = 476
ActiveWindow.ScrollRow = 450
ActiveWindow.ScrollRow = 422
ActiveWindow.ScrollRow = 396
ActiveWindow.ScrollRow = 367
ActiveWindow.ScrollRow = 338
ActiveWindow.ScrollRow = 312
ActiveWindow.ScrollRow = 286
ActiveWindow.ScrollRow = 260
ActiveWindow.ScrollRow = 237
ActiveWindow.ScrollRow = 211
ActiveWindow.ScrollRow = 183
ActiveWindow.ScrollRow = 162
ActiveWindow.ScrollRow = 139
ActiveWindow.ScrollRow = 118
ActiveWindow.ScrollRow = 97
ActiveWindow.ScrollRow = 77
ActiveWindow.ScrollRow = 60
ActiveWindow.ScrollRow = 43
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 1
Range("A2").Select
ActiveSheet.Paste
Range("C4").Select
Windows("*****.xls").Activate Premier problème qui j'ai résolu car en fait il ne trouvais plus le dossier ensuite, j'ai juste remis dans la bonne fênetre.
workingdir = Range("h24")
ChDir (workingdir)
Range("J12:Q19").Select
Selection.Copy
Set newbook = Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues
Selection.End(xlDown).Offset(1, 0).Select
Base.Activate
If Range("e13").Value > 0 Then
Range("b27").Select
Range(ActiveCell, ActiveCell.Offset(Range("e13").Value - 1, 7)).Select
Selection.Copy
newbook.Activate
Selection.PasteSpecial Paste:=xlPasteValues
Selection.End(xlDown).Offset(1, 0).Select
Base.Activate
End If

Range("B33:I33").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
newbook.Activate
Selection.PasteSpecial Paste:=xlPasteValues
ActiveWorkbook.SaveAs Filename:="*******.csv", FileFormat:= _
xlCSV
ActiveWorkbook.Close SaveChanges:=False
Base.Activate
Range("a1").Select
Shell ("******.bat") Ici, le logiciel me dit qu'il ne retrouve plus le fichier en question, pourtant le fichier est toujours intègre, au même nom, et a la même place, est il possible qu'il y ait quelque chose qui bug dans mon script?
Next j

Application.Wait (Now + TimeValue("1:00:00"))



Next i


End Sub

Merci de votre aide.

Aquhydro