Discussion :

[crashtib]

Bonjour à tous,

Je souhaite tester l'existence d'une zonne nommée. Normalement, le parcours classique serait de faire un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not ThisWorkbook.Names("TA_TalonSup_ZoneExport") Is Nothing Then

accompagné d'un mécanisme de récupération d'erreur 1004, soir par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

on error resume next

ce qui est crade et pas pro, soit par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
on error goto GestionErreur
 
GestionErreur:
if err.num = 1004 then
resume next
end if

Le problème c'est que les environnements clients sont configurés sous vista et office 2007, et que tout est configuré pour relever toutes les erreurs sans les gérer par les mécanismes décrits ci-dessus.

Ma question est : existe-t-il un moyen de tester l'existence d'une zonne nommée sans lever d'erreur en cas de non existence?

Merci à tous

[Invité]

Bonjour

Essayes ce bout de code qui devrait t'afficher le nom des plages nommées :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Public Sub TestPlageNommees()
    Dim PlageNommees As Name
 
    For Each PlageNommees In ActiveWorkbook.Names
        MsgBox PlageNommees.Name
    Next PlageNommees
End Sub

Si cela fonctionne à adapter pour faire le test.

Philippe

[BenjGe]

Avec la scripting runtime il y a une façon élégante de le faire.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Function Existe(NomPlage As String)
    dim dico as object
    set dico=createobject("Scripting.Dictionary")
    Dim zone As Excel.Name
    For Each zone In Activeworkbook.Names
        dico.Add Key:=zone.Name, Item:=zone
    Next zone
    Existe = dico.Exists(NomPlage)
    set dico=nothing
End Function

[crashtib]

@Philippe

Propre, parfait, j'ai adapté ta boucle et ça marche impec. Une fois de plus, j'aurai du penser à faire ça avant de demander.

Merci beaucoup.

@Benjile

désolé, je n'y connais rien en scrpting runtime, je ne sais même pas ce que c'est en tout cas merci quand même, à l'occasion je regarderai de quoi il s'agit ça me donnera l'occasion d'apprendre