je suis à la recherche d'une procédure XL qui me permettrait de
lancer l'impression ou la prévisualisation d'un état Access depuis XL.
En fait le fichier XL est attaché au fichier Access, et après mise à jour
des données dans XL, j'aimerais pourvoir lancer l'impression sans sortir
d'Excel et si possible en refermant Access après impression afin que cette
procédure soit transparente pour les utilisateurs.
Est-ce possible ?
Merci d'avance à ceux qui pourraient me mettre sur la voie.
J'ai aussi reçu une solution avec une approche différente de Raymond [mvp] sur le forum Access.
Je conserve les solutions à la disposition de ceux qui en auraient besoin.
Jac
"Jac" a écrit dans le message de news: 41ca1ae4$0$5038$
Pour info, j'ai transmis la bonne parole au forum Access à qui j'avais aussi posé la question.
Jac
Philippe.R
Bonjour Jac, Tu ne veux pas la publier ici ? Elle deviendrait ainsi disponible pour tous, y compris dans les archives du forum. Pour les questions de communication inter applications, la question est souvent abordée par les deux extrémités. -- Amicales Salutations
"Jac" a écrit dans le message de news: 41cb6a4e$0$16425$
J'ai aussi reçu une solution avec une approche différente de Raymond [mvp] sur le forum Access.
Je conserve les solutions à la disposition de ceux qui en auraient besoin.
Jac
"Jac" a écrit dans le message de news: 41ca1ae4$0$5038$
Pour info, j'ai transmis la bonne parole au forum Access à qui j'avais aussi posé la question.
Jac
Bonjour Jac,
Tu ne veux pas la publier ici ?
Elle deviendrait ainsi disponible pour tous, y compris dans les archives du forum.
Pour les questions de communication inter applications, la question est souvent abordée par les deux
extrémités.
--
Amicales Salutations
"Jac" <Jsanspam@fra.net> a écrit dans le message de news: 41cb6a4e$0$16425$626a14ce@news.free.fr...
J'ai aussi reçu une solution avec une approche différente de Raymond [mvp] sur le forum Access.
Je conserve les solutions à la disposition de ceux qui en auraient besoin.
Jac
"Jac" <Jsanspam@fra.net> a écrit dans le message de news: 41ca1ae4$0$5038$636a15ce@news.free.fr...
Pour info, j'ai transmis la bonne parole au forum Access à qui j'avais aussi posé la question.
Bonjour Jac, Tu ne veux pas la publier ici ? Elle deviendrait ainsi disponible pour tous, y compris dans les archives du forum. Pour les questions de communication inter applications, la question est souvent abordée par les deux extrémités. -- Amicales Salutations
"Jac" a écrit dans le message de news: 41cb6a4e$0$16425$
J'ai aussi reçu une solution avec une approche différente de Raymond [mvp] sur le forum Access.
Je conserve les solutions à la disposition de ceux qui en auraient besoin.
Jac
"Jac" a écrit dans le message de news: 41ca1ae4$0$5038$
Pour info, j'ai transmis la bonne parole au forum Access à qui j'avais aussi posé la question.
Jac
Jac
Salut Philippe, bien sûr que je la publie. Pas de problème.
?????????????????????????????????????????????????????????? "Raymond [mvp]" a écrit dans le message de news:
Bonjour.
je viens de lire la procédure de Patrick Morange et il me semble qu'elle recèle plusieurs anomalies, dont le DoCmd.Close qui n'a jamais fermé access mais seulement l'objet actif.
Je me suis attelé à l'automation excel-access et je te donne ci-dessous les fonctions à placer dans un module dans ton classeur excel.
Option Explicit
Sub macro1() ReportPrint "c:bd1_2002.mdb", "etat1", acViewNormal End Sub
Sub ReportPrint(PathName As String, ReportName As String, _ Optional View As AcView = acViewNormal) Dim Acc_App As New Access.Application With Acc_App .Visible = True .OpenCurrentDatabase (PathName) .DoCmd.OpenReport ReportName, View If View <> acViewPreview Then .CloseCurrentDatabase .Quit End If End With Set Acc_App = Nothing End Sub
remplace "c:bd1_2002.mdb" et "etat1" par tes noms réels , et exécute la macro macro1. la procédure ci-dessus permet d'imprimer ou pré-visualiser ton état. Elle peut être améliorée.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
Salut Philippe,
bien sûr que je la publie. Pas de problème.
??????????????????????????????????????????????????????????
"Raymond [mvp]" <XYZ.officesystem.access@free.fr> a écrit dans le message de
news: Or09YxN6EHA.1596@tk2msftngp13.phx.gbl...
Bonjour.
je viens de lire la procédure de Patrick Morange et il me semble qu'elle
recèle plusieurs anomalies, dont le DoCmd.Close qui n'a jamais fermé
access mais seulement l'objet actif.
Je me suis attelé à l'automation excel-access et je te donne ci-dessous
les fonctions à placer dans un module dans ton classeur excel.
Option Explicit
Sub macro1()
ReportPrint "c:bd1_2002.mdb", "etat1", acViewNormal
End Sub
Sub ReportPrint(PathName As String, ReportName As String, _
Optional View As AcView = acViewNormal)
Dim Acc_App As New Access.Application
With Acc_App
.Visible = True
.OpenCurrentDatabase (PathName)
.DoCmd.OpenReport ReportName, View
If View <> acViewPreview Then
.CloseCurrentDatabase
.Quit
End If
End With
Set Acc_App = Nothing
End Sub
remplace "c:bd1_2002.mdb" et "etat1" par tes noms réels , et exécute la
macro macro1.
la procédure ci-dessus permet d'imprimer ou pré-visualiser ton état. Elle
peut être améliorée.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
Salut Philippe, bien sûr que je la publie. Pas de problème.
?????????????????????????????????????????????????????????? "Raymond [mvp]" a écrit dans le message de news:
Bonjour.
je viens de lire la procédure de Patrick Morange et il me semble qu'elle recèle plusieurs anomalies, dont le DoCmd.Close qui n'a jamais fermé access mais seulement l'objet actif.
Je me suis attelé à l'automation excel-access et je te donne ci-dessous les fonctions à placer dans un module dans ton classeur excel.
Option Explicit
Sub macro1() ReportPrint "c:bd1_2002.mdb", "etat1", acViewNormal End Sub
Sub ReportPrint(PathName As String, ReportName As String, _ Optional View As AcView = acViewNormal) Dim Acc_App As New Access.Application With Acc_App .Visible = True .OpenCurrentDatabase (PathName) .DoCmd.OpenReport ReportName, View If View <> acViewPreview Then .CloseCurrentDatabase .Quit End If End With Set Acc_App = Nothing End Sub
remplace "c:bd1_2002.mdb" et "etat1" par tes noms réels , et exécute la macro macro1. la procédure ci-dessus permet d'imprimer ou pré-visualiser ton état. Elle peut être améliorée.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
