Question : Macro qui créera 52 gammes appelées autrement identiques, chacun avec un différent nombre au milieu.

J'ai une gamme appelée Tails1 avec cette définition : semaine 24.xls] TailAvailability'!$6 du
Tails1='[ACA : le besoin de $R$204

I un macro qui créera des noms pour les 51 semaines demeurantes de l'année, chacune avec un différent nombre de semaine, par exemple : semaine 2.xls] TailAvailability'!$C$6 du
Tails2='[ACA : semaine 17.xls] TailAvailability'!$6 de $R$204
Tails17='[ACA : $R$204

au besoin je peux retitrer les 9 premiers dossiers avec des nombres à deux chiffres, mais je les maintiendrais plutôt intitulés comme est. (Bien que venu pour penser il, il ferait belle pour le savoir la manière à deux chiffres aussi bien, au cas où quelqu'un d'autre déciderait qu'ils veulent les dossiers tout appelés avec deux chiffres.) le

Thanks, le
John


class= de

Réponse : Macro qui créera 52 gammes appelées autrement identiques, chacun avec un différent nombre au milieu.

APPROUVER, pour placer la gamme appelée à un cahier de travail externe, essayer ce code :

Être sûr de changer le filepath en où vos « ACA cahiers de travail de la semaine X » sont situés dans cette ligne :

filePath = « C:\ »

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 : 19 : 20 : 21 : 22 : 23 : 24 :

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é