OVH Cloud OVH Cloud

Exporter vers Excel

7 réponses
Avatar
hasardeux
Bonjour,

- j'ai une MDB avec 2 tables "A" et "B".=20
- en outre, j'ai un fichier Excel avec "A" et "B" comme=20
feuilles. Le chemin
de ce fichier est : C:\Project\MyFile.xls

Comment pourrais je faire ce qui suit :=20
- l'exportation des 2 tables "A" et "B" =E0 MyFile.xls en=20
rempla=E7ant les feuilles "A" et
"B", mais gardant les m=EAmes noms "A" et "B". (en raison de=20
plusieurs
liens).

Merci

7 réponses

Avatar
Bonjour
essai :
DoCmd.TransferSpreadsheet acExport, 8, "Table
A", "C:ProjectMyFile.xls", True, "feuille A"


-----Message d'origine-----
Bonjour,

- j'ai une MDB avec 2 tables "A" et "B".
- en outre, j'ai un fichier Excel avec "A" et "B" comme
feuilles. Le chemin
de ce fichier est : C:ProjectMyFile.xls

Comment pourrais je faire ce qui suit :
- l'exportation des 2 tables "A" et "B" à MyFile.xls en
remplaçant les feuilles "A" et
"B", mais gardant les mêmes noms "A" et "B". (en raison
de

plusieurs
liens).

Merci
.



Avatar
Raymond [mvp]
Bonjour.

IL serait logique d'utiliser TransferSpreadsheet mais il se pose un problème
car cet argument n'est valable que pour une importation. Lorsque tu
réalises une exportation vers une feuille de calcul, il faut laisser cet
argument vierge. Si on tape une plage, l'exportation échoue.
Il te reste la solution de passer par automation en incorporant directement
un recordset dans une plage, par ADO. tu trouveras un exemple sur la page :
http://access.seneque.free.fr/transfert_recordset.htm
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"hasardeux" a écrit dans le message de
news:604101c3e641$edfadf90$
Bonjour,

- j'ai une MDB avec 2 tables "A" et "B".
- en outre, j'ai un fichier Excel avec "A" et "B" comme
feuilles. Le chemin
de ce fichier est : C:ProjectMyFile.xls

Comment pourrais je faire ce qui suit :
- l'exportation des 2 tables "A" et "B" à MyFile.xls en
remplaçant les feuilles "A" et
"B", mais gardant les mêmes noms "A" et "B". (en raison de
plusieurs
liens).

Merci
Avatar
Raymond [mvp]
.../...
lire
car l'argument étendue n'est valable que pour une importation
au lieu de
car cet argument n'est valable que pour une importation

excuses
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
Avatar
hasardeux
Bonjour Raymond,

J'ai vu la fonction sur ton site et je l'ai adapté à mon
exemple.

Mais ça débogue sur la ligne:

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
& "C:WindowsBureauTEST.mdb" & ";"

NB: Le bouton de commande auquel j'ai affecté le code se
trouve dans la base de données TEST.mdb, c'est à dire que
la base est ouverte lors de l'exécution.

Merci de m'aider

-----Message d'origine-----
..../...
lire
car l'argument étendue n'est valable que pour une
importation

au lieu de
car cet argument n'est valable que pour une importation

excuses
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


.



Avatar
Raymond [mvp]
je viens de tester ceci qui marche:
Dim conn As New ADODB.Connection
Dim Rs As ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
"C:Documents and SettingsRaymondMes documentsindicatifs.mdb" & ";"
'base ouverte
conn.CursorLocation = adUseClient
Set Rs = conn.Execute("table1", , adCmdTable)

as-tu coché la référence ado et es-tu bien sous 2000 mini ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"hasardeux" a écrit dans le message de
news:5ec101c3e64f$6b0d3b60$
Bonjour Raymond,

J'ai vu la fonction sur ton site et je l'ai adapté à mon
exemple.

Mais ça débogue sur la ligne:

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
& "C:WindowsBureauTEST.mdb" & ";"

NB: Le bouton de commande auquel j'ai affecté le code se
trouve dans la base de données TEST.mdb, c'est à dire que
la base est ouverte lors de l'exécution.

Merci de m'aider
Avatar
hasardeux
Salut Raymond,

Oui j'ai bien coché ADO et je suis sur Access2000.

Mais toujours le même bug.

A +
-----Message d'origine-----
je viens de tester ceci qui marche:
Dim conn As New ADODB.Connection
Dim Rs As ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=" &

"C:Documents and SettingsRaymondMes
documentsindicatifs.mdb" & ";"

'base ouverte
conn.CursorLocation = adUseClient
Set Rs = conn.Execute("table1", , adCmdTable)

as-tu coché la référence ado et es-tu bien sous 2000
mini ?


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"hasardeux" a écrit
dans le message de

news:5ec101c3e64f$6b0d3b60$
Bonjour Raymond,

J'ai vu la fonction sur ton site et je l'ai adapté à mon
exemple.

Mais ça débogue sur la ligne:

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
& "C:WindowsBureauTEST.mdb" & ";"

NB: Le bouton de commande auquel j'ai affecté le code se
trouve dans la base de données TEST.mdb, c'est à dire que
la base est ouverte lors de l'exécution.

Merci de m'aider



.



Avatar
Raymond [mvp]
tu peux me passer ta base en zip obligatoire ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"hasardeux" a écrit dans le message de
news:6d2401c3e679$b1676340$
Salut Raymond,

Oui j'ai bien coché ADO et je suis sur Access2000.

Mais toujours le même bug.