Réinitialisation code procédure

[lynyrd]

Bonjour le forum
Peut t'on réinitialiser automatiquement le code de la procédure d'un userform à l'ouverture du fichier ?
Merci.

 

[laetitia90]

Re : Réinitialisation code procédure

re,
essai quand tu ouvres ton fichier avant d'ouvrir ton user
tu ouvres editeur visual basic tu touches rien dedans tu le referme & tu appel ton user
toujours le pb..??

si ca marche on peut tenter
dans ThisWorkbook

Private Sub Workbook_Open()
Application.VBE.MainWindow.Visible = True
End Sub
Private Sub Workbook_Activate()
Application.VBE.MainWindow.Visible = False
End Sub

 

[lynyrd]

Re : Réinitialisation code procédure

Oui la c'est bon,si j'ouvre la fenêtre de l'éditeur avant de me servir de l'userform ca fonctionne.
A+

 

[laetitia90]

Re : Réinitialisation code procédure

re, j'ai modifier le post precedent

 

[lynyrd]

Re : Réinitialisation code procédure

Ca me marque:
Erreur d'exécution 1004
L'accès par programme au projet visual basic n'est pas fiable.
A+

 

[laetitia90]

Re : Réinitialisation code procédure

re, tu es comment au niveau de securite sur tes macros
eventuellent baisser le niveau a faible pas recommande mais bon vu que tu es le createur

 

[lynyrd]

Re : Réinitialisation code procédure

Je suis sur activer toutes les macros

 

[laetitia90]

Re : Réinitialisation code procédure

re
la ligne dessous tu as
Accèes approuvé au modèle d'objet du projet VBA
la c'est coche ??

 

[lynyrd]

Re : Réinitialisation code procédure

Coché ou décoché ca bug dans les 2 cas

 

[lynyrd]

Re : Réinitialisation code procédure

Ca bug toujours mais je n'ai plus le message d'erreur 1004 quand c'est coché

 

[laetitia90]

Re : Réinitialisation code procédure

re , je vois pas bien ce qu'on peut faire sans reflechir plus sur l'userform reduire le nombres de controles ect...le construire differament
c'est dommage avec les codes donnes plus haut cela plante pas chez moi je suis sous vista & excel 2007

on peut faire ce dernier essai voir ce que cela donne par curiosite

dans ThisWorkbook

Private Sub Workbook_Open()
SendKeys "%{F11}", True
End Sub
Private Sub Workbook_Activate()
UserForm1.Show
End Sub

dans user

Dim txt(3 To 368) As New Classe1, i As Long
Sub UserForm_Initialize()
Application.VBE.MainWindow.Visible = False
For i = 3 To 368: Set txt(i).txt = Controls("Textbox" & i): Next i
Label1.Caption = "mode : Recherche"
initialisecombo
End Sub

le reste du code
ect...

 

[lynyrd]

Re : Réinitialisation code procédure

Ca fonctionne
Encore un grand merci à toi pour le temps que tu m'as consacré,c'est vraiment sympas.
Bonne fin d'après midi.
A+