Discussion :

[FCL31]

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

[mercatog]

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

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

[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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

.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+

[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

J'ai fais ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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


PS - Les cellules de la colonne K sont en format date

[mercatog]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For j = Range("K65536").End(xlUp).Row To 1 Step -1

[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à )

Donc fais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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+