Effacer un nom

[Philippe Gross]

Bonjour à toutes et à toutes.

Je m'arrache les cheveux !!

En effet, l'utilisation de l'instruction

ActiveWorkbook.Names("Exemple").Delete

dans ma sub provoque une erreur.

Pourtant, si je crée une macro avec "créer macro" (et si je supprime manuellement le nom concerné), la macro générée est...

ActiveWorkbook.Names("Exemple").Delete

??????????????????

Merci pour toute réponse.

Philippe

 

[michel]

bonjour Philippe

tu peux tester la macro ci dessous pour supprimer un nom dans le classeur

Sub SupprimerNom()
Dim Nom As Object
Dim Cible As String
On Error GoTo Fin
Set Nom = ActiveWorkbook.Names
Cible = Nom("exemple").RefersToLocal
Nom("exemple").Delete
Exit Sub
Fin:
If Err = 1004 Then MsgBox "La cellule nommée n'existe pas . "
End Sub

bonne journee
michel

 

[Philippe Gross]

Merci beaucoup...
J'essaye de suite...

Philippe

 

[Philippe Gross]

ça ne marche pas...

Cela semble lié au fait que mes noms correspondent à des plages de données externes.

Or, lorsque je consulte la liste des noms du dossier, il apparaît que ces noms sont "attachés" à la feuille

Nom

exemple 'feuil1'
(ils ne sont d'ailleurs visibles que si la feuille concernée est active.

Ta routine marche pour un nom crée au niveau du dossier, mais pas pour ces noms attachés à la feuille.

As tu une idée comment les effacer par une sub ?

Merci

 

[michel]

bonsoir Philippe

as tu la possibilité de placer un fichier zippé sur le forum car je ne vois pas de quelle type de donnees tu parles ?


bonne soiree
michel

 

[Philippe]

Merci pour ton aide....

Tu m'as mis sur la bonne piste et j'ai finalement trouvé : j'essayais d'effacer le nom "TEST" alors qu'il fallait que je précise FEUILLE1!TEST.


Par contre, j'ai un autre problème : j'utilise dans une sub la fonction QueryTables.Add

Pour le paramètre DBQ, j'utilise ActiveWorkbook.Path
pour le paramètre DefaultDir, j'utilise ActiveWorkbook.FullName.

Ca marche, mais parfois (et seulement parfois), en particulier lorsque je copie mon fichier sur certains ordinateurs, il ne trouve pas le fichier de données et fait apparaître la fenêtre de recherche....

Je ne comprend pas pourquoi, et surtout pourquoi cette anomalie ne se produit que parfois et pas toujours.


Merci encore

Philippe