Importer données d'Access en fonction d'une date

Version imprimable

17/09/2009, 13h32
FCL31

Importer données d'Access en fonction d'une date

:salut:

Sur Access (2003) j'ai une requête que je voudrais importer sur un fichier Excel en fonction d'une date :

Dans ma requête Access, j'ai une date qui correspond à une date de règlement.

Je voudrais, surement en passent par un UserForm avec une TextBox dans laquelle je sais une date, pouvoir récupérer les donnes de ma requête Access dont la date de règlement est supérieure à la date saisie dans la TextBox

Dans ma requête Access j'ai :
- Date de règlement
- Type de règlement
- Montant
- Référence

Je voudrais pouvoir récupérer ces données dont la date de règlement est, par exemple, supérieur au 01/09/09

Merci d'avance
17/09/2009, 14h07
mercatog

Quel code as tu mis?
parce que dans l'aide, ceci:

Citation:

QueryTables.Add(Connection, Destination, Sql)
Sql Argument de type Variant facultatif. Chaîne de requête SQL à exécuter sur la source de données ODBC

Définir donc ta Sql en fonction de ta date
17/09/2009, 14h33
FCL31

Je viens de penser (oui sa arrive) a un truc :

Le plus simple (pour moi) serrait éventuellement d'importer la totalité de la requête et après je fait la mise en forme en supprimant les enregistrement non nécessaire en VBA sur Excel
17/09/2009, 14h56
Fvandermeulen

Salut,
Tu peux le faire directement dans la requête !
Utilise l'enregistreur de macro pour avoir le code qui correspond à la manipulation suivante:
Données/Import Données Externes\Nouvelle requête Database (enfin je crois je suis en GB)
De là tu vas choisir ta BDD, ensuite la table (ou requête) et les colonnes que tu veux. L'écran suivant va te permettre de "filtrer", c'est là que tu vas choisir le champ Date et y mettre plus grand que xx.
Tu finis ta requête avec l'aide.

Dans le code obtenu tu devras changer la ligne

Code:

.CommandText = Array("SELECT ...

Il te suffira de remplacer la date qui y apparait en 'dur' par la variable qui récupère la date de ta TextBox.

En espérant avoir été clair.

A+
18/09/2009, 13h27
FCL31
Pour simplifier un peu mon problème, j'ai fait l'importation grâce à l'enregistreur de macro (je ne m'en été jamais servi donc je ne savais même pas comment sa marché ; Merci de m'avoir fait découvrir un truc de plus).

J'ai fais un UserForm a l'ouverture dans lequel je saisi une date puis je lance l'importation et je supprime les ligne dont la valeur de la colonne K sont inférieure à cette date

Mais sa marche pas :cry:

J'ai fais ca :
Code:

1 2 3 4 5 6 For j = 1 To Range("K60000").End(xlUp).Row If Range("K" & j).Value < userform1.TextBox1.Value Then Rows(j).Delete End If Next j End Sub
Je pense que j'ai du oublier de faire quelque chose mais je sais pas quoi :koi:

PS - Les cellules de la colonne K sont en format date
18/09/2009, 13h36
mercatog

Déjà dans le cas des suppressions tu dois commencer par le dernier

Code:

For j = Range("K65536").End(xlUp).Row To 1 Step -1
18/09/2009, 13h38
Fvandermeulen

Salut,
Maintenant que tu as découvert l'enregistreur de macro, tu verras qu'il est ton ami ;)

Ensuite, lorsque tu veux supprimer des lignes il faut faire une boucle inverse, cet à dire commencer par la dernière ligne vers la première sinon tu vas "sauter" des lignes.
Imagine j=2; tu supprime, la ligne 3 devient la 2 mais comme ton j passe à trois, tu vas pas passer sur l'ancienne ligne 3 (je sais pas si je suis clair sur ce coup là :aie:)

Donc fais:

Code:

For j = Range("K60000").End(xlUp).Row to 1 step-1

Encore une remarque concernant ceci, n'auras tu jamais plus de 60000 lignes ? voici une manière d'avoir toujours la dernière ligne remplie quelque soit le nombre de ligne (je pense à XL2007)

Code:

DerLig = cells(columns(11).cells.count,11).end(xlup).row

11 pour la colonne K

Ensuite, étant donné que tu travaille avec des dates il est primordial de voir comment elles sont retournée dans tes variales, pour ça tu peux utiliser les msgbox afin de visualiser ce qu'elle renvoient et donc te mettre sur la piste de l'erreur.
Exemple:

Code:

Msgbox userform1.TextBox1.Value

A toi de jouer, reviens ici si ça coince encore et n'oublie pas que tu peux supprimer les lignes non voulue directement dans ta procédure d'import...

A+

Sa marche Nikel :ccool:

Toutefois, j'ai un petit susis

A la fin de mon code, j'ai une petite macro pour supprimer toute les macro :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub SupprimeToutVBA()
Dim VbComp As Object
For Each VbComp In ActiveWorkbook.VBProject.VBComponents ' 'suppression vba
Select Case VbComp.Type
Case 1 To 3
ActiveWorkbook.VBProject.VBComponents.Remove VbComp
Case Else
With VbComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next VbComp
 
End Sub

Sur mon PC en local, tout marche nikel

Mais si je le lance depuis ma connection serveur, la fin ne marche pas :
Sa me met :

Citation:

Erreur d'exécution '1004'
L'accées par programme au projet Visual Basic n'est pas fiable

et sa me surligne la ligne suivante en jaune :

Code:

For Each VbComp In ActiveWorkbook.VBProject.VBComponents

Je pense que c'est pas grand chose mais je sais pas quoi ??

-------------------------------------------------------------------------------------------
PS- Si sa peu aider, je met le code complet du module dans lequel ce trouve cette macro :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
Sub MiseEnForme()
 
Dim Dat As Date
Dat = UserForm1.TextBox1.Value
 
For j = Range("K60000").End(xlUp).Row To 1 Step -1
    If Range("K" & j).Value < Dat And Range("L" & j).Value < Dat Then
        Rows(j).Delete
    End If
Next j
 
For i = Range("L60000").End(xlUp).Row To 1 Step -1
    If Range("L" & i).Value < Dat Then
        Range("F" & i) = "0"
    End If
Next i
 
For k = Range("K60000").End(xlUp).Row To 1 Step -1
    If Range("K" & k).Value < Dat Then
        Range("E" & k) = "0"
    End If
Next k
 
Rows(1).Delete
 
Dim DerLig As Long
Dim AvDerlig As Long
 
AvDerlig = Cells(65536, 1).End(xlUp).Row + 1
 
For l = 1 To Range("F6000").End(xlUp).Row
DerLig = Cells(65536, 1).End(xlUp).Row + 1
    If Range("F" & l) <> "0" Then
        Rows(l).Copy Range("A" & DerLig)
    End If
Next l
 
For m = AvDerlig To Range("A6000").End(xlUp).Row
    If Range("F" & m) <> "0" Then
        Range("E" & m) = Range("F" & m)
    End If
Next m
 
Columns(12).Delete
Columns(11).Delete
Columns(6).Delete
Columns(4).Insert
 
Rows(1).Insert
 
For n = 1 To Range("A6000").End(xlUp).Row
    Range("D" & n) = "AR"
Next n
 
    Range("A1") = "Contrat"
    Range("B1") = "Concessionnaire"
    Range("C1") = "N° sinistre"
    Range("D1") = "Code Gestion"
    Range("E1") = "Date sinistre"
    Range("F1") = "Récupération"
    Range("G1") = "Type de Presse"
    Range("H1") = "Pièce causale"
    Range("I1") = "Référence"
    Range("J1") = "MES"
 
For o = 1 To Range("A6000").End(xlUp).Row
    If Range("F" & o) = "0" Then
        Rows(o).Delete
    End If
Next o
 
    UserForm1.Hide
 
    MsgBox ("Terminé")
 
    SupprimeToutVBA
 
End Sub
 
-------------------------------------------------------------------------------------
 
Sub SupprimeToutVBA()
Dim VbComp As Object
For Each VbComp In ActiveWorkbook.VBProject.VBComponents ' 'suppression vba
Select Case VbComp.Type
Case 1 To 3
ActiveWorkbook.VBProject.VBComponents.Remove VbComp
Case Else
With VbComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next VbComp
 
End Sub

18/09/2009, 17h52
aalex_38

Citation:

Erreur d'exécution '1004'
L'accées par programme au projet Visual Basic n'est pas fiable

Il faut cocher dans excel "Faire confiance au projet visual basic"

Outil/options/Sécurité/sécurité des macrois.
21/09/2009, 11h56
FCL31

Nikel :ccool:

:merci: