Erreur automation élément introuvable

Bonjour

Je reposte mon message car je ne le trouve nulle part

J'ai une bibliothèque SharePoint avec composée en partie de documents EXCEL

En vue de consolidation de statistiques, je veux exploiter certains de ces documents en utilisant les métadonnées

il y a 4 métadonnées s:

• Le site géographique
• Le type de document
• L'année
• La semaine

J'ouvre le document en lecture seule et avec CONTENTTYPEPROPERTIES je récupère le contenu des métadonnées

Ca fonctionne très bien sauf pour la métadonnée 'Année' qui me renvoie le message 'Erreur automation - élément introuvable'

Ce n'est pas dû à un erreur sur le nom de la métadonnée car j'ai fait un essai et le message renvoyé mais si pas explicite car relatif à une erreur de syntaxe et non de contenu de variable est bien différent

Ce n'est pas dû à un fichier en particulier car l'erreur est systématique

La métadonnée est bien visible et exploitable à partir de SharePoint

J'ai isolé et copié dans un petit tableau TEST le code en question pour faire un essai ciblé et essayer d'identifier sans succès

Le code est le suivant - merci d'avance

Sub ANALYSES_FICHIERS()

chemin = Sheets("PARAMETRES").Range("A1") & "3017 METZ.xlsx"

Workbooks.Open Filename:=chemin, ReadOnly:=True

fichier = "3017 METZ.xlsx"

Workbooks(fichier).Activate

nomfeuille = ActiveSheet.Name

Workbooks("TEST.xlsm").Sheets("TEMP").Range("A1") = nomfeuille

site = Workbooks(fichier).ContentTypeProperties("Site géographique").Value

typdoc = Workbooks(fichier).ContentTypeProperties("Type de document").Value

semaine = Workbooks(fichier).ContentTypeProperties("Semaine").Value

Workbooks("TEST.xlsm").Sheets("TEMP").Range("A2") = site

Workbooks("TEST.xlsm").Sheets("TEMP").Range("A3") = typdoc

Workbooks("TEST.xlsm").Sheets("TEMP").Range("A5") = semaine

annee = Workbooks(fichier).ContentTypeProperties("Année")

Workbooks("TEST.xlsm").Sheets("TEMP").Range("A4") = annee

End Sub

Bonjour,

Je ne dispose pas de méta-propriétés pour tester... mais à ta place je tenterais de lister les noms des metaproperties à fins de vérification...

Cordialement.

Bonjour

C'est aussi ce que je voulais faire

Mais je n'ai pas réussi - je n'ai eu qu'une partie

Quelles sont les bonnes instructions pour avoir la liste des métadonnées ?

Bonjour,

Je n'en sais rien ! Mais j'essaierais ainsi :

    Dim mp As MetaProperty, msg$
    For Each mp In Workbooks(fichier).ContentTypeProperties
        msg = mp.Name & Chr(10)
    Next mp
    MsgBox msg

Cordialement.

Bonjour

Merci pour la tentative de solution mais ça ne fonctionne pas

Il plante sur l'instruction mp.name en disant que la méthode a échoué

Si je mets un ON ERROR RESUME NEXT

Il ne me met qu'un seul message avec ID DE DOCUMENT et ensuite il arrête

Pas grave, de toute façon j'ai une première version où j'exporte la liste des documents sous excel à partir de la bibliothèque

ensuite je copie colle dans un onglet source et je fais une boucle pour ouvrir successivement les différents fichiers

Toutes les métadonnées dont j'ai besoin sont dans les colonnes de cet export

Ca fonctionne - c'est juste moins élégant que ce que je voulais faire

En espérant qu'il n'y a pas d'autre endroit où il y a ce problème