Workbooks.Name

Bonjour j'essai de mettre le nom de mon classeur selon une liste mais sans succès voici mon code

[code

Sub Copie()

Dim plage As Range

Dim cell As Range

Set plage = Workbooks("T2").Sheets(1).Range("A2", Range("A2").End(xlDown))

For Each cell In plage

ActiveWorkbook.SaveCopyAs (["C:\Users\TREH004\Documents\raccourci\ & plage & "- SI-3958 Excel - Raccourci.xlsm"]) *** ERREUR

Next cell

End Sub

][/code]

Probleme résolu !!

Sub Copie()

Dim plage As Range

Dim cell As Range

Dim Name As String

Workbooks("T2").Activate

Set plage = Workbooks("T2").Sheets(1).Range("A2", Range("A2").End(xlDown))

For Each cell In plage

Workbooks("T2A06761 - SI-3958 Excel - Raccourci").Activate

If Not IsEmpty(cell) Then ActiveWorkbook.SaveCopyAs Filename:=Name

Name = cell.Value & "- SI-3958 Excel - Raccourci.xlsm"

End Sub