Bonjour, j'ai un bouton qui me permet d'exporter ma
table "general" dans le dossier "mesdoc...." avec
l'expression suivante
DoCmd.TransferSpreadsheet acExport,
acSpreadsheetTypeExcel9, "general", "c:\documents and
settings\seb\mes documents\general.xls", True
ma question est :
comment je peut modifier cette expression ou la
remplacer , pour que quand je clic sur mon
bouton "exporter" une fenetre s'ouvre pour que je puisse
choisir le lieu d'enregistrement ?
merci
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
Bonjour.
Tu peux utiliser la syntaxe suivante avec l'utilisation de l'api savefile sur: http://access.seneque.free.fr/sauvegarde_document.htm
Private Sub Commande28_Click() Dim Monfichier As String Monfichier = SaveFile("c:") DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "table1", Monfichier, True End Sub
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"seb" a écrit dans le message de news:d54b01c3ef0b$ef509420$
Bonjour, j'ai un bouton qui me permet d'exporter ma table "general" dans le dossier "mesdoc...." avec l'expression suivante
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "general", "c:documents and settingssebmes documentsgeneral.xls", True
ma question est : comment je peut modifier cette expression ou la remplacer , pour que quand je clic sur mon bouton "exporter" une fenetre s'ouvre pour que je puisse choisir le lieu d'enregistrement ? merci
Bonjour.
Tu peux utiliser la syntaxe suivante avec l'utilisation de l'api savefile
sur:
http://access.seneque.free.fr/sauvegarde_document.htm
Private Sub Commande28_Click()
Dim Monfichier As String
Monfichier = SaveFile("c:")
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "table1",
Monfichier, True
End Sub
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"seb" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:d54b01c3ef0b$ef509420$a501280a@phx.gbl...
Bonjour, j'ai un bouton qui me permet d'exporter ma
table "general" dans le dossier "mesdoc...." avec
l'expression suivante
DoCmd.TransferSpreadsheet acExport,
acSpreadsheetTypeExcel9, "general", "c:documents and
settingssebmes documentsgeneral.xls", True
ma question est :
comment je peut modifier cette expression ou la
remplacer , pour que quand je clic sur mon
bouton "exporter" une fenetre s'ouvre pour que je puisse
choisir le lieu d'enregistrement ?
merci
Tu peux utiliser la syntaxe suivante avec l'utilisation de l'api savefile sur: http://access.seneque.free.fr/sauvegarde_document.htm
Private Sub Commande28_Click() Dim Monfichier As String Monfichier = SaveFile("c:") DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "table1", Monfichier, True End Sub
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"seb" a écrit dans le message de news:d54b01c3ef0b$ef509420$
Bonjour, j'ai un bouton qui me permet d'exporter ma table "general" dans le dossier "mesdoc...." avec l'expression suivante
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "general", "c:documents and settingssebmes documentsgeneral.xls", True
ma question est : comment je peut modifier cette expression ou la remplacer , pour que quand je clic sur mon bouton "exporter" une fenetre s'ouvre pour que je puisse choisir le lieu d'enregistrement ? merci
