XL 2013 Nom de tableau : existe déjà

roybaf · 24 Octobre 2017

Bonjour à tous,

Dans ma macro j'importe des données externes via requête, je nomme mon tableau en "BD_compta",

Code:

 With Sheets("BD").ListObjects.Add(SourceType:=0, Source:= _
        "ODBC;DSN=dBASE Files;DefaultDir=" & chemin & ";DriverId=533;MaxBufferSize=2048;PageTimeout=5;" _
        , Destination:=Range("$A$1")).QueryTable
        .CommandText = requetea
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = _
        "BD_compta" '"Tableau_Lancer_la_requête_à_partir_de_dBASE_Files"
        .Refresh BackgroundQuery:=False
    End With

Ensuite je transforme en plage et j'ai mes données à traiter.

La première fois que je lance la macro pas de problème, sauf que lorsque je la relance j'ai le message :

"Ce nom existe déjà, utilisez un nom unique"

Lors du commencement de ma macro je test si nom existe, s'il existe alors supprimé.

Code:

If FeuilleExiste(ThisWorkbook, "BD") Then
    Call sup_feuilles
    Call ajouter_feuilles
    ActiveWorkbook.Names("BD_compta").Delete

Je précise que je modifie mon code car je dois adapter à excel 2013, en effet sur excel 2016 tout fonctionne!!

Quand j'ouvre gestionnaire de nom : "BD_compta" n'y est pas... j'en perd mon latin!!

Merci d'avance pour vos retours.

Bebere · 24 Octobre 2017

bonjour
je pense que tu dois employer la méthode unlist
code qui suit à adapter

Code:

Sub DeList()
Dim wrksht As Worksheet
Dim objListObj As ListObject

Set wrksht = ActiveWorkbook.Worksheets("Sheet1")
Set objListObj = wrksht.ListObjects(1)
objListObj.Unlist
End Sub

roybaf · 24 Octobre 2017

Bonjour, merci pour ta réponse.

J'utilise Unlist :

Code:

Sheets("BD").ListObjects("BD_compta").Unlist

Dois-je plutôt mettre quelque chose du genre : Objects("BD_compta")=nothing.... je ne connais pas la synthaxe...

roybaf · 24 Octobre 2017

On dirait que sur la version 2013 même après être passé en plage (Unlist), excel garde en mémoire le nom de l'objet...

Bebere · 24 Octobre 2017

Roybaf
difficile sans un bout de fichier
le problème vient peut être de la différence de version 2016 2013
essaye de copier le tableau(sélection) dans une autre feuille et tu supprimes l'autre

roybaf · 24 Octobre 2017

En fait quand je lance la macro une seconde fois elle s'arrête sur: ListObject.DisplayName = _
"BD_compta", le nom existe déjà alors que je ne l'ai plus dans le gestionnaire des noms.

Je pense que l'objet créer garde en mémoire le nom BD_compta d'ou l'erreur, comment peut on écrire :

BD_compta=nothing

Bebere · 24 Octobre 2017

Code:

Public Sub Essai()
Dim nom, Lobj As ListObject
'Feuil1.ListObjects(1).Name = "BD_COMPTA"
Set Lobj = ThisWorkbook.Worksheets("Feuil1").ListObjects("BD_COMPTA") '
Set Lobj = Nothing'concerne la variable Lobj
'Feuil1.ListObjects(1).Name = "BD_COMPTA"
'nom = Feuil1.ListObjects(1).Name
'Feuil1.ListObjects("BD_COMPTA").Unlist
End Sub

edit si tu changeais sourcetype:=0 par xlSrcRange en début de code

roybaf · 24 Octobre 2017

Merci pour ton aide Bebere, j'ai essayé sans succès.

J'ai changé dans mon code au moment du bug "BD_compta" par "BD_compta2" le tableau c'est bien importé.

J'ai essayé de la relancer et rebelotte le nom existe déjà ! alors que j'ai vérifié avant lancement je n'avais ni "BD_compta" ni "BD_compta2" !!! Sur excel 2016 je n'ai pas de problème pourtant.

Ou sont stockés les noms de listobject??

roybaf · 24 Octobre 2017

Peut-on faire plus simple, par exemple importer les données pas sous forme de tableau mais simplement valeurs?

Bebere · 24 Octobre 2017

menu formules et ensuite gestionnaire de noms
si tu sais tu peux mettre un fichier
pour importer autrement ce doit être possible

XL 2013 Nom de tableau : existe déjà

roybaf

XLDnaute Occasionnel

Bebere

XLDnaute Barbatruc

roybaf

XLDnaute Occasionnel

roybaf

XLDnaute Occasionnel

Bebere

XLDnaute Barbatruc

roybaf

XLDnaute Occasionnel

Bebere

XLDnaute Barbatruc

roybaf

XLDnaute Occasionnel

roybaf

XLDnaute Occasionnel

Bebere

XLDnaute Barbatruc

Discussions similaires