CreateNamedRangesExtWbk secondaire ()
'Créer Range appelée en cahier de travail externe
Obscurcir le wb comme cahier de travail
Obscurcir le filePath comme corde
Obscurcir le currentWbk comme corde
filePath = « C:\ »
Application.ScreenUpdating = faux
currentWbk = ActiveWorkbook.Name
Pour I = 1 à 52
Placer wb = Workbooks.Open (filePath et « semaine d'ACA » et i)
Cahiers de travail (currentWbk). Nom de Names.Add : = " coupe la queue " et I, RefersTo : =wb. Feuilles de travail (« TailAvailability »). Gamme (« 6 : $R$204 »)
wb. Faux étroit
Placer wb = rien
Après
Application.ScreenUpdating = rectifient
MsgBox « Ranges appelée ont été placés ! »
Sous-marin d'extrémité
|
