OVH Cloud OVH Cloud

sauvegarde fichier .INI ?!!!

3 réponses
Avatar
pp
bonjour,
comment sauvegarder un paramètre (ex : chemin d'accès à un répertoire) hors
d'une macro et non dépendant d'un xls ?
faut-il en passer par un fichier .INI avec le risque qu'il soit écraser ou
peut-on stocker une information dans MS Excel (fichier .exe) directement ?
par avance merci

3 réponses

Avatar
Clément Marcotte
Bonjour,

Tu peux aussi essayer le registre avec SaveSettings et GetSetting.
Dans ce cas, tu n'a pas de latitude dans le choix de la clef, mais
cela marche.

--
On apprend pas à un vieux singe à faire des grimaces
"pp" a écrit dans le message de
news:
bonjour,
comment sauvegarder un paramètre (ex : chemin d'accès à un
répertoire) hors

d'une macro et non dépendant d'un xls ?
faut-il en passer par un fichier .INI avec le risque qu'il soit
écraser ou

peut-on stocker une information dans MS Excel (fichier .exe)
directement ?

par avance merci





Avatar
pascal1967
on gagne tjs à poser les questions !!
c super ... merci



Bonjour,

Tu peux aussi essayer le registre avec SaveSettings et GetSetting.
Dans ce cas, tu n'a pas de latitude dans le choix de la clef, mais
cela marche.

--
On apprend pas à un vieux singe à faire des grimaces
"pp" a écrit dans le message de
news:
bonjour,
comment sauvegarder un paramètre (ex : chemin d'accès à un
répertoire) hors

d'une macro et non dépendant d'un xls ?
faut-il en passer par un fichier .INI avec le risque qu'il soit
écraser ou

peut-on stocker une information dans MS Excel (fichier .exe)
directement ?

par avance merci









Avatar
MichDenis
Bonjour Pp,


Si tu veux utiliser un fichier texte pour contenir ton information :


'-----------------------------
Sub ÉcrireFichier()
Dim Fichier As String
'Tu choisis où tu veux enregistrer le fichier texte
Fichier = "C:Chemin.txt"

'Écrire le chemin dans un fichier texte
FichierÉcrire ThisWorkbook.Path, Fichier

'Récupérer le chemin du fichier texte
If Dir(Fichier) <> "" Then
MsgBox LireLeChemin(Fichier)
End If
End Sub

'-----------------------------
Sub FichierÉcrire(LePath As String, Fichier As String)

Open Fichier For Output As #1
Write #1, LePath
Close #1

End Sub
'-----------------------------
Function LireLeChemin(File As String)
Dim Texte As String
Open File For Input As #1
Input #1, Texte
Close #1
LireLeChemin = Texte

End Function
'-----------------------------


Salutations!



"pp" a écrit dans le message de news:
bonjour,
comment sauvegarder un paramètre (ex : chemin d'accès à un répertoire) hors
d'une macro et non dépendant d'un xls ?
faut-il en passer par un fichier .INI avec le risque qu'il soit écraser ou
peut-on stocker une information dans MS Excel (fichier .exe) directement ?
par avance merci