Discussion :

[piflechien73]

Bonjour,

Je voudrais exporter une table ACCESS vers EXCEL.

Une partie du nom de ce fichier exporté est contenu dans le champ du premier enregistrement précis d’une table:

Nom = ”DEBUT NOM FICHIER” & VALEUR1

Où VALEUR1=Valeur du premier enregistrement du champ ”ACTIVITY” de la TABLE1.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
Sub EXPORT_DATA()
 
Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field
Dim SSQL As String
 
Set db = CurrentDb
 
SSQL=”SELECT First(TABLE1.ACTIVITY) FROM TABLE1;”
 
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel11, "TABLE1", Application.CurrentProject.path, False, "DEBUT NOM FICHIER" & SSQL
 
End Sub

J’ai bien essayé la fonction first mais cela ne marche pas.

Quelqu’un peut m’aider?

Merci par avance

[Oleff]

Bonjour,

Tu peux essayer cela

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
Sub EXPORT_DATA()
 
Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field
Dim SSQL As String
 
Set db = CurrentDb
 
'   Ouverture du jeu d'enregistrement de la requête
    Set rst = db.OpenRecordset("SELECT First(TABLE1.ACTIVITY) as FirstActivity FROM TABLE1;")
        If Not rst.EOF Then
            ' récupération de la valeur du champ
            SSQL = rst!FirstActivity
        End If
    rst.Close
    Set rst = Nothing
 
'   Export dans excel
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel11, "TABLE1", "Emplacement" & "Fichier excel" & SSQL & ".xls", False
 
End Sub

Il faut ensuite déterminer si tu veux ajouter les données dans un fichier excel (auquel cas il te faut gérer le range du transfert) ou créer un fichier par export.

[piflechien73]

Fantastique!

Vous êtes réellement éclairé! It works!

J'ai une dernière petite question : Savez vous si je peux exporter depuis ce même code 2 tables vers le meme fichier Excel ( sous 2 onglets différents évidemment) ?

Merci par avance

[Oleff]

Savez vous si je peux exporter depuis ce même code 2 tables vers le meme fichier Excel ( sous 2 onglets différents évidemment) ?

Deux solutions pour cela une simple plutôt "rustique" et une un peu plus compliquée mais plus propre.

La rustique c'est d'utiliser le nom des tables comme discriminant en gardant le même nom de fichier

Code :

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

1
2
3
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel11, "TABLE1", "Emplacement" & "Fichier excel" & SSQL & ".xls", False
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel11, "TABLE2", "Emplacement" & "Fichier excel" & SSQL & ".xls", False
End Sub

Les tables vont s'jouter en tant qu'onglet dans le même fichier.

Sinon il vous faut gérer le paramètre range de la méthode

Code :

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

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel11, "TABLE2"Emplacement" & "Fichier excel" & SSQL & ".xls", False,Range

Dans ce cas il faut connaitre le nom de la feuille où l'on veut placer les données, la cellule de départ et de mémoire la taille de la matrice.

[piflechien73]

Merci 1000 fois. Comme sur des roulettes !