Discussion :

[Elstak]

Salut,

je voudrais mettre dans un label le chemin d'un repertoire.

Code :

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

1
2
3
4
Sub Chemin_Click()
    Menu.Label2.Caption = RechercherDossier("selectionnez un répertoire", 0)
    ThisWorkbook.Save
End Sub

quand je clique sur le bouton, je peux chercher le repertoire, il s'affiche bien dans mon label mais une fois que je referme l'userform, à sa réouverture je retrouve l'ancien caption (j'avais juste mis "h" et je retrouve "h") j'ai donc tenté de save le document mais ca change rien jm'y attendais un peu


une idée là dessus?

[SfJ5Rpw8]

ben non tiens je sais pas comment rendre "retentive" les propriétés d'un contrôle....

un paliatif consisterai à sauver cette donnée ailleurs dans un fichier .ini externe... où une cellule de ta feuille de calcul...

[Elstak]

Menu c'est le nom de mon userform

sinon pour bbil, oui c'est ce que je fais en attendant... je met ce nom dans une cellule de feuille cachée et je le réattribut au caption lors de l'ouverture

mais je pensais qu'un de vous deux me dirait comment on fait en 30 secondes... j'vous ai surestimé

j'ai trouvé que ca d'intéressant :
http://www.developpez.net/forums/att...1&d=1153085733

[ouskel'n'or]

Je me suis énervé (tu m'as) et j'ai trouvé le code qui fonctionne

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
20
21
22
23
24
25
26
Public CaptionLabel
Sub CaptionDuLabel()
CaptionLabel = "PERSO.xls"
End Sub
 
Sub NommerLeLabel()
Dim i, msg
'******************* A déplacer *********
NomLabel = ThisWorkbook.Name 'Tu récupères le nom là où tu le souhaites
'****************************************
msg = "CaptionLabel = " & chr(34) & NomLabel & chr(34)
        For i = 1 To Application.VBE.VBProjects.Count
            On Error Resume Next
            NbModules = Application.VBE.VBProjects(i).VBComponents.Count
            'Nombre d'éléments dans le fichier (modules ou feuilles)
            If Err = 0 Then
                For j = 1 To NbModules
                    If Application.VBE.VBProjects(i).VBComponents(j).Name = "Module1" Then
                        With Application.VBE.VBProjects(i).VBComponents(j)
                            .CodeModule.ReplaceLine 3, msg
                        End With
                    End If
                Next j
            End If
        Next i
End Sub

Reste plus qu'à adapter

[SilkyRoad]

bonsoir

pour modifier "en dur" la propriété d'un objet dans un UserForm (à condition que celui ci ne soit pas en cours d'affichage)

Code :

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

1
2
ThisWorkbook.VBProject.VBComponents("UserForm1"). _
  Designer.Controls("Label2").Caption = "test modif"

bonne soiree
michel

[AlainTech]

mais une fois que je referme l'userform, à sa réouverture je retrouve l'ancien caption

Comment le fermes-tu?
Je ne vois, nulle part, que tu veux garder la donnée après fermeture du classeur.

Donc, un simple Hide (sans Unload) devrait fonctionner.
Pour autant que tu ne fasses pas de réinitialisation sur l'événement Activate.

Pour info, en VBA, les initialisations de formulaires doivent (normalement) se faire dans l'événement Initialize.

[Elstak]

Salut,

alors pour ca, silky:

Code :

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

1
2
ThisWorkbook.VBProject.VBComponents("menu"). _
  Designer.Controls("Label2").Caption = RechercherDossier("selectionnez un répertoire", 0)

j'ai : "l'acces au programme par visual basic n'est pas fiable"

je suis sous excel on est d'accord?


pour alain :

Pour info, en VBA, les initialisations de formulaires doivent (normalement) se faire dans l'événement Initialize.

C'est ce que je fais pour le moment, dans initialize je prend la valeur que j'ai stockée dans une feuille cachée et je l'affecte au caption.

Comment le fermes-tu?

hm, avec la croix?
sinon oui je veux le garder apres reouverture du fichier excel car le chemin devrait etre quasiment toujours le meme (poissible qu'il change une fois en cours de route...)

pour ouskel (je fini par le meilleur ) :

bah merci d'avoir cherché ce code mais là vu sa longueur jprefere ma solution de stockage dans une feuille masquée

si il existe une solution qui resemble à celle de silky (mais qui fonctionne ) là je prend !!

[florent149]

Essaie de cocher l'option "faire confiance au projet visual basic" ou un truc dans le style (j'ai excel en anglais!). Le chemin:

Outils -> Macros -> securite -> 2eme onglet

[Elstak]

Ok pas mal

ca a du marcher.. mais j'ai une autre erreur

erreur, variable objet ou de bloc with non définie.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Chemin_Click()

    
    ThisWorkbook.VBProject.VBComponents("menu"). _
  Designer.Controls("Label2").Caption = RechercherDossier("selectionnez un répertoire", 0)

Call RechercheFichier

ThisWorkbook.Save
    
End Sub

Où est ce qu'il me voit un bloc with lui??
(les noms sont bons)

[ouskel'n'or]

Code :

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

1
2
3
With ThisWorkbook.VBProject.VBComponents("menu").Designer.Controls("Label2")
       .Caption = RechercherDossier("selectionnez un répertoire", 0)
End with

essaie ça


NB - Mais je ne savais pas qu'on pouvait faire ça et j'aurais fait aut' chose pour rechercher le répertoire. Si ça fonctionne, j'aurai appris quelque chose