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 :
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.
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 :
VB:
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 SubComme 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.