peut-on remplir un fichier Excel automatiquement, par l'intermédiaire d'une
requête par exemple?
ça m'éviterai de refaire à chaque fois la mise en page de mon fichier Excel
(en-tête, pied de page, impression, etc.)
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
Philippe T [MS]
Bonjour,
Il est toujours possible de faire des choses du genre :
Dim objXL Set objXL = WScript.CreateObject("Excel.Application")
objXL.Cells(1, 1).Value = "Mon texte"
---------------------------------------------------------------------- Philippe TROTIN - Microsoft Service France
"Fredo" wrote in message news:426227e6$0$6816$
bonjour à toutes et à tous
peut-on remplir un fichier Excel automatiquement, par l'intermédiaire d'une requête par exemple? ça m'éviterai de refaire à chaque fois la mise en page de mon fichier Excel (en-tête, pied de page, impression, etc.)
Merci
Bonjour,
Il est toujours possible de faire des choses du genre :
Dim objXL
Set objXL = WScript.CreateObject("Excel.Application")
objXL.Cells(1, 1).Value = "Mon texte"
----------------------------------------------------------------------
Philippe TROTIN - Microsoft Service France
"Fredo" <Fredo@none.fr> wrote in message
news:426227e6$0$6816$636a15ce@news.free.fr...
bonjour à toutes et à tous
peut-on remplir un fichier Excel automatiquement, par l'intermédiaire
d'une requête par exemple?
ça m'éviterai de refaire à chaque fois la mise en page de mon fichier
Excel (en-tête, pied de page, impression, etc.)
Il est toujours possible de faire des choses du genre :
Dim objXL Set objXL = WScript.CreateObject("Excel.Application")
objXL.Cells(1, 1).Value = "Mon texte"
---------------------------------------------------------------------- Philippe TROTIN - Microsoft Service France
"Fredo" wrote in message news:426227e6$0$6816$
bonjour à toutes et à tous
peut-on remplir un fichier Excel automatiquement, par l'intermédiaire d'une requête par exemple? ça m'éviterai de refaire à chaque fois la mise en page de mon fichier Excel (en-tête, pied de page, impression, etc.)
Merci
Pascal
salut, par automation tu peux tout faire
Par exemple:
'ouvrir le fichier Excell Dim xlApp As Excel.Application Dim wbk As Excel.Workbook Dim sht As Excel.Worksheet
'Créer un objet Excell Set xlApp = CreateObject("Excel.Application") With xlApp ' Rendre Excell visible .Visible = True ' Créer un nouveau classeur Set wbk = .Workbooks.Add ' Instancier la feuille active dans le classeur Set sht = wbk.ActiveSheet sht.Name = "MonFichierExcell" End With
'insérer les filtres sht.Range(sht.Cells(1, 1), sht.Cells(1, 6)).AutoFilter
etc... etc... la liste n'est pas exhaustive '====================== 'pour écriture dans Excell nbrenreg = t3.RecordCount t3.MoveFirst
For nbrenregistrement = 1 To nbrenreg 'écrire dans excell For f = 1 To 6 sht.Cells(nbrenregistrement , f).Value = t3(f ) Next f 'enregistrement suivant t3.MoveNext Next nbrenregistrement
'sauvergarder les données et fermer la table Excell wbk.SaveAs ("C:Documents and SettingsUserBureau" & "Ma premièreSauvegarde") wbk.Close xlApp.Quit
'Ne pas oublier de libèrer les objets Set sht = Nothing Set wbk = Nothing Set xlApp = Nothing
Esperant t'avoir aider Pascal
"Philippe T [MS]" a écrit dans le message de news: #
Bonjour,
Il est toujours possible de faire des choses du genre :
Dim objXL Set objXL = WScript.CreateObject("Excel.Application")
objXL.Cells(1, 1).Value = "Mon texte"
---------------------------------------------------------------------- Philippe TROTIN - Microsoft Service France
"Fredo" wrote in message news:426227e6$0$6816$
bonjour à toutes et à tous
peut-on remplir un fichier Excel automatiquement, par l'intermédiaire d'une requête par exemple? ça m'éviterai de refaire à chaque fois la mise en page de mon fichier Excel (en-tête, pied de page, impression, etc.)
Merci
salut,
par automation tu peux tout faire
Par exemple:
'ouvrir le fichier Excell
Dim xlApp As Excel.Application
Dim wbk As Excel.Workbook
Dim sht As Excel.Worksheet
'Créer un objet Excell
Set xlApp = CreateObject("Excel.Application")
With xlApp
' Rendre Excell visible
.Visible = True
' Créer un nouveau classeur
Set wbk = .Workbooks.Add
' Instancier la feuille active dans le classeur
Set sht = wbk.ActiveSheet
sht.Name = "MonFichierExcell"
End With
'insérer les filtres
sht.Range(sht.Cells(1, 1), sht.Cells(1, 6)).AutoFilter
etc...
etc... la liste n'est pas exhaustive
'====================== 'pour écriture dans Excell
nbrenreg = t3.RecordCount
t3.MoveFirst
For nbrenregistrement = 1 To nbrenreg
'écrire dans excell
For f = 1 To 6
sht.Cells(nbrenregistrement , f).Value = t3(f )
Next f
'enregistrement suivant
t3.MoveNext
Next nbrenregistrement
'sauvergarder les données et fermer la table Excell
wbk.SaveAs ("C:Documents and SettingsUserBureau" & "Ma
premièreSauvegarde")
wbk.Close
xlApp.Quit
'Ne pas oublier de libèrer les objets
Set sht = Nothing
Set wbk = Nothing
Set xlApp = Nothing
Esperant t'avoir aider
Pascal
"Philippe T [MS]" <ptrotin@online.microsoft.com> a écrit dans le message de
news: #MhjHEzQFHA.4092@TK2MSFTNGP10.phx.gbl...
Bonjour,
Il est toujours possible de faire des choses du genre :
Dim objXL
Set objXL = WScript.CreateObject("Excel.Application")
objXL.Cells(1, 1).Value = "Mon texte"
----------------------------------------------------------------------
Philippe TROTIN - Microsoft Service France
"Fredo" <Fredo@none.fr> wrote in message
news:426227e6$0$6816$636a15ce@news.free.fr...
bonjour à toutes et à tous
peut-on remplir un fichier Excel automatiquement, par l'intermédiaire
d'une requête par exemple?
ça m'éviterai de refaire à chaque fois la mise en page de mon fichier
Excel (en-tête, pied de page, impression, etc.)
'ouvrir le fichier Excell Dim xlApp As Excel.Application Dim wbk As Excel.Workbook Dim sht As Excel.Worksheet
'Créer un objet Excell Set xlApp = CreateObject("Excel.Application") With xlApp ' Rendre Excell visible .Visible = True ' Créer un nouveau classeur Set wbk = .Workbooks.Add ' Instancier la feuille active dans le classeur Set sht = wbk.ActiveSheet sht.Name = "MonFichierExcell" End With
'insérer les filtres sht.Range(sht.Cells(1, 1), sht.Cells(1, 6)).AutoFilter
etc... etc... la liste n'est pas exhaustive '====================== 'pour écriture dans Excell nbrenreg = t3.RecordCount t3.MoveFirst
For nbrenregistrement = 1 To nbrenreg 'écrire dans excell For f = 1 To 6 sht.Cells(nbrenregistrement , f).Value = t3(f ) Next f 'enregistrement suivant t3.MoveNext Next nbrenregistrement
'sauvergarder les données et fermer la table Excell wbk.SaveAs ("C:Documents and SettingsUserBureau" & "Ma premièreSauvegarde") wbk.Close xlApp.Quit
'Ne pas oublier de libèrer les objets Set sht = Nothing Set wbk = Nothing Set xlApp = Nothing
Esperant t'avoir aider Pascal
"Philippe T [MS]" a écrit dans le message de news: #
Bonjour,
Il est toujours possible de faire des choses du genre :
Dim objXL Set objXL = WScript.CreateObject("Excel.Application")
objXL.Cells(1, 1).Value = "Mon texte"
---------------------------------------------------------------------- Philippe TROTIN - Microsoft Service France
"Fredo" wrote in message news:426227e6$0$6816$
bonjour à toutes et à tous
peut-on remplir un fichier Excel automatiquement, par l'intermédiaire d'une requête par exemple? ça m'éviterai de refaire à chaque fois la mise en page de mon fichier Excel (en-tête, pied de page, impression, etc.)
