Erreur définie par l'application ou par l'objet aléatoire [Résolu]

[coprisca]

Bonjour,
J'exporte sur une fichier Excel les données contenues dans une de mes tables access. Lors de cet export, apparaît aléatoirement (à peut prêt une fois sur trois) le message d'erreur "Erreur définie par l'application ou par l'objet".
Voici mon code:

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
Sub Exportation(requete As String, fichier As String, onglet As String)
 
 Dim t As DAO.Recordset
 Dim qdf As DAO.QueryDef
 Dim db As DAO.Database
 Dim I As Integer
 Dim s As String, NumChamp As Long, ligne As Long
 
 'Commence à la seconde ligne car compteur à 0
 'pour laisser la place pour les intitulés
 
 ligne = 1
 Set db = CurrentDb
 Set qdf = db.QueryDefs(requete)
'For I = 0 To qdf.Parameters.Count - 1
 '    On Error Resume Next
    qdf.Parameters(0).Value = Me.LibelleAntenne 'Eval(qdf.Parameters(I).Name)
 
    If requete = "AffichageVisiteITV" Then
    qdf.Parameters(1).Value = Me.Modifiable2
    ElseIf requete = "AffichageVisiteTypeV" Then
    qdf.Parameters(1).Value = Me.Modifiable13
 
    End If
 
  Set t = qdf.OpenRecordset    'ouvre la requete
 Do Until t.EOF
ligne = ligne + 1               'ligne suivante dans la feuille Excel
   For NumChamp = 0 To 14        'pour chaque colonne de la requete
   s = t(NumChamp)
   If s <> "" Then
   xlW.Sheets(onglet).Cells(ligne, NumChamp + 1) = s
        'recupération des données au format Texte
   ElseIf IsNull(s) Then
 
   xlW.Sheets(onglet).Cells(ligne, NumChamp + 1) = ""
   End If
 
   Next NumChamp
   t.MoveNext                    'enregistrement suivant
  Loop
  t.Close
 Set t = Nothing
 Set qdf = Nothing
 Set db = Nothing
 
Dim x As Integer
 
End Sub

Merci d'avance pour l'aide que vous pourrez m'apporter...

Coprisca

[nico84]

Bonjour,

Pour commencer je te suggère de mettre en place une p'tite gestion d'erreur qui te permettra d'en savoir plus, comme dans cet exemple (qui n'a rien à voir) :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
'10.03 convertit des heures en heures:mn
Public Function HM(T As Double) As String
If Not Mode_debug Then On Error GoTo err:
Dim x As Double
100 HM = ""
102 x = Nz(T, 0)
104 If x >= 1 Then HM = Int(x) & "h "
106 x = (x - Int(x)) * 60 'solde en minutes
108 If x >= 1 Then HM = HM & Int(x) & "' "
110 If HM = "" And x > 0 Then
112   x = (x - Int(x)) * 60 'solde en sec
114   If x >= 1 Then HM = HM & Int(x) & "''"
    End If
116 HM = Trim(HM)
    Exit Function
err: Call message("Erreur " & err.Number & "/" & Erl & " dans fonctions.HM : " & err.DESCRIPTION)
End Function

La procédure message permet de faire un traitement systématique, écriture dans un journal.... Sinon msgbox est bien aussi