VBA - Export de fichier dans Excel
remus83
Messages postés
1
Date d'inscription
mardi 30 septembre 2008
Statut
Membre
Dernière intervention
1 octobre 2008
-
1 oct. 2008 à 00:06
bigfish_le vrai Messages postés 1835 Date d'inscription vendredi 13 mai 2005 Statut Membre Dernière intervention 20 novembre 2013 - 1 oct. 2008 à 20:36
bigfish_le vrai Messages postés 1835 Date d'inscription vendredi 13 mai 2005 Statut Membre Dernière intervention 20 novembre 2013 - 1 oct. 2008 à 20:36
2 réponses
LIBRE_MAX
Messages postés
1402
Date d'inscription
mardi 1 mai 2007
Statut
Membre
Dernière intervention
7 octobre 2012
6
1 oct. 2008 à 02:41
1 oct. 2008 à 02:41
Bonsoir,
Si ta page Excel est toujours la même au niveau des colones exportées:
1-Faire un fichir modèle avec une mise en page personnalisée.
2-Automatiser la procédure exportation.
Pour ceci, perso j' utilise la méthode suivante:
Sub EXPORTER()
Dim sQuery As String
Dim rs As Recordset
'Construire l' expression de la requete selon les critères filtres.
sQuery="SELECT ..."
'instancier le recordset
Set rs = CirrentDB.OpenRecordset(sQuery, dbOpenSnapshot)
Dim sDestination As String
sDestination=<chemin et nom du classeur Excel>
'variable classeur Excel
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open(sDestination)
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)
With wsExcel
'Réinitialiser la page en supprimant le contenu des 'cellules à partir de la ligne des données (A8 par exemple)
.Range("A8").ClearContents
'... REMPLISSAGE
.Range("A8").CopyFromRecordset rs
'Fermer en sauvegardant
.Close True
End With
'...Détruire les objets Excel
Set appExcel = Nothing
Set wbExcel = Nothing
Set wsExcel = Nothing
'...Fermer et détruire l' objet recordset
rs.Close
Set rs = Nothing
End Sub
J' espère que cela te conviendera.
<hr />
[] Ce qui va sans dire. va mieux en le disant.
<hr />
Si ta page Excel est toujours la même au niveau des colones exportées:
1-Faire un fichir modèle avec une mise en page personnalisée.
2-Automatiser la procédure exportation.
Pour ceci, perso j' utilise la méthode suivante:
Sub EXPORTER()
Dim sQuery As String
Dim rs As Recordset
'Construire l' expression de la requete selon les critères filtres.
sQuery="SELECT ..."
'instancier le recordset
Set rs = CirrentDB.OpenRecordset(sQuery, dbOpenSnapshot)
Dim sDestination As String
sDestination=<chemin et nom du classeur Excel>
'variable classeur Excel
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open(sDestination)
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)
With wsExcel
'Réinitialiser la page en supprimant le contenu des 'cellules à partir de la ligne des données (A8 par exemple)
.Range("A8").ClearContents
'... REMPLISSAGE
.Range("A8").CopyFromRecordset rs
'Fermer en sauvegardant
.Close True
End With
'...Détruire les objets Excel
Set appExcel = Nothing
Set wbExcel = Nothing
Set wsExcel = Nothing
'...Fermer et détruire l' objet recordset
rs.Close
Set rs = Nothing
End Sub
J' espère que cela te conviendera.
<hr />
[] Ce qui va sans dire. va mieux en le disant.
<hr />
bigfish_le vrai
Messages postés
1835
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
15
1 oct. 2008 à 20:36
1 oct. 2008 à 20:36
Pour info :
pas dans le bon theme ! pour le VBA c'est ici :
Thèmes / [forum-VISUAL-BASIC_1.aspx Visual Basic 6] / [theme-LANGAGES-DERIVES_287.aspx Langages dérivés] / [theme-VBA_244.aspx VBA] /
pas dans le bon theme ! pour le VBA c'est ici :
Thèmes / [forum-VISUAL-BASIC_1.aspx Visual Basic 6] / [theme-LANGAGES-DERIVES_287.aspx Langages dérivés] / [theme-VBA_244.aspx VBA] /