Discussion :

[ngutowski]

*Bonjour*

Voilà la fonction :

Code :

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

1
2
3
4
5
6
7
Public Sub filtrerTD(TypeRens, DateEff)
extractionT = Mid(TypeRens, 1, 5)
extractionD = Mid(DateEff, 4, 7)
 
Forms("F_GFIN").filter = "[TYPE D'EVENEMENT] like '" & extractionT & "*' &" And "[date d'effet] like '*" & extractionD & "'"
Forms("F_GFIN").FilterOn = True
End Sub

L'erreur que cela m'affiche est : "incompatibilité de type"... j'ai du faire une erreur de guillemet peut être mais je ne trouve pas.

Quelqu'un serait-il à même de pouvoir me trouver la solution? merci d'avance

[Invité]

Bonjour

Il serait bon de typer tes variables (String, etc...)

Sur quelle ligne se trouve l'erreur ?

Philippe

[ngutowski]

L'erreur se trouve sur cette ligne

Code :

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

Forms("F_GFIN").filter = "[TYPE D'EVENEMENT] like '" & extractionT & "*' &" And "[date d'effet] like '*" & extractionD & "'"

[christophe31]

Salut

Essaye ça pour voir :

Code :

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

Forms("F_GFIN").filter = "[TYPE D'EVENEMENT] like '" & extractionT & "*' And [date d'effet] like '*" & extractionD & "'"