[VB6]Ajout dans Combobox

Bonjour,
Je suis entrain de travailler sur un projet où j'ai 2 Form (Principal et Nouveau).
Dans mon Form "Principal" j'ai un combobox (Type de Configuration) et une Commande (Nouveau). Lorsque click sur la commande Nouveau, j'ouvre mon Form Nouveau, où je peux renseigner plusieurs infos. Quand je sauvegarde la Nouvelle configuration, cela m'enregistre toutes les données dans une feuille Excel et je récupère le Nom de cette configuration pour le rajouter dans mon combobox. Mon problème ce que le Nom de la configuration ne reste pas dans mon combobox lorsque je redémarre mon application.

Code du Form "Principal"

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
Option Explicit
Public Excel As Object
Public Classeur As Object
Public Nouv As Boolean
Public TypeConfig As String
 
 
Private Sub Command1_Click()
Nouveau.Nom = ""
Nouveau.Vit = ""
Nouveau.Seuil = ""
Nouveau.Vit1 = ""
Nouveau.Vit2 = ""
Nouveau.Vit3 = ""
Nouveau.Freq1 = ""
Nouveau.Freq2 = ""
Nouveau.Freq3 = ""
Nouveau.EffortComp1 = ""
Nouveau.EffortComp2 = ""
Nouveau.EffortComp3 = ""
Nouveau.EffortDet1 = ""
Nouveau.EffortDet2 = ""
Nouveau.EffortDet3 = ""
Nouveau.FrotO = ""
Nouveau.CourO = ""
Nouveau.Longueur = ""
Nouveau.TolF = ""
Nouveau.TolC = ""
 
Nouveau.Show
End Sub
 
Private Sub Form_Load()
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
Workbooks.Close
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open("C:\Documents and Settings\gregory\Bureau\Gabarit_Effort_Filiaire.xls")
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)
Timer1.Interval = 10
Nouv = False
End Sub
 
 
Private Sub Timer1_Timer()
If Nouveau.Nouv = True Then
Combo1.AddItem (Nouveau.TypeConfig)
Nouveau.Nouv = False
End If
 
End Sub

Code du Form "Nouveau" :

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
Option Explicit
Public TypeConfig As String
Public Nouv As Boolean
 
 
Private Sub Command1_Click()
Dim Message As String
Message = MsgBox("Etes-vous certain de quitter sans sauvegarder !!", vbOKCancel, "Quiter configuration")
If Message = vbOK Then
Nouveau.Hide
End If
End Sub
 
Private Sub EnregistrerConfig_Click()
Dim Message As String
If Nom.Text = "" Then
Message = MsgBox("Veuillez entrer un nom pour cet nouvelle configuration !", 64, "Erreur de saisie")
End If
' Déclare des variables objet pour les objets
   ' Workbook et feuille de calcul de l'application
   ' Microsoft Excel.
   Dim xlApp As Excel.Application
   Dim xlBook As Excel.Workbook
   Dim xlSheet As Excel.Worksheet
   Dim ici As String
   ' Affecte des références d'objet aux variables.
   ' Utilise les méthodes Add pour créer de
   ' nouveaux objets Workbook et feuille de calcul.
   Set xlApp = New Excel.Application
   Set xlBook = xlApp.Workbooks.Open("C:\Temp\MS02\Defaut.xls")
   Set xlSheet = xlBook.Worksheets(1)
 
 
   ' Affecte les valeurs saisies dans les zones de
   ' texte aux cellules Microsoft Excel.
   xlSheet.Cells(3, 3).Value = Vit.Text
   xlSheet.Cells(4, 3).Value = Seuil.Text
   xlSheet.Cells(4, 6).Value = Vit1.Text
   xlSheet.Cells(4, 7).Value = Vit2.Text
   xlSheet.Cells(4, 8).Value = Vit3.Text
   xlSheet.Cells(5, 6).Value = Freq1.Text
   xlSheet.Cells(5, 7).Value = Freq2.Text
   xlSheet.Cells(5, 8).Value = Freq3.Text
   xlSheet.Cells(4, 11).Value = FrotO.Text
   xlSheet.Cells(4, 12).Value = TolF.Text
   xlSheet.Cells(5, 11).Value = CourO.Text
   xlSheet.Cells(5, 12).Value = TolC.Text
   xlSheet.Cells(6, 11).Value = Longueur.Text
   xlSheet.Cells(11, 3).Value = EffortComp1.Text
   xlSheet.Cells(11, 4).Value = EffortComp2.Text
   xlSheet.Cells(11, 5).Value = EffortComp3.Text
   xlSheet.Cells(20, 3).Value = EffortDet1.Text
   xlSheet.Cells(20, 4).Value = EffortDet2.Text
   xlSheet.Cells(20, 5).Value = EffortDet3.Text
   ' Enregistre la feuille de calcul.
   xlSheet.SaveAs "C:\Temp\MS02\" & Nom.Text & ".xls"
 
   ' Ferme l'objet Workbook
   xlBook.Close
   ' Ferme Microsoft Excel à l'aide de la méthode
   ' Quit.
   xlApp.Quit
 
   ' Supprime les objets.
   Set xlApp = Nothing
   Set xlBook = Nothing
   Set xlSheet = Nothing
 
   TypeConfig = Nom.Text
   Nouv = True
   Nouveau.Hide
 
End Sub

Si quelqu'un peut m'aiguiller sur des pistes, de mon côté je continu mes recherche.

Merci A+
Greg

Il faudrait enregistrer tout tes nouveaux noms de config. sur un fichier texte que tu lirais à l'ouverture de ton application. Ainsi tu peux ajouter cette liste à celle déjà contenu dans ton combobox.

Bonjour,

Citation:

De petit rabot

Il faudrait enregistrer tout tes nouveaux noms de config. sur un fichier texte que tu lirais à l'ouverture de ton application. Ainsi tu peux ajouter cette liste à celle déjà contenu dans ton combobox.

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
Private Sub Form_Load()
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel

'ouvrir le fichier texte en lecture
'lire chaque enregistrement
Combo1.AddItem enregistrement 'ajouter dans la combo
'jusque la fin de fichier
'fermer le fichier texte

Workbooks.Close
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open("C:\Documents and Settings\gregory\Bureau\Gabarit_Effort_Filiaire.xls")
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)
Timer1.Interval = 10
Nouv = False
End Sub


Private Sub Timer1_Timer()
If Nouveau.Nouv = True Then
Combo1.AddItem (Nouveau.TypeConfig)
'ouvrir un fichier texte en APPEND (voir dans la MSDN)
'ecrire Nouveau.TypeConfig dans le ficher texte
'fermer le fichier texte
Nouveau.Nouv = False
End If

Merci pour vos réponses, cela marche :ccool:

a+ greg