Discussion :

[patmicro]

Bonjours à tous : Sur un fichier Excel Je recherche une astuce pour ajouter un mot clé aux propriétés d'Excel à partir d'une cellule qui possède un bouton de liste déroulante avec des prénoms. Loïc Denis Pierre etc. dans la cellule F5
L'idée est, lors de l'enregistrement d’ajouter le contenu de F5 comme mot clé afin de pouvoir identifier plus facilement mes différents fichiers.
Par avance merci pour votre aide

Ci joint un morceau de mon code

Code :

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

1
2
3
4
5
6
7
ActiveWorkbook.SaveAs Filename:="H:\Devis\Devis " & Range("B3").Value & " " & Range("B7").Value & ".xlsm"
 
''If MsgBox("ATTENTION ! Etes-vous certain de vouloir valider le contenu de cette feuille ?" & Chr(10) & "Si vous répondez [OUI] la feuille est définitivement classée dans le dossier pour être étudée." & Chr(10) & "Si vous répondez [NON] le cycle est abandonné", 276, "Demande  de confirmation") = vbYes Then
 
Application.Quit
End If
End Sub

[Invité]

Bonjour

As-tu lu ce tuto ? http://silkyroad.developpez.com/VBA/...etesClasseurs/

Philippe

[patmicro]

L'idée c'est ceci comme sur l'image

http://cjoint.com/?0Ermuari7Dw

[clementmarcotte]

Bonjour,

C'est indiqué dans le tutoriel:

II-B. Modifier les propriétés prédéfinies▲


Si vous souhaitez modifier les propriétés par macro, utilisez:


Vba
Sélectionnez

'Modifie les commentaires
ThisWorkbook.BuiltinDocumentProperties("Comments").Value = "Ajout commentaire"

Cela prend juste un peu d'ajustement

Code :

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

1
2
3
Sub prop()
     ThisWorkbook.BuiltinDocumentProperties("keywords") = Range("a1").Text
End Sub

[patmicro]

Merci pour votre réponse ceci fonctionne.
Avec tous mes remerciements