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