Discussion :

[Morquea]

Bonjour

J'ai une macro de mise en forme de rapport en Excel généré par un autres logiciel.
Je tente de l'améliorer afin qu'elle ajoute des propriétés de documents personnalisés qui sont ensuite utilisé dans mes en-têtes. Pour l'instant, je crée manuellement ces propriétés.

J'ai ajouté le modèle de code suivant :

Code :

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

1
2
3
4
5
6
With ActiveWorkbook.CustomDocumentProperties
        .Add Name:="CLIENT", _ 
            LinkToContent:=False, _
            Type:=msoPropertyTypeString, _
            Value:="Lorem Ipsum"       
End With

J'utilise "With" car j'ai plusieus "Add". Le modèle ci-haut est inspiré de l'exemple retrouvé dans l'aide de VisualBasic fournit avec le logiciel.

Lorsque que j'active ma macro, je reçois le message : "Erreur Automation" "Erreur non spécifié"

J'aimerais, svp, comprendre ce qui cause cette erreur. C'est aussi la première fois que je rencontre ce type d'erreur.

Système exploitation : Windows XP
Version Excel : 2003
------------------------------------------------------------------------
J'ai essayé avec la syntaxe suivante :

Code :

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

 .Add "CLIENT", False, msoPropertyTypeString, "Lorem Ipsum"

pour obtenir ceci :
"Erreur d'exécution -2147467259 (80004005)':
La méthode "Add" de l'objet "DocumentProperties" a échoué.
--------------------------------------------------------------------------

[Morquea]

J'ai finalement trouvé ma réponse dans un des tutoriels.

http://silkyroad.developpez.com/VBA/...asseurs/#LII-C

Le problème était la définition de l'objet.
L'aide de VBA Excel suggérait "ActiveDocument" =>
Je l'ai remplacé par "ActiveWorkbook", que j'utilise couramment =>
Le tutoriel ci-dessus suggère "ThisWorkbook" =>

Merci à SilkyRoad pour ce tutoriel.

[pgz]

Bonsoir.

Si la propriété existe déjà, l'erreur d'automation renvoyée est celle-là.

Cordialement,

PGZ

[Morquea]

Merci PGZ

Je venais juste d'en faire l'hypothèse.

Bonne journée