Discussion :

[jarod_bx]

Bonjour,

Voici la situation :

je voudrais pouvoir vérifier l'existante d'un objet name dans la collection ActiveWorkbook.names d'un fichier EXCEL.

je m'explique:
j'utilise pour alimenter un fichier Excel depuis ACCESS des noms affectés aux cellules à remplir mais dans certain modèle de fichier, certaines cellules nom de cellule n'existent pas et du coup, l'alimentation de ces cellules doit être ignorée.
C'est pourquoi je voudrais pouvoir vérifier si un nom de cellule existe dans le fichier a remplir.

et c'est là que je bloque! je voudrais utiliser quelque chose comme la méthode find mais elle cela n'est pas disponible dans la collection ActiveWorkbook.names.

es ce quelqu'un aurait une idée de solution :

Cordialement
Jarod

[random]

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Function vnom(nom As String) As Boolean
Dim x As String
On Error GoTo test
x = ActiveWorkbook.Names(nom)
vnom = True
Exit Function
test:
vnom = False
End Function

[Arkham46]

slt,

Code :

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

1
2
3
4
5
6
Public Function NameExists(pWorkBook As Excel.Workbook, pName As String) As Boolean
Dim lName As String
On Error Resume Next
lName = pWorkBook.Names(pName)
NameExists = (Err.Number <> 1004)
End Function

Code :

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

NameExists(ActiveWorkBook,"NomATester")

Renvoie vrai ou faux

[jarod_bx]

slt,

Code :

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

1
2
3
4
5
6
Public Function NameExists(pWorkBook As Excel.Workbook, pName As String) As Boolean
Dim lName As String
On Error Resume Next
lName = pWorkBook.Names(pName)
NameExists = (Err.Number <> 1004)
End Function

Code :

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

NameExists(ActiveWorkBook,"NomATester")

Renvoie vrai ou faux

Excellent Merci

[Arkham46]

lol, je voulais pas corriger ton code random; nos codes se sont croisés :o)