Utiliser dans un Userform une données saisie dans

[C15]

Bonjour à tous et toutes,

J'ouvre un fichier en faisant apparître un formulaire pour saisir un prénom avec la procédure suivante

________________________________
Public x As Variant (en Déclarations générales)
________________________________
Public Sub Workbook_Open()

Sheets('Accueil').Select
Form_Prénom.Show
x = Form_Prénom.Prénom.Value

End Sub
________________________________

A la fermeture du fichier j'affiche, par un clic sur un bouton un autre
Userform (Fermeture) dans lequel je voudrais que s'inscrive un message du style :
'Bravo
C15
Vous avez bien travaillé !'

J'ai créé une zone de texte (Prénom2) pour que s'y affiche le prénom saisi dans l'autre formulaire.

J'ai essayé ceci mais cela ne marche pas :
_______________________________
Sub Bouton7_QuandClic()

Sheets('Fin').Select
Range('G15').Select

Form_Fermeture.Show
Form_Fermeture.Prénom2.value = x ' C'est là que cela coince !
End Sub
______________________________

Comment corriger cela ?

Merci de votre aide

A+

C15

 

[Staple1600]

Bonjour

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'avec MsgBox
MsgBox 'Vous avez bien travaillé', vbOKOnly, 'Fermeture'
End Sub


Avec UserForm
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Load Fermeture
Fermeture.Show
End Sub

 

[_Thierry]

Bonjour C15, le Forum

Pas très claires tes explications...

Voilà le principe de base avec Un UserForm1 et une TExtBox1 dedans :

Option Explicit


Private Sub Workbook_Open()
    With UserForm1
        .TextBox1 = 'Bonjour : ' & Application.UserName
        .Show
    End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    With UserForm1
        .TextBox1 = 'Au revoir : ' & Application.UserName
        .Show
    End With

End Sub

A l'ouverure du classeur et à la fermeture de celui-ci tu auras les actions voules...

Bon Aprèm
@+Thierry