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
Maxence HUBICHE [MVP Access]
Dim xlAPP as Object Dim xlWkb as Object set xlApp=CreateObject("Excel.Application") xlApp.visible=True set xlWkb=xlApp.WorkBooks.Add ... ... (ton code) ... (ton code) ... (ton code) ... ... xlWkb.SaveAs "c:_monClasseur.xls" xlWkb.Close xlApp.Quit
-- Maxence HUBICHE Formateur et Developpeur Indépendant Microsoft MVP Office Systems - Access Site : http://www.access-maxence.com Blog : http://www.access-maxence.com/blog/ Rédacteur & Développeur sur http://www.developpez.com Forum Access : http://www.developpez.net/forums/viewforum.php?f8 FAQ Access : http://access.developpez.com/faq -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
"James" a écrit dans le message de news:99b101c49738$e1ed13f0$ Bonjour,
Jusqu'à présent je faisait de l'export vers Excel d' une requête avec le code VB suivant :
Désormais je souhaiterai modifié la manière d'exporter.
1) Ouvrir Excel (Voir l'ouverture)
2) Exporter les données
Ensuite l'enregistrement du fichier EXCEL se ferai par l'utilisateur.
Est ce que quelqu'un peut m'aider pour le code VB.
Merci d'avance
Dim xlAPP as Object
Dim xlWkb as Object
set xlApp=CreateObject("Excel.Application")
xlApp.visible=True
set xlWkb=xlApp.WorkBooks.Add
...
... (ton code)
... (ton code)
... (ton code)
...
...
xlWkb.SaveAs "c:_monClasseur.xls"
xlWkb.Close
xlApp.Quit
--
Maxence HUBICHE
Formateur et Developpeur Indépendant
Microsoft MVP Office Systems - Access
Site : http://www.access-maxence.com
Blog : http://www.access-maxence.com/blog/
Rédacteur & Développeur sur http://www.developpez.com
Forum Access : http://www.developpez.net/forums/viewforum.php?f8
FAQ Access : http://access.developpez.com/faq
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
"James" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:99b101c49738$e1ed13f0$a301280a@phx.gbl...
Bonjour,
Jusqu'à présent je faisait de l'export vers Excel d' une
requête avec le code VB suivant :
Dim xlAPP as Object Dim xlWkb as Object set xlApp=CreateObject("Excel.Application") xlApp.visible=True set xlWkb=xlApp.WorkBooks.Add ... ... (ton code) ... (ton code) ... (ton code) ... ... xlWkb.SaveAs "c:_monClasseur.xls" xlWkb.Close xlApp.Quit
-- Maxence HUBICHE Formateur et Developpeur Indépendant Microsoft MVP Office Systems - Access Site : http://www.access-maxence.com Blog : http://www.access-maxence.com/blog/ Rédacteur & Développeur sur http://www.developpez.com Forum Access : http://www.developpez.net/forums/viewforum.php?f8 FAQ Access : http://access.developpez.com/faq -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
"James" a écrit dans le message de news:99b101c49738$e1ed13f0$ Bonjour,
Jusqu'à présent je faisait de l'export vers Excel d' une requête avec le code VB suivant :
