Discussion :

[zoumzoum59]

Bonjour a tous

je cherche comment enregistrer une variable pour quel reste permanente meme a l'extinction du pc.
l'enregistrer soit dans un fichier soit ailleur.
Quelqu'un pourrait il m'aiguiller car toute mes recherches on ete infructueuse.

Merci d'avance

[SfJ5Rpw8]

ben les solutions sont nombreuses....

tu peu par exemple utiliser un fichier texte :
Comment lire le contenu d'un fichier texte ?
Comment écrire dans un fichier texte ?


Voir aussi base de registre .. avec Wscript.RegWrite ou .RegRead ...

un exemple :

Comment désactiver le gestionnaire des tâches ou la séquence de touches Ctrl-Alt-Suppr ?

[zoumzoum59]

Merci bbil

De m'avoir mis sur la voie de la base de registre.

J'ai solutionné mon probleme avec :

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
18
19
 
Dim WshShell, jour, jj
jj = day(now)
Set WshShell = WScript.CreateObject("WScript.Shell")
On Error Resume Next 
jour = WshShell.RegRead("HKCU\Software\masse\saisie_journaliere\")
if Err <> 0 Then 
WshShell. RegWrite"HKCU\Software\masse\saisie_journaliere\", 0, "REG_DWORD"
End If 
On Error GoTo 0 
jour = WshShell.RegRead("HKCU\Software\masse\saisie_journaliere\")
If jour = jj Then
WScript.Quit
else
Set Xl = CreateObject("Excel.application")
 Xl.Visible = True
 Set Wb = Xl.Workbooks.Open("C:\clas1.xls")
End If
WshShell. RegWrite"HKCU\Software\masse\saisie_journaliere\", jj, "REG_DWORD"

Petit bout de code pour ne lancer le fichier clas1.xls qu'une seule fois au premier demarrage du pc de la journée.