Discussion :

[wawa4]

Bonjour a tous,

Je sollicite votre aide pour résoudre un problème, je précise que je débute dans le VBA
Je cherche à faire deux SELECT CASE Msgbox (VbYesNo) dans un enchaînement de code mais je pense qu'il y a une erreur de syntaxe... ou bien cela est impossible à faire ?

Voici un résumé 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
 
Private Sub bout_import_Click()
 
If NOMFICH = "" Then
 MsgBox "Pas de fichier a importer !!!", vbOKOnly + vbCritical
Else
 Select Case MsgBox("Un fichier trouvé : Daté du " & Exc_Jour1 & " ", vbYesNo + vbDefaultButton2 + vbInformation, "Validation !!!")
  Case vbYes
 'Ici une action dans le fichier Excel (selection du cellule pour la tester ensuite)
 If IsDate(test_cellule) = False Then
  'Ici une série d'actions dans le fichier Excel (mise en forme colonne etc...)
 
 i = 6
 
Do While xlSheet.Cells(i, 3) <> ""
 'Ici une série d'actions dans le fichier Excel (requete SQL) nom du recordset (RS11)
 If RS11.RecordCount = 0 Then               
 'Ouverture d'une inputbox etc...
 End If
'Ici deux requêtes SQL une SELECT et une INSERT
Loop
 
Else
 
Select Case MsgBox("Le fichier est déjà rentré dans la base" & vbLf & vbLf & "Etes vous sûr de vouloir continuer ?", vbYesNo + vbDefaultButton2 + vbInformation, , "Validation !!!")
 
Case vbYes
'Ici deux requêtes SQL (SELECT et INSERT)
 
Case vbNo
End Select
 
End If
 
Case vbNo
End Select
 
xlbook.Save
xlbook.Close
xlApp.Quit
 
Set xlSheet = Nothing
Set xlbook = Nothing
Set xlApp = Nothing
In_Jour = ""
 
End If
End Sub

Le message d'erreur apparaît à la ligne 25 ( Erreur d’exécution '5': Argument ou appel de procédure incorrect).

J'ai essayé de mettre l’essentiel de mon code, j’espère qu'il sera compréhensible et lisible
Jusqu’à maintenant j'ai toujours réussi à trouver une solution avec des exemples sur le forum mais là je sèche un peu ....
Je reste à votre disposition si vous avez besoin de plus d'explications.

Merci pour votre aide

[f-leb]

bonsoir,

Code :

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

...vbYesNo + vbDefaultButton2 + vbInformation, , "Validation !!!")

une virgule de trop je dirais

[wawa4]

Bonsoir Fabien,

Merci beaucoup ça fonctionne

Rester bloqué aussi longtemps la dessus, parfois c'est sous les yeux et on voit rien.... j'ai limite honte

Sans doute dû un à copier coller.

A+