recuperer donnes access sur excel

Version imprimable

23/12/2007, 10h48
yoann_deygas

recuperer donnes access sur excel

Bonjour à tous !

je vous expose mon problème :

je suis débutant en vba et je ne connais pas grand chose au macro pourtant je dois rélaiser la chose suivante :

1) à l'aide d'une macro je dois pouvoir recuperer une partie des données de la table "tarif" qui se trouve dans la base "base de tarif.mbd"

La table "Tarif" contient le champ "Reçu le" qui est de la forme 01/01/07.
Je veux afficher dans ma feuille excel toutes les données de la table "Tarif" pour lesquelles "Reçu le " fini par 06 ou 07 à l'aide d'une macro.

Est ce possible ? si oui pouvez m'indiquer comment faire
Je vous remercie par avance.

2) Si j'arrive à réaliser l'étape 1, je serai deja ravi :
Le deuxième point délicat est le suivant :

La table contient entre autre le champ "recu le ", "effectif a" et "effectif b"

Je souhaiterai toujours à l'aide d'une macro insérer automatiquement 4 colonnes avec un nombre de lignes égale à la taille de la feuille excel.
Je voudrais inserer le champ "mois" qui correspondrait au mois du champ "Reçu le". De la même manière je voudrais inserer le champ "année".
Je voudrais egalement rajouter le champ effectif qui correspondrait a la somme des champ "effectif a " et "effectif b" et enfin mettre un dernier champ "classification" qui correspond à la, chose suivante :

si effectif < 300 alors 1
si effectif compris entre 300 et 1000 alors 2
sinon 3

Si quelqu'un peut m'aider, je le remercie par avance car je suis dans la m...

bonsoir

Un exemple en utilisant la bibliothèque DAO
(vérifie le nom du champ date [Reçu Le ] avant de lancer la procédure)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub importDonnees_DAO()
    Dim Db As DAO.Database
    Dim Rs As DAO.Recordset
    Dim strSQL As String
 
    Set Db = DAO.OpenDatabase("C:\dossier\base de tarif.mbd", False, False)
    strSQL = "SELECT * FROM [Tarif] WHERE [Reçu Le ] BETWEEN #01/01/06# AND #31/12/07#"
    Set Rs = Db.OpenRecordset(strSQL, DAO.dbOpenSnapshot)
 
    Range("A1").CopyFromRecordset Rs
 
    Db.Close
End Sub

bonne soirée
michel

Je vous remercie monsieur.

Pouvez m'expliquer en deux lignes le principe du DAO si cela ne vous dérange pas

Concernant la deuxième partie de mon problème, j'ai le code suivant :
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 Sub Macro2() ' ' Macro2 Macro ' testtt ' ' Selection.Insert Shift:=xlToRight Columns("F:F").Select Selection.Insert Shift:=xlToRight Range("E1").Select ActiveCell.FormulaR1C1 = "Mois" Range("F1").Select ActiveCell.FormulaR1C1 = "Annee" Range("E2").Select ActiveCell.FormulaR1C1 = "=MONTH(RC[-1])" Range("E2").Select Selection.NumberFormat = "0.00" Selection.AutoFill Destination:=Range("E2:E4") Range("E2:E4").Select Range("F2").Select ActiveCell.FormulaR1C1 = "=YEAR(RC[-2])" Range("F2").Select Selection.NumberFormat = "0.00" Selection.AutoFill Destination:=Range("F2:F4") Range("F2:F4").Select Selection.Style = "Comma" Selection.Style = "Comma" Selection.NumberFormat = "_(* #,##0_);_(* (#,##0);_(* ""-""_);_(@_)" Range("E2:E4").Select End Sub
Le problème est que ce code ne marche pas dans tous les cas.
Ici, j'avais 3 lignes après l'utilisation de la première requete. J'ai donc manuellement créer 3 lignes puis calculer le mois et l'annee en fonction du champ "Reçu le".
Comment puis je faire, pour que cette opération soit automatique et qu'elle m'insère le bon nombre de lignes ?

(dans mon cas si je rajoute un enregistrement dans ma base de donnees et que je lance la macro sous excel, je vais faire l'import correctement mais ensuite j'aurais seulement l'annee et le mois qui seront rempli pour les 3 premières lignes et pas la dernière

Encore merci pour votre aide

J'ai egalement une question concernant le code que vous m'avez envoyé.
Est ce possible de faire egalement afficher le nom des champs et pas seulement les valeurs des champs ?

Vraiment merci

Bonne fêtes

Yoann

24/12/2007, 10h41
Invité

Bonjour

En complément de la réponse de Silkyroad, je te conseille la lecture de cet article : http://warin.developpez.com/access/dao/

Et d'aller faire de temps en temps un tour sur le forum Access, dans la rubrique VBA où tu trouveras de nombreux exemples sur DAO.

Starec