[E-02] Lancement de form ouverture du fichier

**batmat86** · 30/01/2009, 10h39

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.

**ouskel'n'or** · 30/01/2009, 10h55

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_Open()
AfficheMonUsf
End Sub

et dans le module standard :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Bonne journée

**batmat86** · 30/01/2009, 11h26

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.

**ouskel'n'or** · 30/01/2009, 20h33

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

**fred65200** · 30/01/2009, 20h48

bonjour à vous,

pour masquer Excel, tu peux ajouter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Visible = False

à l'ouverture du classeur ou de ton fichier.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Visible = True
End Sub

ou du QueryClose de ton USF

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.Visible = True
End Sub

Cordialement

**batmat86** · 02/02/2009, 00h30

Bonjour et merci beaucoup à vous

Tout est donc ok et mon programme terminé

**batmat86** · 07/02/2009, 22h49

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.

**fred65200** · 07/02/2009, 22h53

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

@+

après lecture rapide, dans le Userform

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

@+

**batmat86** · 07/02/2009, 23h24

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

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ....

**ouskel'n'or** · 08/02/2009, 02h14

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part