Soucis avec formulaire excel

Inconnu3 · 20 Octobre 2017

merci pour votre aide
Julie

Papou-net · 20 Octobre 2017

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 · 21 Octobre 2017

Papou-net à dit:
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 · 21 Octobre 2017

Bonjour le fil, le forum, Papou-net

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

VB:

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 · 21 Octobre 2017

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 · 21 Octobre 2017

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)

VB:

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 · 21 Octobre 2017

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 · 21 Octobre 2017

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 · 21 Octobre 2017

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 · 21 Octobre 2017

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 · 22 Octobre 2017

Staple1600 à dit:
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 · 22 Octobre 2017

Papou-net à dit:
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 · 22 Octobre 2017

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 · 22 Octobre 2017

Staple1600 à dit:
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 · 22 Octobre 2017

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

Soucis avec formulaire excel

Inconnu3

XLDnaute Nouveau

Papou-net

XLDnaute Barbatruc

Pièces jointes

Inconnu3

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Papou-net

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

Papou-net

XLDnaute Barbatruc

Pièces jointes

Inconnu3

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Papou-net

XLDnaute Barbatruc

Pièces jointes

Inconnu3

XLDnaute Nouveau

Inconnu3

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Inconnu3

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Discussions similaires