Merci beaucoup pour ton intéret à mon problème
bon j'ai une commande du DataEnvironment que j'ai filtré à par plusieurs critére à l'aide de la propriètè Filter et je veux exprter le resultat de ma commande filtré à excel
et j'ai déja une fonction qui m'exporte et elle marche bien voila son code
Public Sub exportXL(emplacementXL As String)
Dim AppXl As New Excel.Application 'Ouverture d'Excel
Dim classeur As New Excel.Workbook 'Nouveau classeur
Dim feuille As New Excel.Worksheet 'Nouvelle feuille
Set AppXl = CreateObject("Excel.Application")
Set AppXl = New Excel.Application 'Ouverture d'Excel
Set classeur = AppXl.Workbooks.Add 'Ouverture du fichier adéquat
Set feuille = classeur.Worksheets(1) 'Première feuille
AppXl.Visible = True
Dim nblignes As Integer
Dim NbCols As Integer
DE1.rsstat.MoveFirst
nblignes = DE1.rsstat.RecordCount
NbCols = DE1.rsstat.Fields.Count
With classeur
With feuille
'remplissage avec les entrées de la base de donnée
.Range(.Cells(2, 1), .Cells(nblignes, NbCols)).CopyFromRecordset DataEnvir1.rscommand1
End With
End With
'fermeture excel
Set feuille = Nothing
Set classeur = Nothing
Set AppXl = Nothing
End Sub
voila cette fonction exporte le DataEnvir1.command à Excel
mais quand je le filtre
et j'applique cette fonction il m'exporte le DataEnvir1.command non filtré or normalement le DataEnvir1.command une fois filtré ne contient que les données filtré sauf si on fait DataEnvir1.command.Filter="" et c'est la ou il perd ses filtres
j'éspère que maintenant vous avez compris mon prob et merci d'avance
Ah j'ai oublié je travail avec VB6 et connection ADO.