Discussion :

[benjamin.leouzon]

Bonjour,
je suis actuellemnt en train de developpez une application se servant d'excel comme IHM et j'ai une petite question qui me bloque:

mon application charge des fichiers dont le chemin d'acces est défini en "DUR" a l'intérieur du code comme ceci
dim path as string
path="C:\...."

c qui est bien sur tres bof étant donné que les fichiers auront de fortes chances d'être déplacés.
g mis en place une boite de dialogue "parcourir" pour pouvoir cherche le fichier au cas ou.

Ma question est donc:
est-il possible de modifier la valeur d'une variable a l'interieur du code et que cette variable conserve la valeur meme apres fermeture et réouverture? ou y a t-il d'autres moyens (si vous avez bien compris ce que je voulais faire)?


merci.

[ouskel'n'or]

Oui, tu peux faire ça. Je te donne un exemple :

Code :

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

1
2
3
4
5
6
7
8
9
Sub RemplacerLigne()
    msg = InputBox("Entrer le nouveau répertoire avec son chemin complet :" & Chr(13) & "(pour connaître le chemin, utiliser l'Explorateur Windows" & Chr(13) & "Ex : " & "d:\agir\applications\microsoft office\clipart\", "NOUVEAU RÉPERTOIRE", chemin)
    If Not Trim(msg) <> "" Then Exit Sub
    If Not Right(Trim(msg), 1) = "\" Then msg = msg + "\"
    If MsgBox("SOUHAITEZ-VOUS RÉELLEMENT VOUS PLACER DANS LE RÉPERTOIRE " & Chr(13) & "                 " & UCase(msg) & " ? ", 33, "CHANGEMENT DE RÉPERTOIRE") <> vbOK Then Exit Sub
    chemin = msg
    msg = "    Chemin = " + """" + msg + """"
    Application.VBE.CodePanes(2).CodeModule.ReplaceLine 25, msg
End Sub

Remplace le texte placé ligne 25 dans cet exemple

Dans la macro "appelante", prends la précaution de signaler ça :

' ****************** IMPORTANT **********************
'Ne pas déplacer cette macro ni les macros précédentes
'S'il est IMPERATIF de déplacer l'une d'elle,
'********** CONSERVER LE MÊME NOMBRE DE LIGNES AVANT Sub aperçu() ********

Code :

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

1
2
3
4
 
    loup = False
    chemin = "d:\clipart\"
    '               Chemin = ... DOIT RESTER A LA LIGNE 25

A+

[benjamin.leouzon]

top merci..
a bientot

[AlainTech]

Il est quand même plus simple de passer par la registry pour ce genre de paramètres.

[Megaxel]

Je suis assez d'accord avec toi, AlainTech.
Ou par un gentil petit fichier texte...

[ouskel'n'or]

Ok, c'est bien, mais si on transporte l'appli, il faut penser au .txt, sinon, tester sa présence et le créer s'il n'existe pas.
Quant à moi...

A+