Fichier texte pour stocker certaines variables

Version imprimable

12/03/2009, 11h00
gangsterus

Fichier texte pour stocker certaines variables

Bonjour,

J'ai lu dans un autre sujet qu'il était possible de créer un fichier .text dans lequel stocker certaines variables, notamment, les chemins pour accéder au serveur, des données type TVA, taux horaire,...
Ce qui évite d'avoir à rentrer dans le code pour modifier ces éléments.
Je travaille actuellement sous excel 2003 et bientôt certainement excel 2007.
J'ai créé un trentaine de fichiers utilisés en même temps par des utilisateurs toute la journée. Dans chaque fichier est enregistrée la macro. Cette macro utilise des fichiers word (il existe donc des chemins absolus dans mon code) et des taux susceptibles de changer.
Je souhaite donc savoir concrètement comment utiliser des variables stockées dans un fichier .text susceptible de changer d'emplacement?
Je suppose que dans le fichier text, il faut saisir par exemple:
NomServeur = U:\Serveur1\Stocks\

Mais ensuite, quel code utiliser pour aller chercher la valeur de cette variable?

Merci par avance

pour ce qui est de "stocker des variable dans un fichier texte" disont qu'en réalité tu lit le fichier texte tu copie les valeur lu dans des variable puis tu utilise c'est variable là.

Voila comment j'utilise mes fichier texte (ou .dat la plupar du temps, mais ca ne change rien)

Pour créer un fichier dans lequel tu écrit
Code:

1 2 3 4 Open "U:\Serveur1\Stocks\Fichier1.dat" For Output As #1 's'il existe déjà il est éffacé et remplacé Print #3, "ton texte" 'pour écrire Print #3, variable1 'pour une variable Close #1 pour le fermer
Pour lire un fichier
Code:

1 2 3 Open "U:\Serveur1\Stocks\Fichier2.txt" For Input As #1 Line Input #1, ligne 'pour lire une ligne personnellement jutilise toujours la variable ligne en tant que chaine de caractère (string) mais parceque mes données sont formaté close #1
Pour travailler sur plusieur fichier change les numéro #1 pour le premier, #2 pour le suivant......

Bonjour,
pour ce genre d'usage je préfère les finiers .INI, cars ils ont l'avantage de pouvoir nommer les variables et les groupes de varibales et donc de pouvoir addresser directement la variable à lire ou écrire, sans devoir lire un fichier .txt séquentiel au complet.

Exemple de code dans un module

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
 
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _
    (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, _
    ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
 
 
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" _
    (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, _
    ByVal lpFileName As String) As Long
 
Private Function EcritDansFichierIni(Section As String, Cle As String, _
                                     Valeur As String, Fichier As String) As Long
EcritDansFichierIni = WritePrivateProfileString(Section, Cle, Valeur, Fichier)
End Function
 
Private Function LitDansFichierIni(Section As String, Cle As String, Fichier As String, _
    Optional ValeurParDefaut As String = "") As String
 
Dim strReturn As String
strReturn = String(255, 0)
GetPrivateProfileString Section, Cle, ValeurParDefaut, strReturn, Len(strReturn), Fichier
LitDansFichierIni = Left(strReturn, InStr(strReturn, Chr(0)) - 1)
 
End Function

Pour lire le fichier Applic.ini, section [Serveurs], key=NomServeur

Code:

1
2
3
4
5
 
 
id_file = "C:\Data\Applic.ini"
 
key1 = LitDansFichierIni("Serveurs", "NomServeur", id_file, 100)

Pour écrire le fichier applic.ini, section [Serveurs], key=NomServeur

Code:

1
2
3
key1 = "U:\Serveur1\Stocks\"
id_file = "C:\Data\Applic.ini"
EcritDansFichierIni "Notes", "NomServeur", key1, id_file

13/03/2009, 11h32
gangsterus

Merci pour cette réponse,

Est-ce que cette manipulation ralenti l'exécution de la macro?
Concrètement, mes utilisateurs ont chacun leur fichier. Lorsqu'ils cliquent sur un bouton dans la feuille excel, celà affiche un formulaire avec des données (des taux en l'occurence) dans une liste déroulante. Ces taux sont susceptibles de changer, c'est pourquoi je souhaite modifier le système.
Cependant, si à chaque affichage du formulaire celui-ci met un peu de temps à s'afficher car il va chercher l'info dans un fichier texte, c'est problématique.

Est-ce le cas?

Merci par avance pour la réponse

Merci pour les exemples. En ce qui concerne les fichiers .INI, comment les créer ?
13/03/2009, 11h45
Godzestla

Création automatique à la première écriture via le code que je t'ai donné.
Cool non ?
13/03/2009, 11h56
gangsterus

Ca a l'air top et ça correspond à ce dont j'ai besoin, mais j'ai du mal à comprendre le code. En effet, je ne comprend pas la différence entre la fonction GetPrivateProfileString et LitDansFichierIni...
Je sais, j'ai encore des progrès à faire en vba et des choses à apprendre.
Gangsterus <= petit scarabée :)
13/03/2009, 12h47
Godzestla

Pas vraiment de different entre les 2 fonctions, à part peut-être l'ordre ou le nombre de paramêtres, mais je n'ai jamais vérifié.

j'ai une fois trouvé ce code quelquepart et tu as raison, il peut certainement être simplifié en utilisant directement le Get....

Mais je ne me suis jamais donné la peine et je l'utilise tel quel :mouarf:
13/03/2009, 15h05
gangsterus

En tout cas merci. Je dois essayer de voir ce que ça donne lundi, donc je reposerai peut-être quelques questions.

A bientôt
13/03/2009, 17h45
Godzestla

N'hésite pas.

Mais tu verras, c'est très simple. ;)