XL 2019 Suppression du champ de nom

[Shenzar]

Bonjour,

Je bloque depuis quelques heures et ne trouve pas d'info sur le web

ce code me pose souci :

    Dim url As String, dates As String
    Dim ws As Worksheet, qt As QueryTable, 'connec As WorkbookConnection
   
    Set ws = Sheets(1)
   
    ActiveWorkbook.Connections("Connexion").Delete
   
    ActiveWorkbook.Names("import").Delete
   
    Range("J4:P12").Select
    Selection.ClearContents
   
    dates = Format(Now(), "YYYY-MM-DD")

Je fais une requête qui me donne un tableau de données, mais lorsque que je refais une requête la requete se colle a côter car la plage est pris par une première requête

Donc j'ai eu l'idée de supprimer la connexion et supprimer le champ de la première requête pour la remplace par une nouvelle a chaque clique

Pourr la connexion sa marche bien sa évite d'avoir plusieurs connexion du type connexion, connexion1.........

Mais pour le nom de champ qui se nomme "import" a chaque clique sa me donne import_1, import_2, import_3 même si le code supprime bien le nom de champ "import" mais le remplace par "import_2" etc......

Ce qui créer une erreur lorsque je clique sur la macro nvu qu'elle ne reconnais que "import"

Avait une idée a me proposer ?

Merci à vous

 

[Staple1600]

Bonjour Shenzar, le fil

Avait une idée a me proposer ?

Oui, mais pas une. Seulement deux.
1) Publier la procédure non tronquée
2) Poster un fichier exemple (anonymisé) afin qu'on puisse voir ces fameux noms et tenter de les supprimer lors de nos tests.

 

[job75]

Bonjour Shenzar, JM,

Remplacer :

ActiveWorkbook.Names("import").Delete

par :

Dim nom As Name
For Each nom In ActiveWorkbook.Names
    If LCase(nom) Like "import*" Then nom.Delete
Next

A+

 

[Shenzar]

Bonjour,

Désoler je me suis mélanger les pinceaux

Je fais ça en rentrant en faisant un nouveau fichier anonyme car les datas sur mon fichier sont confidentielles

Merci Job75 je vais testé sa en rentrant, j'avais testé en for each avec LCase mais sous une forme différente, je vais testé t forme et je reviens vers vous

Merci pour votre aide