Regroupement de 2 Select Case MsgBox = erreur Type 13

**Bernard67** · 13/02/2012, 08h44

Bonjour le forum,

Je souhaite regrouper 2 select case en 1 seul, mais j'ai un message :
"Erreur d'execution 13, Incompatibilite de type"

1er message

Code :

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

1
2
'Quel est le dernier fichier chargé ?
Select Case MsgBox("Le dernier fichier ABC chargé est celui de : " & DMax("ANNEE", "IMP_ABC") & " - " & DMax("MOIS", "IMP_ABC"), vbOKCancel)

2 message

Code :

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

1
2
3
4
5
6
7
8
9
10
'On verifie l'existance du fichier ABC
Dim Chemin As String
Chemin = "\\Chemin\ABC.csv"
If Dir(Chemin, vbDirectory) > "" Then
 
Select Case MsgBox("Nous sommmes, le " & Format(Date, "dddd dd mmmm yyyy") & vbNewLine & "" _
& "Chemin de stockage" & vbNewLine & "" _
& "" & Chemin & vbNewLine & "Le fichier ABC.csv est présent" & vbNewLine & "" _
& "Voulez vous importer le fichier ABC.csv ?", vbOKCancel, "BDD TESTS")
Case vbOK

Ce qui donne avec le message d'erreur :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim Chemin As String
Chemin = "\\Chemin\ABC.csv"
If Dir(Chemin, vbDirectory) > "" Then
 
Select Case MsgBox("Le dernier fichier ABC chargé est celui de : " & DMax("ANNEE", "IMP_ABC") & " - " & DMax("MOIS", "IMP_ABC"), "" _
& "Nous sommmes, le " & Format(Date, "dddd dd mmmm yyyy") & vbNewLine & "" _
& "Chemin de stockage" & vbNewLine & "" _
& "" & Chemin & vbNewLine & "Le fichier ABC.csv est présent" & vbNewLine & "" _
& "Voulez vous importer le fichier ABC.csv ?", vbOKCancel, "BDD TESTS")
Case vbOK

En vous remerciant pour l'aide que vous pouvez m'apporter, je vous souhaite une bonne journée.

**Jean-Philippe André** · 13/02/2012, 08h47

Salut,

au plus simple, je dirais de passer ici par une variable intermédiaire et de faire le select case dessus

**Bernard67** · 13/02/2012, 08h49

je te remercie pour ta reponse jpcheck, mais je ne comprends pas ce que tu me conseilles.

**Jean-Philippe André** · 13/02/2012, 08h52

En fait je te propose simplement de remplacer ton

Code :

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

Select Case MsgBox'blablabla

par un

Code :

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

1
2
3
Dim reponse as Integer
Reponse = Msgbox 'blablabla
Select Case Reponse:

**Bernard67** · 13/02/2012, 08h57

Merci
Je fais les modifs et je te dis

**Bernard67** · 13/02/2012, 09h13

J'ai toujours le meme message d'erreur, avec ceci de selectionné en jaune :

Code :

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

1
2
3
4
5
Reponse = MsgBox("Le dernier fichier ABC chargé est celui de : " & DMax("ANNEE", "IMP_ABC") & " - " & DMax("MOIS", "IMP_ABC"), "" _
& "Nous sommmes, le " & Format(Date, "dddd dd mmmm yyyy") & vbNewLine & "" _
& "Chemin de stockage" & vbNewLine & "" _
& "" & Chemin & vbNewLine & "Le fichier ABC.csv est présent" & vbNewLine & "" _
& "Voulez vous importer le fichier ABC.csv ?", vbOKCancel, "BDD TESTS")

**Jean-Philippe André** · 13/02/2012, 10h19

OK, regardons déjà ce qu'affiche

Code :

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

1
2
3
4
5
Debug.Print "Le dernier fichier ABC chargé est celui de : " & DMax("ANNEE", "IMP_ABC") & " - " & DMax("MOIS", "IMP_ABC"), "" _
& "Nous sommmes, le " & Format(Date, "dddd dd mmmm yyyy") & vbNewLine & "" _
& "Chemin de stockage" & vbNewLine & "" _
& "" & Chemin & vbNewLine & "Le fichier ABC.csv est présent" & vbNewLine & "" _
& "Voulez vous importer le fichier ABC.csv ?"

**Bernard67** · 13/02/2012, 10h37

Je n'ai aucun message qui s'affiche et rien ne se passe. Le regoupement de ces 2 messages en 1 seul n'est peut etre pas possible

**Jean-Philippe André** · 13/02/2012, 10h54

Il faut jeter un oeil dans la fenetre d'execution

**Bernard67** · 13/02/2012, 11h18

Voila ce que j'ai dans la fenetre :

Code :

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

1
2
3
4
5
Le dernier fichier ABC chargé est celui de : 2012 - 1             Nous sommmes, le lundi 13 février 2012
Chemin de stockage
\\Chemin\ABC.csv
Le fichier ABC.csv est présent
Voulez vous importer le fichier ABC.csv ?            1

Apparament tout est OK dans le message.
Là, je suis perdu.

**Jean-Philippe André** · 13/02/2012, 11h47

On passe au test suivant alors

Si tu tapes directement

Code :

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

1
2
3
4
5
MsgBox("Le dernier fichier ABC chargé est celui de : " & DMax("ANNEE", "IMP_ABC") & " - " & DMax("MOIS", "IMP_ABC"), "" _
& "Nous sommmes, le " & Format(Date, "dddd dd mmmm yyyy") & vbNewLine & "" _
& "Chemin de stockage" & vbNewLine & "" _
& "" & Chemin & vbNewLine & "Le fichier ABC.csv est présent" & vbNewLine & "" _
& "Voulez vous importer le fichier ABC.csv ?", vbOKCancel, "BDD TESTS")

dans la fenetre d'execution ca donne quoi ?

**Bernard67** · 13/02/2012, 12h48

Il me donne la meme chose que precedement, ce qui est correct

Code :

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

1
2
3
4
5
Le dernier fichier ABC chargé est celui de : 2012 - 1             Nous sommmes, le lundi 13 février 2012
Chemin de stockage
\\Chemin\ABC.csv
Le fichier ABC.csv est présent
Voulez vous importer le fichier ABC.csv ?            1

**Jean-Philippe André** · 13/02/2012, 12h50

Reste le type de variable retour

reprends le code en essayant avec

Code :

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

Dim reponse as Variant

**Bernard67** · 13/02/2012, 13h34

Voici le debut du code, car a force de le manipuler..., je pense que le probleme vient de là.
Le Reponse = MsgBox est rouge avec Variant

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
Private Sub Import_ABC_Click()

Dim Chemin As String
Chemin = "\\Chemin\ABC.csv"
If Dir(Chemin, vbDirectory) > "" Then

Dim Reponse As Variant

Reponse = MsgBox("Le dernier fichier ABC chargé est celui de : " & DMax("ANNEE", "IMP_ABC") & " - " & DMax("MOIS", "IMP_ABC"), "" _
& "Nous sommmes, le " & Format(Date, "dddd dd mmmm yyyy") & vbNewLine & "" _
& "Chemin de stockage" & vbNewLine & "" _
& "" & Chemin & vbNewLine & "Le fichier ABC.csv est présent" & vbNewLine & "" _
& "Voulez vous importer le fichier ABC.csv ?", vbOKCancel

Select Case Reponse:
Case vbOK

**Jean-Philippe André** · 13/02/2012, 13h42

la parenthèse fermante pour commencer

**Jean-Philippe André** · 13/02/2012, 13h44

Y a aussi et surtout en virgule en trop après ton second Dmax

**Bernard67** · 13/02/2012, 13h49

Toujours erreur type 13, en jaune Reponse = MsgBox .......
Lorsque je passe le curseur sur Reponse, j'ai Reponse = Vide

**Jean-Philippe André** · 13/02/2012, 14h02

hum

avec ceci ?

Code :

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

1
2
3
4
5
Reponse = MsgBox("Le dernier fichier ABC chargé est celui de : " & DMax("ANNEE", "IMP_ABC") & " - " & DMax("MOIS", "IMP_ABC") & "" _
& "Nous sommmes, le " & Format(Date, "dddd dd mmmm yyyy") & vbNewLine & "" _
& "Chemin de stockage" & vbNewLine & "" _
& "" & Chemin & vbNewLine & "Le fichier ABC.csv est présent" & vbNewLine & "" _
& "Voulez vous importer le fichier ABC.csv ?", vbOKCancel)

**Bernard67** · 13/02/2012, 14h12

Il manquait :

Code :

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

& vbNewLine &

à la fin de la premiere ligne après :

Code :

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

DMax("MOIS", "IMP_ABC")

Maintenant tout fonctionne correctement. La premiere ligne est donc :

Code :

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

Reponse = MsgBox("Le dernier fichier ABC chargé est celui de : " & DMax("ANNEE", "IMP_ABC") & " - " & DMax("MOIS", "IMP_ABC") & vbNewLine & "" _

jpcheck, je te remercie pour ton aide et ta patience, car je commençais à m'épuiser........
Merci encore et bonne AM

Regroupement de 2 Select Case MsgBox = erreur Type 13 [AC-2007]

VBA Access

Discussions similaires

Partager

Partager