Je copie un tableau d'un classeur excel à un autre.
Je souhaite, sur le classeur de "destination", supprimer les noms des cellules d'une certaine plage (ces noms sont collés avec le tableau, mais je ne souhaite pas les conserver, et apparemment on ne peut pas copier le tableau sans les noms).
Le code suivant ne fonctionne pas dans mon cas mais je ne comprends pas pourquoi :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub FicheVisa()
    Dim vFile As Variant
    Dim wbCopyTo As Workbook
    Dim wsCopyTo As Worksheet
    Dim wbCopyFrom As Workbook
    Dim wsCopyFrom As Worksheet
 
    Set wbCopyTo = ActiveWorkbook
    Set wsCopyTo = ActiveSheet
 
    Dim rgName As Range, aCell As Range
    Dim nName As Name
 
    For Each nName In wbCopyTo.Names
        Set aCell = Range(nName)
        If Not Intersect(aCell, Range("A12:AT50")) Is Nothing Then nName.Delete
    Next
J'ai une erreur 400 mais ne parviens pas à savoir quel bout de code est en cause ?