Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Gestion des codes VBA

MJ13

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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


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
 
C

Compte Supprimé 979

Guest
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+
 
Dernière modification par un modérateur:

tototiti2008

XLDnaute Barbatruc
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)
 
C

Compte Supprimé 979

Guest
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

Code:
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+
 
Dernière modification par un modérateur:

Staple1600

XLDnaute Barbatruc
Re : Gestion des codes VBA

Bonjour BrunoM45


Je peux te titiller de si bon matin ?

Tu n'aimes pas RegExp ?

Car pour ceci
' 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
 
Dernière édition:
C

Compte Supprimé 979

Guest
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

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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

XLDnaute Barbatruc
Re : Gestion des codes VBA

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

domy22

XLDnaute Nouveau
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
 
C

Compte Supprimé 979

Guest
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

XLDnaute Barbatruc
Re : Gestion des codes VBA

Bonjour à tous,

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

domy22

XLDnaute Nouveau
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 ...

 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…