Discussion :

[mickael99]

Bonjour.

Je voudrais savoir comment je pourrais tester si une CustomDocumentProperties existe.

J'ai besoin d'acceder a une propriete de mon fichier Excel, mais elle n'est pas forcement toujours declarée. Il faudrait donc que je test s'il elle existe car pour le moment, mon prog plante si elle n'est pas mise.

J'ai essayé avec IsEmpty, IsNull, <> "", ... mais rien n'y fait ... des qu'il voit

Code :

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

F.CustomDocumentProperties("blabla")

il plante....

merci d'avance !

[ouskel'n'or]

N'est-ce pas BuiltinDocumentProperties qu'il faut utiliser ?

Extrait de l'aide

BuiltinDocumentProperties : Renvoie une collection DocumentProperties qui représente toutes les propriétés de document prédéfinies du classeur spécifié. En lecture seule.

Remarques

Cette propriété renvoie la collection entière des propriétés de document prédéfinies. Utilisez la méthode Item pour renvoyer un seul membre de la collection (un objet DocumentProperty) en spécifiant soit le nom de la propriété soit l'index de la collection (sous forme de numéro).
Vous pouvez faire référence aux propriétés de document soit par index soit par nom. La liste suivante affiche les noms des propriétés de document prédéfinies disponibles :

TitreSujet
Auteur
Mots-cléCommentairesModèleDernier auteurNombre de révisions Nom d'applicationDate de la dernière impression Date de créationHeure du dernier enregistrement Durée totale de modification Nombre de pagesNombre de motsNombre de caractères SécuritéCatégorieFormatResponsable SociétéNombre d'octets
Nombre de lignes
Nombre de paragraphesNombre de diapositives Nombre d'annotationsNombre de diapositives masquéesNombre de clips multimédia Lien hypertexte de baseNombre de caractères (avec espaces)
Les applications conteneurs ne sont pas nécessaires pour définir les valeurs de toutes les propriétés de document prédéfinies. Si Microsoft Excel ne définit pas une valeur pour une des propriétés de document prédéfinies, la lecture de la propriété Value de cette propriété de document génère une erreur.
La méthode Item étant la méthode par défaut pour la collection DocumentProperties, les instructions suivantes sont équivalentes :

BuiltinDocumentProperties.Item(1)
BuiltinDocumentProperties(1)

Utilisez la propriété CustomDocumentProperties pour renvoyer la collection des propriétés de document personnalisées.

A+

[AlainTech]

Une petite fonction:

Code :

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

1
2
3
4
5
6
7
8
9
Function PropertyExists(strPropertyName As String) As Boolean
  Dim oProperty As DocumentProperty
  For Each oProperty In ThisWorkbook.CustomDocumentProperties
    If oProperty.Name = strPropertyName Then
      PropertyExists = True
      Exit Function
    End If
  Next oProperty
End Function

Et son appel:

Code :

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

1
2
3
4
5
6
7
Sub test()
  If PropertyExists("blabla") Then
    MsgBox "Existe"
  Else
    MsgBox "N'existe pas"
  End If
End Sub

Edit --> J'ai écrit la fonction en VBA dans le classeur. Yapluka adapter pour VB

[mickael99]

non, c'etait bien CustomDocumentProperties qu'il fallait utiliser car c'est une propriete personalisée... j'avais peut etre oublie de le dire ^^.

mais c'est bon, je me suis debrouillé comme ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub Verif()
    Dim propertie As DocumentProperty
    Dim F As Workbook
    Set F = ActiveWorkbook
 
    For Each propertie In F.CustomDocumentProperties
        If propertie.Name = "blabla" Then
            MaFonction
        End If
    Next propertie
 
End Sub

et la ca marche niquel !! merci quand meme.

Edit --> Merci AlainTech, c'est exactement ce que j'avais trouvé, mais je n'avais pas vu ton message, mais je vais m'en inspirer.... Merci de l'aide les gars !