garder en memoire un textbox

[gege21]

re-bonsoir

j'ai un code qui me garde en mémoire le contenu d'un texebox
qui marche très bien

sauf que quand je le retranscrite dans mon code sa marche plus et me fait une erreur
"type défini par l'utilisateur non défini"

 

[Paritec]

Re : garder en memoire un textbox

bonsoir Gege21, le forum
tu as un code qui garde en mémoire et qui marche très bien ( tu aurais du ajouter par pur hasard car vu ton code!!!)
voilà ton fichier modifié
a+
papou🙂

 

[Pierrot93]

Re : garder en memoire un textbox

Bonjour gégé, Papou

essaye comme ceci, dans le module de l'usf :

Private Sub CommandButton1_Click()
A = TextBox1
Application.OnTime Now + TimeValue("00:00:01"), "test"
Unload Me
End Sub

dans un module standard :

Public A As String
Sub test()
ThisWorkbook.VBProject.VBComponents("UserForm1").Designer.Controls("TextBox1").Text = A
End Sub

bonne journée
@+

 

[gege21]

Re : garder en memoire un textbox

bonjours Paritec,Pierrot93

paritec

tu aurais du ajouter par pur hasard car vu ton code!!!

vu que tu a l'air sceptique sur le code d’origine le voici 😛
en plus si je ferme excel et je le rouvre plus rien 😕 sa marche pas non plus

pierrot93
merci pour le bout de code sa marche tres bien

mais je c toujours pas pourquoi une foie transcrite l'autre code sa marche plus 😕😕😕😕

 

[gege21]

Re : garder en memoire un textbox

re bonjours pierrot93

j'ai un petit problème pour enregistre le contenu du textbox se a la fermeture (unload me)
moi je passe par

ActiveWorkbook.Save
Application.Quit

car j'enregistre d'autre chose en même temps
et du coup ton code boc quelle modif faire

 

[Pierrot93]

Re : garder en memoire un textbox

Re

modifie le code du boutaon ainsi :

Option Explicit
Private Sub CommandButton1_Click()
A = TextBox1
With Application
    .OnTime Now + TimeValue("00:00:01"), "test"
    Unload Me
    .Wait Now + TimeValue("00:00:01")
    ThisWorkbook.Save
    .Quit
End With
End Sub

bien que n'aimant pas trop "application quit"... code non testé...

bonne soirée
@+

 

[gege21]

Re : garder en memoire un textbox

re

le code marche très bien
mais quand excel ferme il me demande si je veut enregistre les modification
se qui et inutile vu que c déjà fait
comment faire pour qu'il ne me demande plus rien

 

[Pierrot93]

Re : garder en memoire un textbox

Bonjour,

en lieu et place de :

ThisWorkbook.Save

essaye comme ceci :

ThisWorkbook.Close True

bonne journée
@+

 

[gege21]

Re : garder en memoire un textbox

bonjour,

sa ne marche pas sa enregistre plus et sa ne ferme que l'userform
se que je voudrai c enregistre et ferme entièrement excel sans rien me sois demande

bonne journée

 

[Pierrot93]

Re : garder en memoire un textbox

Re,

dans le module de l'usf :

Option Explicit
Private Sub CommandButton1_Click()
A = TextBox1
Application.OnTime Now + TimeValue("00:00:01"), "test"
Unload Me
End Sub

dans le module standard :

Option Explicit
Public A As String
Sub test()
With ThisWorkbook
    .VBProject.VBComponents("UserForm1").Designer.Controls("TextBox1").Text = A
    .Save
End With
Application.Quit
End Sub

 

[gege21]

Re : garder en memoire un textbox

un grand merci pierrot c exactement sa que je voulais