Aide programme vba

Version imprimable

22/10/2013, 07h48
Rob's

Aide programme vba

Bonjour à tous,

Quelqu'un pourrait-il m'aider pour réaliser ceci dans mon programme vba:

* A chaque ouverture du fichier, je voudrai que le nom et la fonction du responsable apparaissent dans les cases "Defaut détecté par..." et "Initailes" sans qu'on les rentre manellement (ce qui se passe actuellement).

* A chaque nouvelles saisies, j'aimerai que l'userform "garde en mémoire" les dernières données saisies.

Quelqu'un aurait une idée pour réaliser ceci?? Car, je ne sais pas du tout comment procéder.

Merci, par avance, pour votre aide.

Rob's
22/10/2013, 08h23
pc75

Bonjour,

Peut-être en stockant ces infos dans un fichier .INI ou dans la base de registre ?
22/10/2013, 09h12
Rob's

Bonjour pc75,

Je ne suis pas un expert en vba donc, pourriez vous me donner un exemple de code svp?

Merci

Re,

Un exemple de fichier :

Code:

1
2
3
 
STARTPROC1 = notepad.exe
CHEMINSOURCE = test\test

Pour écrire le contenu :

Code:

1
2
3
4
5
6
7
8
9
10
 
ConstForWriting = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("LireIni.ini", ForWriting, True)
f.Write "STARTPROC1 = notepad.exe" 
f.Write "CHEMINSOURCE = test\test" 
f.Close
Set f = Nothing
Set fso = Nothing

Pour lire le contenu :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Const ForReading = 1
Dim fso, Fichier, Ligne
Set fso = CreateObject("Scripting.FileSystemObject")
' Ouverture du fichier de données
Str_Fichier = "LireIni.ini"
Set Fichier = fso.OpenTextFile(Str_Fichier, ForReading, False)
Do While Fichier.AtEndOfStream <> True
   Ligne = Fichier.ReadLine
   Egal = InStr(Ligne, "=")
   Variable = Trim(Left(Ligne, Egal - 1))
   Valeur = Trim(Mid(Ligne, Egal + 1))
   MsgBox "la valeur de " & Variable & " est : " & Valeur
Loop
Fichier.Close
Set Fichier = Nothing
Set fso = Nothing