Discussion :

[T'chab]

bonjour

je voudrais juste savoir quel est le code visual basic
qu'access utilise pour envoyer les données d'une requete vers excel

quand on fais: outils->liaisons->Exporter vers MS EXCEL

merci

[loufab]

Bonjour,

Comme tout les exports :

Code :

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

DoCmd.OutputTo ...

Attention il ne s'agit pas d'Automation.

Cordialement,

[T'chab]

en fait, j'ai envi de créer un bouton qui alimente directement un fichier excel

Code :

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

1
2
3
4
5
6
 
 
 
DoCmd.OutputTo(acOutputQuery, "CATALOGUE CLIENT Requête", 
 
acFormatXLS, "o:\technique\GESTION TECHNIQUE\ventes de gas-oil.xls", True)

je veux exporter les données d'une requete sur ce fichier!!!
pourquoi ca pose un souci sur ce code???

[loufab]

J'ai cassé ma boule de cristal et depuis le H5N1 j'ai plus le droit de faire des sacrifices de poulets... donc mon art divinatoire n'est pas au top en ce moment.

Peux-tu nous en dire plus sur ton problème ?

message d'erreur, résultats erronés ...

[T'chab]

dsl il faut que je m'efforce de préciser un peu plus

passer par outils liaisons office, ca me plait pas et en plus on controle pas le fichier de destination excel!

donc l'idée, c'est que

1 - l'utilisateur parametre les dates de sa requete
3 - l'utilisateur clique ensuite sur le fameux bouton que je programme (enfin essaie de programmer)
4 - excel s'ouvre et toutes les données de la requête sont placées dans un fichier précis sur une feuille précise à un endroit précis.

[Gali]

Est ce que tu pourra nous faire partager le code de ton bouton quand tu aura fini?

J'ai également un problème de requete et d'export vers excel. Cela m'aidera peut-être.

Merci

[loufab]

4 - excel s'ouvre et toutes les données de la requête sont placées dans un fichier précis sur une feuille précise à un endroit précis.

mis à part le point 2 qui reste obscur le point 4 t'oblige à passer par de l'automation (controle d'excel par Access).

En effet de mémoire la commande outputto ne permet pas d'insérer les valeurs transférées à l'endroit précis d'une feuille précise.

Voici un bout de code qui pourrait t'inspirer.

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
        dim myitem as object
        ' ### ouvre la requete avec la SQL select
        Set r = CurrentDb.OpenRecordset(strSql, dbOpenSnapshot, dbForwardOnly)
 
        ' ### compte le nombre de champ à copier (initialise le compteur c )
        c = r.Fields.Count
 
        ' ### ouvre la feuille excel
        Set myitem = GetObject(Environ("USERPROFILE") & "\" & namfile)
        ' ### nettoie la feuille ouverte
        myitem.Worksheets(1).Rows("2:65536").ClearContents
        ' ### ligne commence en L2
        l = 2
        ' ### tant que la query n'est pas EOF traite chaque record
        Do Until r.EOF
            ' ### pour chaque champ du record courant (c)
            For i = 1 To c
                ' ### copie le contenu dans la cellule correspondante
                myitem.Worksheets(1).Cells(l, i) = r(i - 1)
            Next i
            ' ### record suivant
            r.MoveNext
            ' ### ligne xls suivante
            l = l + 1
        Loop
        ' ### autofit ????
        myitem.Worksheets(1).Rows.AutoFit
        ' ### rend la feuille visible
        myitem.Application.Visible = True
        ' ### active la fenetre windows 1 ???
        myitem.Windows(1).Visible = True
        ' ### ferme le record
        r.Close
        ' ### sauve la feuille excel
        myitem.Save
        ' ### ferme l'objet xls
        Set myitem = Nothing