Discussion :

[olivier45fr]

Bonjour,

J'ai un peu probleme sur ma macro qui plante des que je n'est pas de resultat

merci de votre aide

voici la macro

Private Sub Document_AfterRefresh()

If ThisDocument.DataProviders.Item(1).Columns(1).Item(1) > 30 Then

Else

SendMailAttachment

End If

Application.Interactive = True

End Sub

[TomDuBouchon]

Salut,

Surprenant qu'il n'y ait pas d'instruction après ton If() mais seulement après ton Else()...

Dans tous les cas je te propose d'essayer ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Document_AfterRefresh()
 
If ThisDocument.DataProviders.Item(1).Columns(1).Item(1) Then
  If ThisDocument.DataProviders.Item(1).Columns(1).Item(1) <= 30 Then
     SendMailAttachment
  End If
Else
    SendMailAttachment
End If
 
Application.Interactive = True
 
End Sub

[olivier45fr]

Normal j'avais fais dans l'autre sens mais la macro ne fonction toujour pas avec la tienne

il me maque

Code :

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

1
2
erreur d'execution 20
invalid index

[TomDuBouchon]

Tu peux essayer ce code dans ce cas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Document_AfterRefresh()
 
IF ThisDocument.DataProviders.Item(1).COLUMNS(1).Item.Count > 0 Then
  IF ThisDocument.DataProviders.Item(1).COLUMNS(1).Item(1) <= 30 Then
     SendMailAttachment
  End IF
Else
    SendMailAttachment
End IF
 
Application.Interactive = True
 
End Sub

[olivier45fr]

toujour le message d'erreur si la requete ne trouve rien

[TomDuBouchon]

Erreur de ma part. Essaies plutôt ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub Document_AfterRefresh()
 
IF ThisDocument.DataProviders.Item(1).NbRowsFetched > 0 Then
  IF ThisDocument.DataProviders.Item(1).COLUMNS(1).Item(1) <= 30 Then
     SendMailAttachment
  End IF
Else
    SendMailAttachment
End IF
 
Application.Interactive = True
 
End Sub

[olivier45fr]

Super COOL

Merci bien