Bonsoir Julie,
En PJ une copie avec la liste déroulante et les bouton d'options opérationnels.
Je pense qu'il y a d'autres points à régler et je reste à ton écoute.
Cordialement.
Sub a()
'affiche les mots-clés du classeur actif
MsgBox ActiveWorkbook.BuiltinDocumentProperties("KeyWords")
End Sub
Sub b()
Dim sFile, oDir
With CreateObject("Shell.Application")
Set oDir = .Namespace("C:\TEMP")
'ici remplacer C:\TEMP par le chemin contenant les fichiers
For Each sFile In oDir.Items
MsgBox "Nom fichier: " & oDir.GetDetailsOf(sFile, 0) & vbCrLf & "Mots-clés: " & oDir.GetDetailsOf(sFile, 18)
Next
End With
End Sub
Re
@Inconnu3
[petite crise d'égotisme]
Juste pour vérification
Quand tu dis : "je vous remercie pour vos réponses précieuses"
tu t'adresses à Papou-net?
Parce que j'ai l'impression d'être légèrement transparent dans ta discussion.
Pas un mot sur les macros que je t'ai soumis...
Accessoirement, moi aussi j'ai passé du temps sur ton fichier...
[/petite crise d'égotisme]
RE
Nouvelle version avec recherche par mots-clés en colonne E opérationnelle.
J'ai "bricolé" une solution pour te répondre plus rapidement, mais je pense qu'il serait bon de piocher dans les propositions de JM. Tant pour satisfaire son égo que pour accélérer éventuellement le traitement par rapport à l'utilisation d'une boucle. J'y regarderai de mon côté à mes moments perdus.
Cordialement.
Bonjour le fil, le forum
@Inconnu3
Tu as testé avec un dossier contenant quels types de fichiers?
Et est-ce que ces fichiers avaient leur balise: mots-clés renseignée?
Chez moi (W10+XL2013), le code proposé fonctionne.
(testé dans un dossier contenant des classeurs Excel avec les mots-clés renseignés)