Discussion :

[Glherbier]

Bonjour,

Au sein d'un Sub, j'appelle une fonction. Tout allait bien jusqu'à ce que je dusse ajouter un nouvel input pour cette fonction, un second DAO.Recorset. Là access me renvoie le message d'erreur "Type d'argument Byref incompatible". Je ne comprends pas pourquoi! Quelqu'un a une idée? Le bout de code suit.

Merci!

Code :

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

1
2
3
4
5
6
7
8
9
 
Set rstT_Pays = db.OpenRecordset("SELECT Pays FROM T_Pays ORDER BY Pays")
 
    Do While Not rstT_Pays.EOF
    Set rstTemp = db.OpenRecordset("SELECT * FROM T_Prod_Prog Where T_Prod_Prog.Pays = '" & rstT_Pays.Fields(0).Value & "' ")
    Set rstTemp2 = db.OpenRecordset("SELECT DISTINCT Fourniture FROM T_EBC1 Where T_EBC1.Pays = '" & rstT_Pays.Fields(0).Value & "' ")
        ligne_fin = Bloc(xlSheet, rstTemp, rstTemp2, (ligne_fin), (num_date))
    rstT_Pays.MoveNext
    Loop

Et la fonction Bloc :

Code :

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

1
2
 
Private Function Bloc(xlSheet As Excel.Worksheet, rstTemp As DAO.Recordset, rstTemp2 As DAO.Recordset, ligne_debut As Long, num_date As Long) As Long

[Kloun]

Bonjour,

Ligne_fin et num_date sont bien définis comme Long ?

[Glherbier]

Oui! Je met le code entier pour faciliter la compréhension..

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
 
Private Sub Commande1_Click()
On Error GoTo Err_Commande1_Click
 
Dim XlApp As Excel.Application
    Dim xlSheet As Excel.Worksheet
    Dim xlBook As Excel.Workbook
    Dim i As Long, j As Long
    Dim t0 As Long, t1 As Long
    Dim Date_choisie As String
    Dim Chemin As String
    Dim ligne_fin, num_date, res As Long
 
    Dim db As DAO.Database
    Dim rstT_Pays, rstTemp, rstTemp2 As DAO.Recordset
 
   t0 = Timer
 
  'Initialisations
   Set XlApp = CreateObject("Excel.Application")
   Set xlBook = XlApp.Workbooks.Add
 
   Set db = CurrentDb
 
    'Ajouter une feuille de calcul
    Set xlSheet = xlBook.Worksheets.Add
    xlSheet.Activate
 
 
        'Création des blocs de BB
    Date_choisie = Me.Modifiable4
    ligne_fin = 5
    res = 0
 
   Mise_en_forme_haut xlSheet, Date_choisie
 
   'On cherche la date
 
   If Date_choisie = "Date Notification" Then num_date = 11
   If Date_choisie = "Date FAT" Then num_date = 8
    If Date_choisie = "Date SAT" Then num_date = 9
    If Date_choisie = "Date Prévisionnelle" Then num_date = 10
 
    'Boucle de création des blocs
    Set rstT_Pays = db.OpenRecordset("SELECT Pays FROM T_Pays ORDER BY Pays")
 
    Do While Not rstT_Pays.EOF
    Set rstTemp = db.OpenRecordset("SELECT * FROM T_Prod_Prog Where T_Prod_Prog.Pays = '" & rstT_Pays.Fields(0).Value & "' ")
    Set rstTemp2 = db.OpenRecordset("SELECT DISTINCT Fourniture FROM T_Prod_Prog Where T_Prod_Prog.Pays = '" & rstT_Pays.Fields(0).Value & "' ")
        ligne_fin = Bloc(xlSheet, rstTemp, rstTemp2, (ligne_fin), (num_date))
    rstT_Pays.MoveNext
    Loop
 
   ' code de fermeture et libération des objets
 
   Chemin = Application.CurrentProject.Path + "\ Radar " + Date_choisie + ".xls"
   xlBook.SaveAs Chemin
   MsgBox "Un fichier excel a été créé à l'adresse suivante : " & Chemin
       xlBook.WebPagePreview
 
   XlApp.Quit
   Set xlSheet = Nothing
    Set xlBook = Nothing
    Set XlApp = Nothing
 
    t1 = Timer
    Debug.Print i & " enregistrements", Format(t1 - t0, "0") & " secondes"
 
Exit_Commande1_Click:
    Exit Sub
 
Err_Commande1_Click:
    MsgBox Err.Description
    Resume Exit_Commande1_Click
 
End Sub

[loufab]

ligne_fin est un variant...

[Kloun]

num_date aussi

Code :

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

1
2
3
Dim ligne_fin as long
dim num_date as long
dim res As Long

[Glherbier]

Pour quelle raison? Ce que me renvoie la fonction "bloc" est un long. Ca m'interesserait de savoir!

Bon sinon j'ai mis tous ces entiers en variant, ainsi que des parenthèses autour de mes input DAO.Recordset quand j'appelle la fonction Bloc, et la réponse que m'envoie access maintenant c'est "trop peu de paramètres, 1 attendu"... Peut etre que ma requête rstTemp2 est fausse