Implémenter une console permanente.

Bonjour,

Dans nombre de mes classeurs, j'ai un paquet de macros qui tourne et j'aimerais pouvoir construire une "console", une sortie texte qui permettrait de lire des informations ( rapports de bugs, informations utiles, ou tout simplement output ) de certaines de mes macro.

En gros, j'imagine un userform avec une zone de texte, pas plus compliquer. Cependant, j'aimerais :

1° Que toutes les macro puissent y avoir accès et y écrire : Il faut donc que le module qui la gère soit dans une macro complémentaire sur mon poste, c'est faisable.
2° Avoir un bouton dans mon RIbbonX pour l'afficher, et la cacher ( pas trop dur, via customUI, il faudra juste coder une macro d'affichage du userform ).

3° ( le plus important ) : qu'a la fin de l’exécution d'un Sub, ou a la fin de l’exécution de quoi que ce soit, la valeur ( le texte ) contenu dans la console NE DISPARAISSE PAS. Encore mieux, s'il pouvais être enregistrer en dur pour qu'en fermant et rouvrant excel ça fonctionne ce serais bien.

l'idée est de pouvoir, APRES l’exécution ( réussit ou non ) d'une macro, pouvoir regarder dedans ce qui c'est passer.


J'ai donc le problème suivant : Comment puis-je faire pour que les data que j'inscrit dedans ( la chaîne de caractères en fait), ne s'efface ni a la fin de l’exécution de VBA ( par ex. via le bouton "réinitialiser" de VBE ), ni a la fermeture du fichier excel contenant le code (mon .xlam en fait). Le soucis est de respecter quand même une certaine rapidité d'exécution.


Avez-vous une référence qui ressemblerais a mon idée ? Peut-être des liens qui expliquerais (un peu) comment save des data (texte brut) inconditionnellement ou quoi ?

Merci d’avance.

Bonjour,
le mieux à mon avis serait que toutes tes macros consigne dans un fichier de log, et que ton UsreForm en affiche le contenue!

Code:

---

1 2 3 4 5 6 7

Sub test() FichierLog "C:\test\Test.log", "toto" FichierLog "C:\test\Test.log", "titi"     MsgBox OuvrirFichier("C:\test\Test.log") End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

'Vérifie lexistance d'un fichier Public Function Fichier_Exist(Fichier) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") Fichier_Exist = fso.FileExists(Fichier) Set fso = Nothing End Function     Function AppendTxt(sFile, sText) Dim fso, NewFichier Set fso = CreateObject("Scripting.FileSystemObject") Set NewFichier = fso.OpenTextFile(sFile, 8) NewFichier.Write sText NewFichier.Close Set NewFichier = Nothing Set fso = Nothing End Function Public Sub FichierLog(sFile, txt) Dim FichierLog, fso FichierLog = sFile Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(FichierLog) = False Then EnteteFichier FichierLog AppendTxt FichierLog, txt & vbCrLf Set fso = Nothing End Sub Private Sub EnteteFichier(Fichier) txt = "" Set fso = CreateObject("Scripting.FileSystemObject") Set NewFichier = fso.OpenTextFile(Fichier, 2, True) NewFichier.Write txt NewFichier.Close Set NewFichier = Nothing Set fso = Nothing End Sub Public Function OuvrirFichier(Fichier) Set oFs = CreateObject("Scripting.FileSystemObject") Set oFile = oFs.OpenTextFile(Fichier) OuvrirFichier = oFile.ReadAll oFile.Close End Function

---