Cette idée du stockage de composants d'applis est-elle utile?

[YANN-56]

Bonjour à ceux qui passeront par là et prendront la peine de regarder,

Ce n'est qu'un test pour savoir si cela fonctionne chez vous...
(Les victimes de la mise à jour de 2010 seront mal barrées, car il y a des ListView)

Mode d'emploi important, car tout n'est pas automatisé!
1) A l'ouverture du Classeur => Sélectionner le Dossier "MES_CODES", et seulement!
2) A l'ouverture de l'USF; choisir "Ajouter un enregistrement"*
(La base de données étant vide; il faut l'alimenter)
3) Tout fermer, et manuellement dans un des Sous-dossiers ouvrir un ".FRM" avec => "MFC WORDPAD"
(Inutile de cocher la case "Toujours utiliser", mais cette démarche est indispensable)

A la réouverture de "OUTILS_VBA" le chemin de stockage ne sera plus demandé (Sauf si vous l'avez déplacé)

* Je joins ici une vielle application copieuse qui pourrait vous servir comme objet de pompage pour le test:
http://cjoint.com/?BFvr2E05V2s

Si la bidouille vous semble utile ou non, mérite d'être peaufinée ou non: Merci de me le dire.
L'ajout de multiples autres fonctions est possible, mais c'est moins marrant quand on ne le fait que pour soi!
Amicalement,

Yann

 

[Compte Supprimé 979]

Re : Cette idée du stockage de composants d'applis est-elle utile?

Salut Yann,

Désolé pour toi, mais je n'ai rien compris à la manip. !?

1) A l'ouverture du Classeur => Sélectionner le Dossier "MES_CODES", et seulement!​

Comment, rien ne me le demande !?

2) A l'ouverture de l'USF; choisir "Ajouter un enregistrement"*​

(La base de données étant vide; il faut l'alimenter)​

Oui, mais là il me demande un fichier "*.*"

3) Tout fermer, et manuellement dans un des Sous-dossiers ouvrir un ".FRM" avec => "MFC WORDPAD" ​

​

(Inutile de cocher la case "Toujours utiliser", mais cette démarche est indispensable)​

Pour quoi faire ?

A+

 

[YANN-56]

Re : Cette idée du stockage de composants d'applis est-elle utile?

Merci Bruno d'avoir regardé,

Je vais tout vérifier, car peut-être me suis-je trompé de Fichier!

A plus tard,

Yann

 

[YANN-56]

Re : Cette idée du stockage de composants d'applis est-elle utile?

Je viens de découvrir une erreur grâce à toi.

Il y a un Antislash qui n'a rien à faire dans la propriété "Mots-Clés" du Classeur "OUTILS_VBA" !!!

Il faut donc le supprimer. Il fiche le bordel! .... Je sais d'où cela vient, et je vais rectifier.

A plus tard, si tu repasses par là,

Yann

 

[YANN-56]

Re : Cette idée du stockage de composants d'applis est-elle utile?

Bonjour à ceux qui passeront par là,

Bonjour Bruno.

Comment, rien ne me le demande !?
..............................
Oui, mais là il me demande un fichier "*.*"

L'erreur vient de la fermeture prématurée de la boite qui doit demander la recherche du Dossier "MES_CODES" ..... d'où cet antislash résiduel que j'ai oublié dans mon exemple!

Le but est d'avoir dans la propriété "Mots-Clés" du Classeur 'OUTILS_VBA" le chemin ainsi:
C:\Documents and Settings\Propriétaire\Bureau\MES_CODES\ (A adapter, bien évidemment)

Ayant la flemme de rectifier mon code " Workbook_Open" Autant le faire manuellement!!!

Pour quoi faire ?

Comme les fichiers ".FRM" ne sont pas associés par essence à WORDPAD,
il y aura donc plantage à la demande de lecture si cela n'a pas été fait. (Là encore, j'ai la flemme d'adapter)

Merci beaucoup à toi pour ton aide, qui s'avère, encore une fois bien utile.

Amicalement,

Yann

 

[Staple1600]

Re : Cette idée du stockage de composants d'applis est-elle utile?

Bonsoir à tous

Belle appli à première vue
Bravo Yann

Un seul truc me chagrine
Cette proc non signalée (cf la charte du forum)
Private Sub Workbook_Open()

Quand à savoir si c'est utile, la réponse est dans la question

 

[YANN-56]

Re : Cette idée du stockage de composants d'applis est-elle utile?

Merci pour ta réponse Jean-Marie,

Effectivement, ce "Private Sub Workbook_Open()" est malvenu!

D'autant que j'exècre aussi que l'on me l'impose.... Désolé! Le Bouton de la Feuille aurait suffit!

Quand à savoir si c'est utile, la réponse est dans la question

La mienne serait "Non" s'il n'y avait pas cette possibilité de venir voir où l'on à déjà utilisé:
" GetDetailsOf, Namespace, InStrRev, Controls.Add("Forms…….1", , True, LoadPicture… Et c. "
Comme de récupérer la tronche d'un contrôle avec son image.

Je suis généralement incapable de construire spontanément un code.
Il m'est donc confortable de retrouver facilement, par des mots-clés, ceux qui m'ont demandé des heures,
les copier, et les adapter au cas présent.

C'est donc un outil fait pour les bordeliques à petite mémoire et par trop au top du VBA, comme moi.

Il me permet aussi de balancer des applis qui ne servent plus, tout en aillant sauvegardé certains trucs intéressants.

J'ai été bien heureux de t'entendre, et te renouvelle mon Merci,

Amicalement,

Yann

 

[Staple1600]

Re : Cette idée du stockage de composants d'applis est-elle utile?

Re

Ce que je voulais simplement dire c'est que pour moi une idée est toujours utile en soi.

C'est ne pas avoir d'idées à soumettre ou à partager qui peut ne pas être utile.

Une suggestion en passant à propos de ceci:

Private Sub GROUPE_IMAGES_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 'AGRANDIR L'IMAGE
ShellExecute 0, "open", "rundll32.exe", _
"C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen " & GROUPE_IMAGES.Tag, 0, 1
End Sub

Pour trouver à coup sur où est system32 (On ne jamais j'ai déjà vu des PC avec des D:\Windows)

Sub test()
Dim s$
s = Split(Environ(5), "=")(1)
MsgBox Mid(s, 1, InStrRev(s, "\"))
End Sub

 

[YANN-56]

Re : Cette idée du stockage de composants d'applis est-elle utile?

Bonjour Staple1600,

J'avais effectivement en l'idée cet éventuel problème. (Voir le "P.S." dans ce Post:

http://www.excel-downloads.com/forum/183602-stocker-dans-un-dossier-tous-les-composants-de-ses-applis-pour-recherches-ulterieures-6.html#post1150237

Je constate avec plaisir que tu as regardé de près ma bidouille,
et suis conscient de ce temps que tu m'as offert.....C'est très sympa!
D'autant que tu me fais le cadeau d'une méthode efficace. "x: " et non "C:"

L'avis d'un "Pro" est un peu ce que souhaitais en lançant cette discussion, et je suis bien servi!

C'est ne pas avoir d'idées à soumettre ou à partager qui peut ne pas être utile

C'est bien dit, et entre vraiment dans l'esprit de partage de XLD.
Raison pour laquelle j'avais ajouté à la rédaction de ma question:

"............, mais c'est moins marrant quand on ne le fait que pour soi!"

Outre ta connaissance, tu m'as apporté beaucoup pour mon moral.

Amicalement, et encore Merci,

Yann

 

[eriiic]

Re : Cette idée du stockage de composants d'applis est-elle utile?

Bonjour à tous,

J'ai voulu tester mais trop d'erreurs pour porter un jugement.


Au début j'ai mis le fichier + les répertoires dans D:\tmp, 'mes codes' n'apparaissent pas.
Le 1er écran propose 7 répertoires, on ne sait pourquoi ceux-là (?), mais pas 'mes codes'. Pas plus en utilisant 'dresser la liste'

Je déplace l'ensemble sur D:, pareil.
Je remet 'mes codes' dans D:\tmp, 'mes codes' apparaissent enfin. Dans une grande liste de répertoire ne contenant pas forcément des fichiers excel....

Je sélectionne le fichier exemple (qui s'ouvre et plante), je recherche if et ça plante.
Dans Private Sub Label1_Click() 'LE CHIEN sur :
Open Me.ListView2.ListItems(i).Tag For Input As #1
Me.ListView2.ListItems(i).Tag = "\_Sav avec backup\_Backup"

J'ai arrêté là ;-)



Je voulais surtout intervenir sur :

(Les victimes de la mise à jour de 2010 seront mal barrées, car il y a des ListView)

et signaler ce lien apparu dans une autre discussion : MS12-027: Description of the security update for Office 2010: April 10, 2012 :

Pour résoudre ce problème, supprimez les versions mises en cache des bibliothèques de type contrôle (fichiers Extender) sur l'ordinateur client. Pour ce faire, recherchez sur votre disque dur les fichiers dont l'extension est « .exd » et supprimez tous les fichiers .exd qui s'y trouvent. Ces fichiers .exd seront automatiquement recréés à l'aide des nouveaux contrôles la prochaine fois que vous utiliserez VBA. Ces fichiers Extender se trouvent sous le profil d'utilisateur et éventuellement dans d'autres emplacements, tels que :
C:\documents and settings\nom_utilisateur\Application Data\Microsoft\Forms
C:\documents and settings\nom_utilisateur\AppData\Local\Temp\VBE

eric

 

[YANN-56]

Re : Cette idée du stockage de composants d'applis est-elle utile?

Merci beaucoup Eric d'avoir testé et donné information de ton résultat.

Mais as-tu essayé en mettant simplement le Dossier "MES_CODES" sur ton Bureau?
Sans oublier de virer l'antislash de la propriété "Mots-Clés" du Classeur "OUTILS_VBA"

Comme je l'ai dit précédemment: ma procédure néglige ce genre d'erreur,
et il est donc préférable d'écrire manuellement le chemin de ce Dossier avec "\" dans son Keywords

Si ton Wind est en "D:" voir à modifier la lettre ainsi que l'indique Staple
(Pour l'ouverture en grand des images d'USF)

Quant à la gestion des ListView, en cas d'absence de référence:
Je ne vais pas en ajouter sur ce qu'il est déjà proposé sur XLD
Une solution m'a été suggérée, mais je refuse de venir bidouiller dans la config de l'utilisateur.

Il me fait grand plaisir que tu aies regardé, et j'espère que tu pourras m'en donner plus ample avis.
(Sous réserve que cela finisse par fonctionner chez toi)

Amicalement

Yann