Bonjour =E0 tous
A l'execution d'une requete d'ajout je transfert des=20
donnees vers une tabble T_transfert.
ensuite =E0 partir de celle-ci j'envoi les donn=E9es vers=20
excel.
mon probleme est que quand il n'y a rien dans la=20
T_transfert je veux arreter le transfert vers excel.
Comment doit-on faire ?
je joint le d=E9but de mon code pour que vous compreniez=20
mieux que mes explications
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Dim rs As New ADODB.Recordset
Dim ex As New Excel.Application
ex.Visible =3D True
ex.Workbooks.Add "C:\Documents and=20
Settings\gilou\Bureau\test graph"
ex.Range("b8").Select
rs.Open "select * from T_transfert",=20
CurrentProject.Connection, adOpenDynamic, adLockReadOnly
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
Pierre CFI [mvp]
bonjour avant méme de commencer le code pour excel, teste la table T_transfert
if dcount("*","T_transfert") = 0 then msgbox "rien" exit sub end if -- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "gilou" a écrit dans le message de news:0a7601c4e4e9$590d8e30$ Bonjour à tous A l'execution d'une requete d'ajout je transfert des donnees vers une tabble T_transfert. ensuite à partir de celle-ci j'envoi les données vers excel. mon probleme est que quand il n'y a rien dans la T_transfert je veux arreter le transfert vers excel. Comment doit-on faire ? je joint le début de mon code pour que vous compreniez mieux que mes explications
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Dim rs As New ADODB.Recordset Dim ex As New Excel.Application ex.Visible = True ex.Workbooks.Add "C:Documents and SettingsgilouBureautest graph" ex.Range("b8").Select
rs.Open "select * from T_transfert", CurrentProject.Connection, adOpenDynamic, adLockReadOnly
bonjour
avant méme de commencer le code pour excel, teste la table T_transfert
if dcount("*","T_transfert") = 0 then
msgbox "rien"
exit sub
end if
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"gilou" <anonymous@discussions.microsoft.com> a écrit dans le message de news:0a7601c4e4e9$590d8e30$a301280a@phx.gbl...
Bonjour à tous
A l'execution d'une requete d'ajout je transfert des
donnees vers une tabble T_transfert.
ensuite à partir de celle-ci j'envoi les données vers
excel.
mon probleme est que quand il n'y a rien dans la
T_transfert je veux arreter le transfert vers excel.
Comment doit-on faire ?
je joint le début de mon code pour que vous compreniez
mieux que mes explications
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Dim rs As New ADODB.Recordset
Dim ex As New Excel.Application
ex.Visible = True
ex.Workbooks.Add "C:Documents and
SettingsgilouBureautest graph"
ex.Range("b8").Select
rs.Open "select * from T_transfert",
CurrentProject.Connection, adOpenDynamic, adLockReadOnly
bonjour avant méme de commencer le code pour excel, teste la table T_transfert
if dcount("*","T_transfert") = 0 then msgbox "rien" exit sub end if -- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "gilou" a écrit dans le message de news:0a7601c4e4e9$590d8e30$ Bonjour à tous A l'execution d'une requete d'ajout je transfert des donnees vers une tabble T_transfert. ensuite à partir de celle-ci j'envoi les données vers excel. mon probleme est que quand il n'y a rien dans la T_transfert je veux arreter le transfert vers excel. Comment doit-on faire ? je joint le début de mon code pour que vous compreniez mieux que mes explications
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Dim rs As New ADODB.Recordset Dim ex As New Excel.Application ex.Visible = True ex.Workbooks.Add "C:Documents and SettingsgilouBureautest graph" ex.Range("b8").Select
rs.Open "select * from T_transfert", CurrentProject.Connection, adOpenDynamic, adLockReadOnly
merci pierre pour ton aide aussi rapide si je comprend bien ce que tu me dis c'est avant le code que j'ai joint dans mon message !
-----Message d'origine----- bonjour avant méme de commencer le code pour excel, teste la table T_transfert
if dcount("*","T_transfert") = 0 then msgbox "rien" exit sub end if -- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "gilou" a écrit dans le message de news:0a7601c4e4e9$590d8e30
$
Bonjour à tous A l'execution d'une requete d'ajout je transfert des donnees vers une tabble T_transfert. ensuite à partir de celle-ci j'envoi les données vers excel. mon probleme est que quand il n'y a rien dans la T_transfert je veux arreter le transfert vers excel. Comment doit-on faire ? je joint le début de mon code pour que vous compreniez mieux que mes explications
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Dim rs As New ADODB.Recordset Dim ex As New Excel.Application ex.Visible = True ex.Workbooks.Add "C:Documents and SettingsgilouBureautest graph" ex.Range("b8").Select
rs.Open "select * from T_transfert", CurrentProject.Connection, adOpenDynamic, adLockReadOnly
merci pierre pour ton aide aussi rapide
si je comprend bien ce que tu me dis c'est avant le code
que j'ai joint dans mon message !
-----Message d'origine-----
bonjour
avant méme de commencer le code pour excel, teste la
table T_transfert
if dcount("*","T_transfert") = 0 then
msgbox "rien"
exit sub
end if
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"gilou" <anonymous@discussions.microsoft.com> a écrit
dans le message de news:0a7601c4e4e9$590d8e30
$a301280a@phx.gbl...
Bonjour à tous
A l'execution d'une requete d'ajout je transfert des
donnees vers une tabble T_transfert.
ensuite à partir de celle-ci j'envoi les données vers
excel.
mon probleme est que quand il n'y a rien dans la
T_transfert je veux arreter le transfert vers excel.
Comment doit-on faire ?
je joint le début de mon code pour que vous compreniez
mieux que mes explications
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Dim rs As New ADODB.Recordset
Dim ex As New Excel.Application
ex.Visible = True
ex.Workbooks.Add "C:Documents and
SettingsgilouBureautest graph"
ex.Range("b8").Select
rs.Open "select * from T_transfert",
CurrentProject.Connection, adOpenDynamic, adLockReadOnly
merci pierre pour ton aide aussi rapide si je comprend bien ce que tu me dis c'est avant le code que j'ai joint dans mon message !
-----Message d'origine----- bonjour avant méme de commencer le code pour excel, teste la table T_transfert
if dcount("*","T_transfert") = 0 then msgbox "rien" exit sub end if -- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "gilou" a écrit dans le message de news:0a7601c4e4e9$590d8e30
$
Bonjour à tous A l'execution d'une requete d'ajout je transfert des donnees vers une tabble T_transfert. ensuite à partir de celle-ci j'envoi les données vers excel. mon probleme est que quand il n'y a rien dans la T_transfert je veux arreter le transfert vers excel. Comment doit-on faire ? je joint le début de mon code pour que vous compreniez mieux que mes explications
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Dim rs As New ADODB.Recordset Dim ex As New Excel.Application ex.Visible = True ex.Workbooks.Add "C:Documents and SettingsgilouBureautest graph" ex.Range("b8").Select
rs.Open "select * from T_transfert", CurrentProject.Connection, adOpenDynamic, adLockReadOnly