XL 2013 Extraitre des données allant d'une date à une autre

[Ic0ne1300]

Bonjour à tous,

Je reviens vers vous pour une énième question :

J'ai coder mon UserForm pour qu'il fasse une extraction de donnée d'un classeur fermé. Dans mon code, il va chercher le fichier, puis il va extraire les données des colonnes que j'ai choisi sous forme de ListBox. Jusqu'ici mon code marche très bien.
Maintenant, je voudrais rajouter des lignes pour qu'il extrait les données d'une date allant d'aujourd'hui à 7 jours en arrière.

mon code est le suivant :

Private Sub userform_initialize()

Dim Datedebut As Date
Dim Datefin As Date
Dim i As Integer
Dim Temp As Date

Datedebut = Format(Now, "dd/mm/yyyy")
Datefin = Format(Now - 7, "dd/mm/yyyy")
Temp = Datedebut

While Temp < Datefin
'Dim cnn As ADODB.Connection
  'Microsoft ActiveX DataObject doit être coché
  'BD est le nom de l'onglet ou se trouve le tableau à récupérer
        Set cnn = New ADODB.Connection

    With CreateObject("ADODB.Connection")
        .Open = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=F:\Outils_Pointage\Ressources\Recapitulatif_general.xlsm ;Extended Properties=""Excel 12.0;HDR=YES;IMEX=1"""
    
    Me.ListBox1.List = Application.Transpose(.Execute("SELECT [Date],[OS],[UO],[Préparateur],[Etat du dossier],[Temps Réalisé] FROM [Données_à_extraire$A1:AA65000]").GetRows)
    .Close
    Me.ListBox1.ColumnCount = 6
    Me.ListBox1.ColumnWidths = "80;120;120;120;120;120"
    End With
Wend
End Sub

Comme vous pouvais le voir j'ai déja commencé en y mettant les variable mais rien n'y fait il ne m'affiche plus rien. Mon UserForm s'ouvre bien mais les données ne s'affichent plus du tout...

Merci pour votre aide
Bonne journée.

 

[Ic0ne1300]

Bonjour,
Merci de ton aide, du coup il y avait plusieurs petites erreurs que j'ai reussi a corriger, mais maintenant il compile jusqu'a mon UserForm et au lieu de m'afficher mon historique il m'affiche cela :