DSO - Propriétés de fichiers Word et Excel

Bonjour,

Je suis en mesure de lire, modifier et créer des propriétés dans d'autres documents Word et Excel que mon fichier Excel contenant la macro.

Cependant, je dois être en mesure de tester si une propriété existe ou pas afin de lancer la bonne commande .add "Ma nouvelle propriété" ou .Item("Ma propriété").Value.

Savez-vous s'il existe un moyen de tester si une propriété existe ?

Ayant de multiples fichiers Word et Excel à modifier et pour chacun une multitudes de propriétés à modifier, votre aide serait bien précieuse.

Précision si besoin : Cela concerne principalement les CustomProperties

J'utilise la bilbiothèque DSO pour cela

Merci à vous,

Cordialement,

Bonjour,

Voici un exemple de fonction pour vérifier si une "CustomDocumentProperties" existe dans un doc :

Function Exist_Property(WDoc As Object, NomP As String) As Boolean
Dim Prop As Object

    Exist_Property = False
    For Each Prop In WDoc.CustomDocumentProperties
        If Prop.Name = NomP Then Exist_Property = True
    Next Prop
End Function

Voir le fichier excel démo pour un exemple de mise en œuvre (pour ajout puis vérif).

Cette démo n'utilise aucune bibliothèque additionnelle.

Pierre

Super, merci Pierre !