Plage nommée

[TomTom07]

Bonjour à tous

En lançant la macro ci dessous (requete URL ) , cela génère automatiquement une plage nommée à chaque fois , après plusieurs mois d'utilisation , je me suis aperçu que j'avais des milliers de plages nommées ce qui ralenti considérablement les calculs .
Comment éviter cet automatisme ou alors existe-il une commande pour supprimer les plages nommées ?

Sheets("Support").Select
Range("i1").Select
With ActiveSheet.QueryTables.Add(Connection:="URL;" _
& Sheets("Support").Range("i1"), Destination:=Range("x1"))

.FieldNames = False
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = False
.SavePassword = False
.SaveData = False
.AdjustColumnWidth = False
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = False
.WebConsecutiveDelimitersAsOne = False
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With

Merci

 

[CB60]

Re : Plage nommée

Bonjour
Pour effacer les plages nommées:

Sub SuppressionN()
    Dim choix As Name    
    For Each choix In ActiveWorkbook.Names
        choix.Delete
    Next choix
End Sub

edit bonjour Pierrot

 

[Pierrot93]

Re : Plage nommée

Bonjour Tomtom

le code ci dessous te permettra de supprimer toutes les plages de ton classeur :

Option Explicit
Sub test()
Dim n As Name
For Each n In ActiveWorkbook.Names
    n.Delete
Next n
End Sub

par contre si tu n'actualise jamais les données de ta requête, tu peux essayer de la supprimer en fin de procédure, cela aura également pour effet de supprimer la plage nommée (celle créée suite au "add"..

.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
[COLOR="Red"][B].Delete[/B][/COLOR]
End With

bonne journée
@+

Edition : bonjour Bruno, un peu en retard moi... désolé pour la collision.

 

[TomTom07]

Re : Plage nommée

Bonjour

Merci à vous deux , vos solutions fonctionnent parfaitement 🙂
Ce forum est vraiment super 😛

excellente journée

 

[chappyporfaro]

Re : Plage nommée

Bonjour tout le monde,

Permettez-moi de m'imiscer dans ce fil pour une ou deux questions 🙂

J'ai fais un essai en remplaçant ActiveWorbook.Names par ActiveSheet.Names car je ne voulais effacer que les plages de la feuille active. Pour l'essai, j'avais créé 3 plages nommées mais le code n'a effacé que la première plage et rien de plus. Pourquoi? (je travaille sous Excel 2003 🙁)

Aussi, comment redéfinir une plage nommée existante?

Merci

 

[Pierrot93]

Re : Plage nommée

Bonjour,

essaye peut être le code ci-dessous :

Dim n As Name
For Each n In ThisWorkbook.Names
 If n.RefersToRange.Parent.Name = ActiveSheet.Name Then n.Delete
Next n

bonne fin d'après midi
@+

 

[chappyporfaro]

Re : Plage nommée

Bonjour Pierrot93, ça ne fonctionne pas.

J'exécute le code en pas-à-pas et il passe de la ligne "For Each ..." à "End sub" à tous coups.

😕

 

[Pierrot93]

Re : Plage nommée

Re

mets un petit fichier en pièce jointe, cela sera plus facile pour t'aider....

 

[chappyporfaro]

Re : Plage nommée

Bonsoir Pierrot93, bizarrement je l'essaie à la maison en 2007 et ça fonctionne très bien. Mais au travail ça ne fonctionnait pas .... Je vais refaire un essais demain au travail et te reviendrai là-dessus... 😕

Bye

 

[Pierrot93]

Re : Plage nommée

Bonjour,

perso je n'ai pas 2007 et je ne peux donc pas ouvrir ton fichier....

bonne journée
@+

 

[chappyporfaro]

Re : Plage nommée

Bonjour,

perso je n'ai pas 2007 et je ne peux donc pas ouvrir ton fichier....

bonne journée
@+

Bonjour Pierrot. J'ai fais l'essai avec mon fichier de travail et le code ne fonctionne pas (malgré le fait que j'aie accepté les macros) Mais ce fichier est trop volumineux et confidentiel pour le mettre en ligne. Par contre, avec celui que j'ai joint ci-haut ça fonctionne au travail. Je suis bouche bée! 😱)

Alors, j'ai essayé de reproduire le problème dans mon fichier ci-joint convertit en 2003 en tentant de reproduire les conditions de mon fichier de travail (avec des tableaux croisés, etc) mais ça fonctionne ici. Là je suis perplexe.

Je crois que je vais laisser tomber l'idée et effacer les noms à partir du gestionnaire de noms.

Aurevoir

 

[Pierrot93]

Re : Plage nommée

Bonjour,

oui, fonctionne également chez moi avec le fichier joint... pas d'autre solution à te proposer... désolé.

bonne journée
@+