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