export table vers xls avec chemin variable

Version imprimable

17/08/2007, 11h21
lbar012001

export table vers xls avec chemin variable

bonjour
la commande transferspreadesheet me permet d'exporter une table access au format excel
je doit spécifier le nom de la table à transferer et l'endroit ou je souhaite la déposer
je préfèrerai à la place que l'utilisateur puisse, via une boite de dialogue, choisir l'endroit ou enregistrer le fichier xls (type Enregistrer Sous) car ça peut varier

ps:j'ai regardé dans la faq ça ne semble pas correspondre exactement à ce que je recherche et peut être y a t il un moyen simple de faire cette opération ?

merci si vous avez une idée

laurent
17/08/2007, 11h45
bernardmichel
Je ne sais pas si cela te convient mais voilà une idée...
Code:

1 2 3 4 5 6 7 Function TransExcel() Dim strChemin As String strChemin = Me!ChampDuFormulaire DoCmd.TransferSpreadsheet acExport, 8, "MaTableAExporter", strChemin, False, "" End Function
Tu dois pour l'appliquer :
1. Créer cette fonction directement dans le code VBA de ton formulaire,
2. Inscrire dans la cellule que je nomme "ChampDuFormulaire" l'adresse de ton fichier ainsi que son nom (ex : C:\MonDossier\MonFichierExcel.xls)

... et voilà :lol:
17/08/2007, 13h49
lbar012001

non ça ne résoud pas mon souci mais merci qd même d'avoir répondu
a+
laurent

Salut,

Utilise cette fonction.

Ensuite en reprenant le code de bernardmichel :

Code:

1
2
3
4
5
6
7
Function TransExcel()
Dim strChemin   As String
 
    strChemin = SelectFolder("Sélectionnez un répertoire :", Me.hWnd)
    DoCmd.TransferSpreadsheet acExport, 8, "MaTableAExporter", strChemin & "\nomfichier.xls", False, ""
 
End Function

17/08/2007, 14h40
bernardmichel

Salut Laurent !

Citation:

Envoyé par lbar012001

non ça ne résoud pas mon souci mais merci qd même d'avoir répondu
a+
laurent

Ce serait sympa de nous préciser ta question :lol:

Bernard.
20/08/2007, 10h24
lbar012001

bonjour, à tous,
je précise mon besoin,
dans mon formulaire, je propose via un bouton d'exporter une table au format xls.
j'utilise la fonction "docmd transferspreadsheet/format/table/destination"
le format et le nom de la table sont fixes et ne changeront pas donc on peut les figer en dur dans l'instruction.
par contre la destination est variable, en fonction de qui et où la table va être exporté, il faut que l'utilisateur lorsqu'il va actionner cette fonction puisse avoir le libre choix de déposer le fichier xls où il le souhaite, via une boite du type "enregistrer sous"
merci
a+

Citation:

Envoyé par lbar012001

bonjour, à tous,
je précise mon besoin,
dans mon formulaire, je propose via un bouton d'exporter une table au format xls.
j'utilise la fonction "docmd transferspreadsheet/format/table/destination"
le format et le nom de la table sont fixes et ne changeront pas donc on peut les figer en dur dans l'instruction.
par contre la destination est variable, en fonction de qui et où la table va être exporté, il faut que l'utilisateur lorsqu'il va actionner cette fonction puisse avoir le libre choix de déposer le fichier xls où il le souhaite, via une boite du type "enregistrer sous"
merci
a+
Citation:
Envoyé par Lou Pitchoun
Salut,

Utilise cette fonction.

Ensuite en reprenant le code de bernardmichel :
Code:

1 2 3 4 5 6 7 Function TransExcel() Dim strChemin As String strChemin = SelectFolder("Sélectionnez un répertoire :", Me.hWnd) DoCmd.TransferSpreadsheet acExport, 8, "MaTableAExporter", strChemin & "\nomfichier.xls", False, "" End Function

20/08/2007, 10h51
bernardmichel

Alors peut-être que cette fonction te conviendra mieux ?? toujours en utilisant la fonction que je t'ai envoyé ce-dessus.
20/08/2007, 11h03
lbar012001

merci bien je vais essayer
a+
laurent