[E-02] Lancement de form ouverture du fichier

Version imprimable

30/01/2009, 09h39
batmat86

[E-02] Lancement de form ouverture du fichier

Bonjour à tous,

Je pense que ma questions va sembler très bête pour beaucoup mais là je sèche.

J'ai réussi à faire tout mon programme en VBA, avec ma form et mon code, grâce au faq et aide de vba. Mon programme fnctionne sans souci lorsque je fais exécuter form.

Ce que je voudrais faire maintenant, c'est lorsque qu'un utilisateur ouvre mon fichier excel, que cela exécute automatique cette form. L'utilisateur lui aura juste à ouvrir pour pouvoir utiliser le programe. Biensur je souhaite pour ma part pouvoir garder la main pour repasser en code afin de faire des mises à jour si besoin ;)

Pouvez vous m'indiquer comment dois je procéder car là c'est vraiment le seul point que je n'arrive pas à faire.

Merci par avance de vos réponses.
30/01/2009, 09h55
ouskel'n'or
Place l'appel à la macro qui ouvre ton userform dans Thisworkbook, macro Workbook_Open -> Deux clics sur l'objet Thisworkbook dans l'éditeur VBA.
Je pense que tu as la macro qui affiche ton userform dans un module standard, sinon crée la.
Dans Thisworkbook :
Code:

1 2 3 Private Sub Workbook_Open() AfficheMonUsf End Sub
et dans le module standard :
Code:

1 2 3 4 Sub AfficheMonUsf() Load MonUsf MonUsf.Show End sub
Bonne journée
30/01/2009, 10h26
batmat86

Bonjour merci de la réponse, cela fonctionne comme cela.

Par contre il me reste certaines choses à régler avant de pouvoir mettre résolu.

Car là oui cela lance bien mon programme à l'ouverture, mais il me dit toujours que ce fichier contient des macros et je dois cliquer sur activer. Est il possible qu'à l'ouverture de mon fichier excel, il n'y est pas cette demande ?

Et deuxième point, il m'ouvre toujours ma feuille1 en fond qui est complétement vide. N'est il pas possible qu'il m'ouvre uniquement mon programme ?

Sinon, non je n'est créé aucun macro à ma connaissance, puisque je ne connais pas les macros.

Désolé encore pour toutes ces questions, mais c'est mon premier développement en VBA. Là je n'ai pas eu trop de mal à coder, car mon programme je l'avais fais builder C++, donc j'ai juste à retrancrire le code donc c'est pas trop complexe.

Merci encore.
30/01/2009, 19h33
ouskel'n'or

Je ne pense pas que tu puisses modifier ça par macro, ce pb dépendant du niveau de sécurité d'Excel (non de VBA) -> Menu Outils dans Excel -> Options -> Onglet Sécurité -> Sécurité des macros. Et là tu prends tes responsabilités en sélectionnant "sécurité faible"
Si tu es sûr d'avoir un bon anti-virus...
Bonne soirée
30/01/2009, 19h48
fred65200
bonjour à vous,

pour masquer Excel, tu peux ajouter

Code:

Application.Visible = False

à l'ouverture du classeur ou de ton fichier.

N'oublie pas de remettre à False dans le BeforeClose du classeur
Code:

1 2 3 Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.Visible = True End Sub
ou du QueryClose de ton USF
Code:

1 2 3 Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Application.Visible = True End Sub
Cordialement
01/02/2009, 23h30
batmat86

Bonjour et merci beaucoup à vous :yaisse2:

Tout est donc ok et mon programme terminé ;)
07/02/2009, 21h49
batmat86

Rebonjour, je reviens vers vous car au final cela fonctionne correctement dans l'utilisation simple du logiciel.

Mais me reste un souci, normalement je dois utiliser une feuille excel que j'ouvre pour remplir après manuellement mon programme et j'ai une autre feuille pour remplir toujours manuellement le résultat.

Hors lors le programme visual basic est lancé, je ne peux ouvrir d'autres feuilles excel même si je ne met pas le code de fred65200.

Auriez vous une idée de comment contourner cette situation ? Merci encore par avance.

bonsoir, je n'ai pas tout relu, mais de ce que j'ai compris, modifie le code d'Ouskel'n'or
Code:

1 2 3 4 Sub AfficheMonUsf() Load MonUsf MonUsf.Show vbmodeless End sub
@+

après lecture rapide, dans le Userform
Code:

1 2 3 4 5 6 7 8 9 Option Explicit Private Sub UserForm_Initialize() Windows(ThisWorkbook.Name).Visible = False End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Windows(ThisWorkbook.Name).Visible = True End Sub
@+

Bonjour, et bien quelle rapidité et d'une efficacité remarquable :king:

Là tout fonctionne à merveille et je peux donc remettre résolu sans souci :yaisse2:

Merci vraiment beaucoup même si je pense que j'aurais de très grosse optimisation de code à faire car voilà par exemple une toute partie de mon code :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
Case "0122  18 KVA ST"
            PrixAbo = Abo18KVA
            PrixHCMoisBleu = PrixHC3
            PrixHPMoisBleu = PrixHP
            PrixHCMoisBlanc = 0
            PrixHPMoisBlanc = 0
            PrixHCMoisRouge = 0
            PrixHPMoisRouge = 0
            'Tout ce qui concerne HC Bleu
            TextBoxDerRelvIntHCBleu.Enabled = False
            CheckBoxRHC1Bleu.Enabled = False
            TextBoxDerRelvReelleHCBleu.Enabled = False
            CheckBoxRHC2Bleu.Enabled = False
            TextBoxAvDerRelvIntHCBleu.Enabled = False
            'Tout ce qui concerne HP Bleu
            TextBoxDerRelvIntHPBleu.Enabled = True
            CheckBoxRHP1Bleu.Enabled = True
            TextBoxDerRelvReelleHPBleu.Enabled = True
            CheckBoxRHP2Bleu.Enabled = True
            TextBoxAvDerRelvIntHPBleu.Enabled = True
            'Tout ce qui concerne HC Blanc
            TextBoxDerRelvIntHCBlanc.Enabled = False
            CheckBoxRHC1Blanc.Enabled = False
            TextBoxDerRelvReelleHCBlanc.Enabled = False
            CheckBoxRHC2Blanc.Enabled = False
            TextBoxAvDerRelvIntHCBlanc.Enabled = False
            'Tout ce qui concerne HP Blanc
            TextBoxDerRelvIntHPBlanc.Enabled = False
            CheckBoxRHP1Blanc.Enabled = False
            TextBoxDerRelvReelleHPBlanc.Enabled = False
            CheckBoxRHP2Blanc.Enabled = False
            TextBoxAvDerRelvIntHPBlanc.Enabled = False
            'Tout ce qui concerne HC Rouge
            TextBoxDerRelvIntHCRouge.Enabled = False
            CheckBoxRHC1Rouge.Enabled = False
            TextBoxDerRelvReelleHCRouge.Enabled = False
            CheckBoxRHC2Rouge.Enabled = False
            TextBoxAvDerRelvIntHCRouge.Enabled = False
            'Tout ce qui concerne HP Rouge
            TextBoxDerRelvIntHPRouge.Enabled = False
            CheckBoxRHP1Rouge.Enabled = False
            TextBoxDerRelvReelleHPRouge.Enabled = False
            CheckBoxRHP2Rouge.Enabled = False
            TextBoxAvDerRelvIntHPRouge.Enabled = False
            'Tout ce qui concerne les histos
            TextBoxHistoHCBleu.Enabled = False
            TextBoxHistoHPBleu.Enabled = True
            TextBoxHistoHCBlanc.Enabled = False
            TextBoxHistoHPBlanc.Enabled = False
            TextBoxHistoHCRouge.Enabled = False
            TextBoxHistoHPRouge.Enabled = False
        Case "0121  15 KVA ST"
            PrixAbo = Abo15KVA
            PrixHCMoisBleu = PrixHC3
            PrixHPMoisBleu = PrixHP
            PrixHCMoisBlanc = 0
            PrixHPMoisBlanc = 0
            PrixHCMoisRouge = 0
            PrixHPMoisRouge = 0
            'Tout ce qui concerne HC Bleu
            TextBoxDerRelvIntHCBleu.Enabled = False
            CheckBoxRHC1Bleu.Enabled = False
            TextBoxDerRelvReelleHCBleu.Enabled = False
            CheckBoxRHC2Bleu.Enabled = False
            TextBoxAvDerRelvIntHCBleu.Enabled = False
            'Tout ce qui concerne HP Bleu
            TextBoxDerRelvIntHPBleu.Enabled = True
            CheckBoxRHP1Bleu.Enabled = True
            TextBoxDerRelvReelleHPBleu.Enabled = True
            CheckBoxRHP2Bleu.Enabled = True
            TextBoxAvDerRelvIntHPBleu.Enabled = True
            'Tout ce qui concerne HC Blanc
            TextBoxDerRelvIntHCBlanc.Enabled = False
            CheckBoxRHC1Blanc.Enabled = False
            TextBoxDerRelvReelleHCBlanc.Enabled = False
            CheckBoxRHC2Blanc.Enabled = False
            TextBoxAvDerRelvIntHCBlanc.Enabled = False
            'Tout ce qui concerne HP Blanc
            TextBoxDerRelvIntHPBlanc.Enabled = False
            CheckBoxRHP1Blanc.Enabled = False
            TextBoxDerRelvReelleHPBlanc.Enabled = False
            CheckBoxRHP2Blanc.Enabled = False
            TextBoxAvDerRelvIntHPBlanc.Enabled = False
            'Tout ce qui concerne HC Rouge
            TextBoxDerRelvIntHCRouge.Enabled = False
            CheckBoxRHC1Rouge.Enabled = False
            TextBoxDerRelvReelleHCRouge.Enabled = False
            CheckBoxRHC2Rouge.Enabled = False
            TextBoxAvDerRelvIntHCRouge.Enabled = False
            'Tout ce qui concerne HP Rouge
            TextBoxDerRelvIntHPRouge.Enabled = False
            CheckBoxRHP1Rouge.Enabled = False
            TextBoxDerRelvReelleHPRouge.Enabled = False
            CheckBoxRHP2Rouge.Enabled = False
            TextBoxAvDerRelvIntHPRouge.Enabled = False
            'Tout ce qui concerne les histos
            TextBoxHistoHCBleu.Enabled = False
            TextBoxHistoHPBleu.Enabled = True
            TextBoxHistoHCBlanc.Enabled = False
            TextBoxHistoHPBlanc.Enabled = False
            TextBoxHistoHCRouge.Enabled = False
            TextBoxHistoHPRouge.Enabled = False

Donc comme vous pouvez le voir, il y a beaucoup de code qui se répéter selon certain cas et me fais beaucoup de copier coller et donc de code. A mon avis c'est optimisable, quoi que ....

En effet, tu peux, optimiser le code sans pour cela l'accélérer
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim Ctrl a&s control 'Tu verrouilles tous les contrôles For each Ctrl in Me.controls ctrl.Enabled = false Next 'avant de déverrouiller ceux que tu veux TextBoxDerRelvIntHPBleu.Enabled = True CheckBoxRHP1Bleu.Enabled = True TextBoxDerRelvReelleHPBleu.Enabled = True CheckBoxRHP2Bleu.Enabled = True TextBoxAvDerRelvIntHPBleu.Enabled = True TextBoxHistoHPBleu.Enabled = True
Mais tu peux aussi créer un tableau de tes contrôles à deux dimensions, une pour le nom, une pour le boolean true ou False.
Ton code sera peut-être plus lisible mais aussi moins rapide.

Mais tu as une autre solution plus mieux sioux qui serait de placer tous les contrôles dont tu veux interdire l'accès dans un ou plusieurs cadre (frame) selon leurs dispositions, cadre dont la propriété borderStyle serait = fmBorderStyleNone afin qu'on ne le/s voit pas.
Tu n'aurais plus alors qu'à mettre une seule fois

Code:

Frame1.enabled = false 'ou True

Bonne nuit