[VBA-E] Changer le caption d'un label

Salut,

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

Code:

---

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?

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

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

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 :P

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

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

:mouarf:

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

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 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 :langue:

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:

---

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

---

bonne soiree
michel

Citation:

---

Envoyé par Elstak

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.

Salut,

alors pour ca, silky:

Code:

---

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? :P


pour alain :

Citation:

---

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.

Citation:

---

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 :mouarf: ) :

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 :P ) là je prend !!

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

Ok pas mal ;)

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

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

Code:

---

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?? 8O
(les noms sont bons)

Code:

---

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 ;)

Hihi,

avant j'avais l'erreur une fois que j'avais selectionné le repertoire dans l'explorateur et cliqué sur "ok", maintenant je l'ai direct quand je clic sur le bouton qui execute le code !!

merci ouskel pour ce gain de temps :mouarf:

Citation:

---

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

---

jcomprend pas trop? le code de ma fonction RechercheDossier c'est celui que j'ai trouvé dans un de tes posts récents !

bonjour

j'ai indiqué dans mon premier message que l'UserForm ne doit pas être affiché pour que ça fonctionne : Sub Chemin_Click est dans l'UserForm ou dans la feuille de Calcul ?

Si elle est dans l'USF, Utilise un module standard pour afficher l'UserForm en intégrant la procédure de modification du Label

Code:

---

1 2 3 4 5 6 7 8 9 10

Option Explicit   Public maVariable As String   Sub lancementUserForm() Menu.Show   ThisWorkbook.VBProject.VBComponents("Menu"). _ Designer.Controls("Label2").Caption = maVariable End Sub

---

et dans ton UserForm

Code:

---

1 2 3 4

Private Sub Chemin_Click() maVariable = "nouvelle donnee" 'ThisWorkbook.Save End Sub

---

bonne journée
michel

Hop,

c'est bon je m'en sors avec ca :P

merci ;)