Discussion :

[lbar012001]

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

[bernardmichel]

Je ne sais pas si cela te convient mais voilà une idée...

Code :

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

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à

[lbar012001]

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

[Lou Pitchoun]

Salut,

Utilise cette fonction.

Ensuite en reprenant le code de bernardmichel :

Code :

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

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

[bernardmichel]

Alors peut-être que cette fonction te conviendra mieux ?? toujours en utilisant la fonction que je t'ai envoyé ce-dessus.

[lbar012001]

merci bien je vais essayer
a+
laurent

[bernardmichel]

Salut Laurent !

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

Bernard.

[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+

[Lou Pitchoun]

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+

Salut,

Utilise cette fonction.

Ensuite en reprenant le code de bernardmichel :

Code :

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

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