Discussion :

[Rob's]

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

[pc75]

Bonjour,

Peut-être en stockant ces infos dans un fichier .INI ou dans la base de registre ?

[Rob's]

Bonjour pc75,

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

Merci

[pc75]

Re,

Un exemple de fichier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Pour écrire le contenu :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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