Gestion des codes VBA

[MJ13]

Re : Gestion des codes VBA

Bonjour Tototiti

Bravo pour ces 2000 lignes de code .

Il est vrai que je l'avais testé en son début et cela me paraissait un peu compliqué (plein de menus partout, comment commencer, des exemples vides...). Tu aurais pu y mettre quelques exemples concrets pour qu'on puisse rapidement voir les types de codes que l'on peut retrouver.

La, je viens de le tester sur XL2003 et Xl2007. Je n'ai pas vu de gros soucis.

Par contre est-ce que le peu de retour que tu as est du au fait que: si on est débutant, on ne vas pas y comprendre grand-chose et si on est à l'aise avec le VBA, on saura sûrement comment coder facilement en reprenant du code de ses applications ou du net.

Je vais essayer de voir si je peux agrandir la base et si c'est assez simple d'utilisation (c'est la première chose que je demande à un utilitaire ).

Tu as combien de liens dans ta base?

Et si je déplace ou supprime un fichier, je ne pourrais pas retrouver le code?

Mais sinon, cela semble assez performant pour retrouver facilement ses codes ou autres liens.


Bonne continuation .

 

[tototiti2008]

Re : Gestion des codes VBA

Bonjour MJ13,

Tu aurais pu y mettre quelques exemples concrets pour qu'on puisse rapidement voir les types de codes que l'on peut retrouver.

Ben, ce qu'on veut... ça n'est qu'un petite base de données pour s'y retrouver, classer ses codes/tutoriaux/fichiers exemples
Le document Word joint a pour but d'expliquer à peu près les fonctionnalités, mais dis moi s'il n'est pas clair

Par contre est-ce que le peu de retour que tu as est du au fait que: si on est débutant, on ne vas pas y comprendre grand-chose et si on est à l'aise avec le VBA, on saura sûrement comment coder facilement en reprenant du code de ses applications ou du net.

En effet, les débutants ne s'y retrouveront peut-être pas, mais les autres on beau être à l'aise en VBA, ils sont peut-être un peu bordelliques, comme moi

Je vais essayer de voir si je peux agrandir la base et si c'est assez simple d'utilisation (c'est la première chose que je demande à un utilitaire )

Pour la simplicité, à toi de me dire. Pour la taille, je n'ai pas encore classé un nombre énorme de sources donc je ne sais pas à partir de combien de lignes on peut observer des ralentissements

Et si je déplace ou supprime un fichier, je ne pourrais pas retrouver le code?

Il y a un bouton pour vérifier si tous les fichiers de la base existent encore, et donc de faire le point sur les fichiers supprimés/déplacés

Merci de tes remarques

 

[Compte Supprimé 979]

Re : Gestion des codes VBA

Bonjour le fil,
salut Tototiti2008

Il est dommage que tu n'intègre pas l'idée de ConsultantJP
https://www.excel-downloads.com/threads/gestion-des-codes-vba.123898/

Perso, c'est que j'ai fait et je trouve ça très pratique
Plutôt que d'ouvrir le Notepad et d'aller dans le menu fichier -> enregistrer sous, pour enregistrer le code

Tu trouveras sur le post #41 le fichier avec 2 modifs (et les dernières mise à jour)
https://www.excel-downloads.com/threads/gestion-des-codes-vba.123898/

1) je masque le classeur à l'ouverture et je lance l'USF (on n'aime ou pas )

2) Quand tu crées un nouveau code, tu as saisi le nom
le bouton "Ouvrir le bloc note" ouvre en fait un USF avec une zone de texte qui te permet de coller le code et de l'enregistrer automatiquement à la fermeture dans un sous dossier "sources" préalablement créé à la racine du fichier

A+

 

[tototiti2008]

Re : Gestion des codes VBA

Bonjour Bruno,

Je teste ta version et je te reviens

 

[tototiti2008]

Re : Gestion des codes VBA

Bonjour à tous,

@Bruno : en effet, c'est plutôt sympa pour enregistrer facilement des fichiers txt. Comme ça, ça fait une version de plus de mon outil, en fonction des préférences de chacun

Juste une remarque : tu devrais réafficher Excel aussi quand on ferme le Userform principal par la croix (QueryClose). Evidement ça nécessite un dossier sources au même endroit que l'outil (pas testé si ça plante s'il n'existe pas)

 

[Compte Supprimé 979]

Re : Gestion des codes VBA

Salut Tototiti2008

Evidement ça nécessite un dossier sources au même endroit que l'outil (pas testé si ça plante s'il n'existe pas)

Bonne remarque, j'ai donc modifié le code du bouton valider de l'USF "UCreateTxt" pour qu'il n'y est aucun problème

Private Sub BtnValider_Click()
  Dim VPath As String, VPathSource As String
  Dim VPathFic As String, VTexte As String
  Dim SourceName As String, Ind As Integer, TabC() As String
  Dim Attrib As String
  ' Vérifier si le texte a été collé
  If Me.TbMonCode.Text = "" Then
    MsgBox "Aucun CODE à enregistrer !" & vbCrLf _
      & "Merci de bien vouloir coller le code avant de valider.", vbInformation, "ATTENTION ..."
      Exit Sub
  End If
  [COLOR=Blue]' Si OUI, récupérer le nom du code comme nom de fichier
  SourceName = BDGestCode.TBNom
  ' Vérifier que le nom ne contient pas de caractères erronnés
  TabC = Split(""",/,\,*,?,<,>,|,:", ",")
  For Ind = 0 To UBound(TabC)
    SourceName = Replace(SourceName, TabC(Ind), "_")
  Next Ind[/COLOR]
  ' Chemin actuel du fichier
  VPath = ThisWorkbook.Path
  ' Chemin des fichiers SOURCES
  VPathSource = VPath & "\sources\"
 [COLOR=Blue] ' Tester l'existence du dossier source
  On Error Resume Next
  Attrib = GetAttr(VPathSource)
  ' Si n'existe pas, le créer
  If Err <> 0 Then MkDir VPathSource
  On Error GoTo 0[/COLOR]
  ' Chemin + nom complet du fichier
  VPathFic = VPathSource & SourceName & "" & ".txt"
  ' Inscrire le code dans un fichier
  VTexte = Me.TbMonCode.Text
  Open VPathFic For Output As #1
  Print #1, VTexte
  Close #1
  Me.TbMonCode.Text = ""
  ' Inscrire le chemin du fichier
  BDGestCode.TBEmpl.Value = "\Sources\" & "" & SourceName & "" & ".txt"
  ' Fermer l'USF
  Unload Me
End Sub

Fichier du post précédent changé

A+

 

[Staple1600]

Re : Gestion des codes VBA

Bonjour BrunoM45


Je peux te titiller de si bon matin ?

Tu n'aimes pas RegExp ?

Car pour ceci
'

Si OUI, récupérer le nom du code comme nom de fichier
SourceName = BDGestCode.TBNom
' Vérifier que le nom ne contient pas de caractères erronnés
TabC = Split(""",/,\,*,?,<,>,|,:", ",")
For Ind = 0 To UBound(TabC)
SourceName = Replace(SourceName, TabC(Ind), "_")
Next Ind

Il y a ce qu'il faut en plus simple et sans boucle.

Bonne journée à toi, à tous

et bravo à tototiti20008 pour son ouvrage ainsi qu'à ceux
qui lui apporte leurs propres lumières "vbaistes" dans sa tâche

 

[Compte Supprimé 979]

Re : Gestion des codes VBA

Salut Stapple1600,

J'aime bien qu'on me titille de bon matin

Je savais bien que j'avais déjà vu un code magique pour ça ...
Allez hop ... intégration dans ma base de code source

Merci beaucoup

Mes amitiés

 

[david84]

Re : Gestion des codes VBA

Bonjour à tous et à Tototiti,
Pour ton info, j'ai téléchargé ton outil et lorsque j'ai voulu lancer le gestionnaire de codes cela bogue :
"erreur d'exécution 76 chemin d'accès introuvable"
Sub AfficheGest()
'Affiche BDGestCode
BDGestCode.Show est souligné en jaune
End Sub

J'utilise Excel 2007
Y-a-t-il quelque chose que j'ai oublié de faire ?
Cordialement

 

[tototiti2008]

Re : Gestion des codes VBA

Bonjour David84,

le dossier des images (inclues dans le zip) doit se trouver au même endroit que le .xls, dans un dossier images

 

[david84]

Re : Gestion des codes VBA

Re,
merci Tototiti,
j'y suis arrivé en tenant compte de ta remarque.
A+

 

[domy22]

Re : Gestion des codes VBA

Pour tototiti2008,
Bravo et félicitation, cet outil a l'air sympa et pourrait convenir à mon besoin.
Cependant je le teste depuis hier, et ce matin, dans plusieurs arborescences du treeview, des libellés avec des fichiers joint word on disparu.
Ils ont disparu dans le treeview, mais ils semblent toujours être présents dans la table.
Je ne sais pas d'où ça vient.
Si tu a une piste, merci d'avance.
Slt Domy22

 

[Compte Supprimé 979]

Re : Gestion des codes VBA

Salut Domy22,

Jamais eu de soucis avec cette super application de TotoTiti2008

Peux-tu nous joindre le fichier ?

A+

 

[tototiti2008]

Re : Gestion des codes VBA

Bonjour à tous,

Pas trop d'idée non plus comme ça...
As-tu manipulé la liste manuellement ?

 

[domy22]

Re : Gestion des codes VBA

Bon, je remet ma question ici, parce que dans le fil de discussion prévu, ça a l'air plein de toiles d'araignée : il n'y a pas eu de réponse depuis longtemps ...

Bonjour tototiti2008,

Félicitation pour ton outil : il est simple et facilement accessible.
Par contre, en 2 jours j'ai commencé à la chargé avec environ 30 à 40 astuces avec feuilles de code jointe en word, et là, brutalement de matin, certains groupes du treeview ne comprennent plus de libellé en dessous (ils ont disparu) de l'affichage.
Par contre, ils sont toujours dans la liste ...
Ca viendrait de quoi ?
Merci d'avance
Domy22