UN VRAI PROBLEME DE TRANSFERT DES DONNEES DE ACCESS A EXCEL
pataccess
Messages postés
39
Date d'inscription
mardi 2 août 2005
Statut
Membre
Dernière intervention
31 mars 2006
-
3 août 2005 à 15:59
apaulux Messages postés 73 Date d'inscription mardi 16 novembre 2004 Statut Membre Dernière intervention 2 octobre 2009 - 3 août 2005 à 20:51
apaulux Messages postés 73 Date d'inscription mardi 16 novembre 2004 Statut Membre Dernière intervention 2 octobre 2009 - 3 août 2005 à 20:51
A voir également:
- UN VRAI PROBLEME DE TRANSFERT DES DONNEES DE ACCESS A EXCEL
- Connexion base de données - Conseils pratiques -PHP
- Copier des données d'une feuille excel à une autre vba - Forum Visual Basic
- Extraire des données d'un fichier excel avec python ✓ - Forum Python
- Importer des données excel dans access vba - Forum Visual Basic
- Exemple base de données e commerce - Forum PHP
1 réponse
apaulux
Messages postés
73
Date d'inscription
mardi 16 novembre 2004
Statut
Membre
Dernière intervention
2 octobre 2009
3 août 2005 à 20:51
3 août 2005 à 20:51
DoCmd. c' est une fonction export d' une elle faite pour exporter une table avec une creation automatique d'une nouvelle table.
http://multibases.site.voila.fr
Dim wd As Object, I As Long, Ligne As Long, N_Lignes As Long
Dim DB As DAO.Database, RS As Recordset, I As Long, J As Long
Set DB = gwsMainWS.OpenDatabase("C:\Documents and Settings\paul\Bureau\Comptoir.mdb", False, gnReadOnly, ";pwd=")
Set wd = CreateObject("Excel.application")
wd.Workbooks.Open ("C:\Documents and Settings\paul\Bureau\DEMO\FICHIER\Fichier.XLS")
wd.Sheets("Clients").Activate
Ligne = 1 'Ligne Nom des champs
Set RS = DB.OpenRecordset("Clients")
With RS
If RS.RecordCount = 0 Then
Beep
RS.Close
DB.Close
wd.Application.Quit: Set wd = Nothing
Exit Sub
Else
.MoveLast
.MoveFirst
N_Lignes = .RecordCount
Do Until RS.EOF
For I = 1 To N_Lignes + 1
Ligne = Ligne + 1
For J = 0 To RS.Fields.Count - 1
wd.Cells(Ligne, J + 1).Value = RS.Fields(J)
Next
RS.MoveNext
Next
Loop
End If
End With
RS.Close
DB.Close
wd.ActiveWorkbook.Save
'Avec Confirmation wd.Workbooks.Save
wd.Workbooks.Close
wd.Application.Quit: Set wd = Nothing
[mailto:paul.ablasou@wanadoo.fr mailto:paul.ablasou@wanadoo.fr]
http://multibases.site.voila.fr
Dim wd As Object, I As Long, Ligne As Long, N_Lignes As Long
Dim DB As DAO.Database, RS As Recordset, I As Long, J As Long
Set DB = gwsMainWS.OpenDatabase("C:\Documents and Settings\paul\Bureau\Comptoir.mdb", False, gnReadOnly, ";pwd=")
Set wd = CreateObject("Excel.application")
wd.Workbooks.Open ("C:\Documents and Settings\paul\Bureau\DEMO\FICHIER\Fichier.XLS")
wd.Sheets("Clients").Activate
Ligne = 1 'Ligne Nom des champs
Set RS = DB.OpenRecordset("Clients")
With RS
If RS.RecordCount = 0 Then
Beep
RS.Close
DB.Close
wd.Application.Quit: Set wd = Nothing
Exit Sub
Else
.MoveLast
.MoveFirst
N_Lignes = .RecordCount
Do Until RS.EOF
For I = 1 To N_Lignes + 1
Ligne = Ligne + 1
For J = 0 To RS.Fields.Count - 1
wd.Cells(Ligne, J + 1).Value = RS.Fields(J)
Next
RS.MoveNext
Next
Loop
End If
End With
RS.Close
DB.Close
wd.ActiveWorkbook.Save
'Avec Confirmation wd.Workbooks.Save
wd.Workbooks.Close
wd.Application.Quit: Set wd = Nothing
[mailto:paul.ablasou@wanadoo.fr mailto:paul.ablasou@wanadoo.fr]
