Soucis avec formulaire excel

[Inconnu3]

merci pour votre aide
Julie

 

[Papou-net]

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.

 

[Inconnu3]

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.

Bonjour Papou,

la liste déroulante et les boutons marchent à merveille.
Effectivement, il a un soucis.
Ce formulaire doit permettre d'afficher tout les caractéristiques du fichier quand on sélectionne un nom de ficher dans la liste déroulante. Hors comme je sélectionne un nom de fichier, ses caractéristiques (lien, année,mots clés) ne s'affichent pas

Merci pour votre aide

 

[Staple1600]

Bonjour le fil, le forum, Papou-net 😉

Pour ce qui concerne les mots-clés
Un petit exemple pour servir de source d'inspiration.

Sub a()
'affiche les mots-clés du classeur actif
MsgBox ActiveWorkbook.BuiltinDocumentProperties("KeyWords")
End Sub

Plus de détails ici:
Ce lien n'existe plus

PS: Il faut évidemment que les balises Mots-clés aient été préalablement remplies dans les classeurs listés pour que cela fonctionne.

 

[Papou-net]

Bonjour Julie,

Comme je le disais, je n'avais pas poussé les recherches plus loin car j'attendais ton avis avant de poursuivre.

Voici donc une copie complétée.

NB: n'ayant pas trouvé ComboBox2 dans le formulaire, j'ai supprimé les lignes concernant ce contrôle.

A +

Cordialement.

Edit: salut JM.

 

[Staple1600]

Re

Ici on récupère les mots-clés de tous type de fichier
(enfin ceux sur lesquels on peut ajoutés des mots-clés)

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

 

[Papou-net]

RE

Comme sur l'exemple en PJ, si ça te convient.

Le menu général s'affiche à l'ouverture et ne peut être masqué (croix de fermeture désactivée). Par contre, il peut être déplacé à volonté pour ne pas gêner la lecture du tableau.

A +

Cordialement.

 

[Inconnu3]

C'est excatement ce qu'il me fallait! je vous remercie papou d'avoir passer du temps sur mon fichier!
par contre le bouton mots clés ne fonctionne pas
Julie

 

[Staple1600]

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]

 

[Papou-net]

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.

 

[Inconnu3]

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]

Bonjour Staple
Non non, je voulais finir le formulaire avant d'attaquer le soucis des mots clés.
je ne savais aussi, ou mettre cette écriture.

Private Sub CommandButton4_Click()
Dim sFile, oDir
With CreateObject("Shell.Application")
Set oDir = .Namespace("E:\vba")
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

il y a un bug au niveau de là (j'ai surligné en gras) quand j'exécute le bouton

 

[Inconnu3]

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.

Merci papou, pour ton investissement

 

[Staple1600]

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)

 

[Inconnu3]

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)

Qu'est ce que vous appelez une balise?

 

[Staple1600]

Re

J'appelle une balise une balise 😉
(accessible dans Fichier/Informations)
(voir ci-dessous)

Donc si on renseigne ici un mot-clé, la macro proposée dans le message#6
permet de la récupérer.

Apparemment ce n'est pas ce que tu souhaitais faire.

PS: Ton dernier message n'a rien à voir avec ta question initiale.
La coutume sur le forum, c'est d'ouvrir une nouvelle discussion pour une nouvelle question