Discussion :

[Stéphanie57]

Bonjour les amis,

Je suis en train de finaliser mon application et j'ai besoin de vos lumières, je m'explique :

J'ai une listbox qui me permets de sélectionner des comptes comptables (exemple alimentation semaine, abonnement internet etc...) j'ai un onglet BDD avec la liste de ses comptes et dans la colonne H j'ai insérée un code relatif aux comptes que je souhaite gérer dans des fichiers annexes (fichier repas pour le compte alimentation semaine, fichier patrimoine pour le compte abonnement internet etc...).

Je souhaite donc par exemple que lorsque je sélectionne le compte alimentation semaine (code 3) qu'il m'ouvre une boite de dialogue qui me pose une question, si oui ou non je souhaite gérer le FICHIER REPAS, si oui le fichier repas s'ouvre. Si je sélectionne le compte abonnement internet (code 1) qu'il m'ouvre une boite de dialogue qui me pose une question, si oui ou non je souhaite gérer le FICHIER PATRIMOINE, si oui le fichier patrimoine s'ouvre.

Je joins le code que j'ai écris mais visiblement ça beugue et les captures d'écran :

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
'ONGLET DEBIT POUR RECHERCHE DU CODE DE LA COLONNE H - ONGLETS REPAS OU AUTRE
 
Private Sub CB_Compte_Debit_1_Change()
Dim Page As Integer
 
  If Me.CB_Compte_Debit_1.ListIndex = -1 Then Exit Sub
  If Me.CB_Compte_Debit_1.List(Me.CB_Compte_Debit_1.ListIndex, 1) = "3" Then
    'Page = Me.CB_Compte_Debit_1.List(Me.CB_Compte_Debit_1.ListIndex, 1)
    'Me.MultiPage1.Value = Page
    If MsgBox("Voulez-vous mettre à jour les tableaux annexes ?", vbYesNo) = vbYes Then
 
   Call OuvrirFichierRepas
 
    If Me.CB_Compte_Debit_1.List(Me.CB_Compte_Debit_1.ListIndex, 1) = "1" Then
    'Page = Me.CB_Compte_Debit_1.List(Me.CB_Compte_Debit_1.ListIndex, 1)
    'Me.MultiPage1.Value = Page
    If MsgBox("Voulez-vous mettre à jour le fichier patrimoine ?", vbYesNo) = vbYes Then
 
   Call OuvrirFichierPatrimoine
 
Else
 
 
  End If
  End If
  End If
  End If
End Sub

[Daniel.C]

Bonjour,

Quelle est l'erreur ?

Tu ferais mieux d'articuler ton code comme suit :

Code :

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

1
2
3
4
5
6
7
8
9
  If Me.CB_Compte_Debit_1.ListIndex = -1 Then Exit Sub
  If Me.CB_Compte_Debit_1.List(Me.CB_Compte_Debit_1.ListIndex, 1) = "3" Then
    'Page = Me.CB_Compte_Debit_1.List(Me.CB_Compte_Debit_1.ListIndex, 1)
    'Me.MultiPage1.Value = Page
    If MsgBox("Voulez-vous mettre à jour les tableaux annexes ?", vbYesNo) = vbYes Then
      Call OuvrirFichierRepas
      Exit Sub
    End If
  End If

[Stéphanie57]

Effectivement votre code fonctionne mieux comme ça par contre le fichier s'ouvre mais j'ai un affichage blanc à l'écran donc pas possible d'entrer dans le fichier et de le mettre à jour.

Ci-joint capture d'écran

[Stéphanie57]

Je crois savoir où est le problème, en faite, c'est parce que l'userform qui me permet de sélectionner les comptes reste ouvert, lorsque je ferme cet userform le fichier est accessible, par contre je ne peux plus revenir sur la saisie initiale donc un peu embêtant...

[Stéphanie57]

Problème résolu, j'ai relancée excel et j'ai re-testée, tout fonctionne à merveille, merci pour le coup de main.

Stéphy