Discussion :

[samson_02]

Re à tous...

Voici un autre problème que je n'arrive pas à solutionner....

J'ai un formulaire access (2003) qui permet d'ajouter des données dans une base. Lorsque j'appuie sur le bouton commande qui met la base à jour, je voudrais exporter les données de ce formulaire vers une feuille excel grâce au code vba... Ce formulaire est basé sur une requête qui renvoie certaines informations et qui permet d'en entrer d'autres... Je voudrais exporter l'ensemble des données comprise sur le formulaire vers un feuille excel...

Dois-je passée par une table temporaire...?....

Je ne vois pas comment faire...

merci d'avance de votre soutien

[Jean-Philippe André]

salut,
il y a plusieurs méthodes pour l'export vers Access,
je te recommande la lecture de cet article dans la
http://access.developpez.com/faq/?page=Excel#ExpExclReq
ou encore l'article de cafeine à ce sujet :
http://cafeine.developpez.com/access/tutoriel/excel/

bonne lecture

[samson_02]

Merci beaucoup, je vais me lancer dans la lecture des liens que tu me proposes...

[samson_02]

Bonjour à tous ...


J'ai lu les tutos dans la faq et ai essayé de "recycler" les codes qui s'y trouvent.

Cependant, il semble que ne comprenne pas bien tout.

J'ai essayé de faire un recordset et d'en extraire les données dont j'ai besoin, afin de les exporter dans une feuille excel....

Voici mon code, issu des explications que j'ai lues ici et là....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim appexcel As Excel.Application
Dim wbexcel As Excel.Workbook
Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field
 
    Dim sSQL As String
    ' Ouverture de la base de données
    Set db = DBEngine.OpenDatabase("C:\Chemi_vers_la_db_acces.mdb")
    sSQL = "Select * From MaTable Where [MaTable]![MonChamps]=[Forms][MaForm]![MonChamps]"
 
    ' Ouverture du recordset
    Set rst = db.OpenRecordset(sSQL, dbOpenSnapshot, dbReadOnly)
 
 
    Set appexcel = CreateObject("Excel.Application")
    appexcel.Visible = True
    Set wbexcel = appexcel.Workbooks.Open("C:\dossier\MonFichier.xls")
 
    appexcel.Sheets("Feuil").Select
 
    appexcel.cells(2, 2) = rst![MonChamps]
 
    ' Fermeture du Recordset
    rst.Close

Mais ça ne fonctionne pas...Il doit y avoir un problème de syntaxe,car une erreur est levée, qui stipule :

Run_time error '3061'
trop peu de paramètres :1 attendu


J'ai lu et relu les faq et autres tutos, je ne vois pas comment résoudre ce problème....

Pouvez-vous m'aider svp... merci d'avance...

[le_niak]

Bonjour,

Le soucis provient d'une erreur de synatxe dans ton code :

Code :

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

 sSQL = "Select * From MaTable Where [MaTable]![MonChamps]=" & [Forms][MaForm]![MonChamps]

[samson_02]

Merci bcp, ça règle l'erreur soulevée et renvoie une valeur, cependant une autre erreur survient...

Elle indique : Run-time error 3075

),] ou élément absent dans l'expression '[MaTable]![MonChamps]='Valeur'


Peux-tu m'indiquer ce qui pourrait manquer stp...?.... merci...

[Taoueret]

Essaie plutôt

Code :

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

1
2
3
4
5
6
7
8
9
 
 sSQL = "Select * From MaTable Where [MaTable].[MonChamps]=" & [Forms][MaForm]![MonChamps]
 
'ou alors juste
 sSQL = "Select * From MaTable Where [MonChamps]=" & [Forms][MaForm]![MonChamps]
 
'si monchamp est de type texte alors il faut rajouter les cotes dans la chaîne
 sSQL = "Select * From MaTable Where [MonChamps]='" & [Forms][MaForm]![MonChamps] &"'"
pour obtenir par exemple "Select * From MaTable where monchamp='Toto'"

[samson_02]

Mille merci....

Je vais essayer ça.... je te fais un "feedback"...

[le_niak]

Je viens de vérifier et j'ai le code suivant :

Code :

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

1
2
 
sSQL = "Select * From MaTable Where [MaTable].[MonChamps]=" & [Forms]![NomForm].[NomChamps]

Bon courage

[samson_02]

C'était bien à cause du fait que la valeur du champs était de type texte....!!!...
Merci beaucoup, ça marche à la perfection... en mettant :

Code :

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

 sSQL = "Select * From MaTable Where [MonChamps]='" & [Forms]![MaForm]![MonChamps] &"'"

Mais j'ai du ajouter un "!" entre [Forms]et[MaForm]....


Merci encore de votre soutient à tous.....

[ensascience]

Salut,
...et si on veut selectionner plusieur table ou plusieur champs de plusieur table ?
est ce que on peut faire pareil pour une requette entiere ??
Merci

[Jean-Philippe André]

oui