Bonjour tout le monde,
Via un combobox d'Access j'ouvre un fichier Excel selectionne une feuille
l'imprime puis ferme ce fichier excel. Par contre ce qui m'embete c'est que
Access me demande toujours si je veux sauver ou non mon fichier excel.
Comment faire pour qu'il sauve automatiquement ou non, peu importe, sans un
message de la part d'access ?
End Sub
*****************************************************************************************************************************************************************************************************************************
Dans Excel :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
Application.DisplayAlerts = False
End Sub
Private Sub Workbook_Open()
ActiveWorkbook.RefreshAll
End Sub
Pour que Workbooks soit reconnu dans Access, tu as bien dû le déclare r quelque part ?
ça serait intéressant de savoir comment se présente cette déclara tion, de là on pourrait savoir si on doit remonter d'un cran pour aller à l'objet Application d'Excel comme par exemple :
Set appExc = Workbooks.Parent
Ensuite, un petit coup d'il dans l'aide d'Excel te permettra de corriger ce que j'écris ci-après ;)
appExc.ActiveWorkbook.Save
ou peut-être
appExc.SaveAll
File voir quelques billes de plus, après au besoin j'allume ma machine où il y a Excel.
End Sub *********************************************************************** ************************************************************************* ************************************************************************* ****
Dans Excel :
Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Save Application.DisplayAlerts = False End Sub
Private Sub Workbook_Open() ActiveWorkbook.RefreshAll End Sub
Michel a écrit, le 27/12/2007 19:15 :
Comment faire pour qu'il sauve automatiquement ou non, peu importe, san s un
message de la part d'access ?
Pour que Workbooks soit reconnu dans Access, tu as bien dû le déclare r
quelque part ?
ça serait intéressant de savoir comment se présente cette déclara tion,
de là on pourrait savoir si on doit remonter d'un cran pour aller à
l'objet Application d'Excel comme par exemple :
Set appExc = Workbooks.Parent
Ensuite, un petit coup d'il dans l'aide d'Excel te permettra de
corriger ce que j'écris ci-après ;)
appExc.ActiveWorkbook.Save
ou peut-être
appExc.SaveAll
File voir quelques billes de plus, après au besoin j'allume ma machine
où il y a Excel.
End Sub
*********************************************************************** ************************************************************************* ************************************************************************* ****
Dans Excel :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
Application.DisplayAlerts = False
End Sub
Private Sub Workbook_Open()
ActiveWorkbook.RefreshAll
End Sub
Pour que Workbooks soit reconnu dans Access, tu as bien dû le déclare r quelque part ?
ça serait intéressant de savoir comment se présente cette déclara tion, de là on pourrait savoir si on doit remonter d'un cran pour aller à l'objet Application d'Excel comme par exemple :
Set appExc = Workbooks.Parent
Ensuite, un petit coup d'il dans l'aide d'Excel te permettra de corriger ce que j'écris ci-après ;)
appExc.ActiveWorkbook.Save
ou peut-être
appExc.SaveAll
File voir quelques billes de plus, après au besoin j'allume ma machine où il y a Excel.
End Sub *********************************************************************** ************************************************************************* ************************************************************************* ****
Dans Excel :
Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Save Application.DisplayAlerts = False End Sub
Private Sub Workbook_Open() ActiveWorkbook.RefreshAll End Sub
Michel_D
Bonjour,
Essaye dans Excel ce qui suit :
Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Save ActiveWorkbook.Saved = True End Sub
"Michel" a écrit dans le message de news:OSdo%
Bonjour tout le monde, Via un combobox d'Access j'ouvre un fichier Excel selectionne une feuille l'imprime puis ferme ce fichier excel. Par contre ce qui m'embete c'est que Access me demande toujours si je veux sauver ou non mon fichier excel. Comment faire pour qu'il sauve automatiquement ou non, peu importe, sans un message de la part d'access ?
Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Save Application.DisplayAlerts = False End Sub
Private Sub Workbook_Open() ActiveWorkbook.RefreshAll End Sub
Bonjour,
Essaye dans Excel ce qui suit :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
ActiveWorkbook.Saved = True
End Sub
"Michel" <mholderiantispam@hotmailantispam.com> a écrit dans le message de news:OSdo%23RLSIHA.4272@TK2MSFTNGP06.phx.gbl...
Bonjour tout le monde,
Via un combobox d'Access j'ouvre un fichier Excel selectionne une feuille
l'imprime puis ferme ce fichier excel. Par contre ce qui m'embete c'est que
Access me demande toujours si je veux sauver ou non mon fichier excel.
Comment faire pour qu'il sauve automatiquement ou non, peu importe, sans un
message de la part d'access ?
Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Save ActiveWorkbook.Saved = True End Sub
"Michel" a écrit dans le message de news:OSdo%
Bonjour tout le monde, Via un combobox d'Access j'ouvre un fichier Excel selectionne une feuille l'imprime puis ferme ce fichier excel. Par contre ce qui m'embete c'est que Access me demande toujours si je veux sauver ou non mon fichier excel. Comment faire pour qu'il sauve automatiquement ou non, peu importe, sans un message de la part d'access ?
Pour que Workbooks soit reconnu dans Access, tu as bien dû le déclarer quelque part ?
ça serait intéressant de savoir comment se présente cette déclaration, de là on pourrait savoir si on doit remonter d'un cran pour aller à l'objet Application d'Excel comme par exemple :
Set appExc = Workbooks.Parent
Ensuite, un petit coup d'il dans l'aide d'Excel te permettra de corriger ce que j'écris ci-après ;)
appExc.ActiveWorkbook.Save
ou peut-être
appExc.SaveAll
File voir quelques billes de plus, après au besoin j'allume ma machine où il y a Excel.
End Sub *****************************************************************************************************************************************************************************************************************************
Dans Excel :
Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Save Application.DisplayAlerts = False End Sub
Private Sub Workbook_Open() ActiveWorkbook.RefreshAll End Sub
Bonjour,
non je n'ai rien declare... c'est peut etre a cause de ca...
Je vais tester demain si ta solution marche ou pas
@+
Michel.
"Gloops" <gloops@niark.invalid> a écrit dans le message de news:
e4dJxMPSIHA.1204@TK2MSFTNGP03.phx.gbl...
Michel a écrit, le 27/12/2007 19:15 :
Comment faire pour qu'il sauve automatiquement ou non, peu importe, sans
un message de la part d'access ?
Pour que Workbooks soit reconnu dans Access, tu as bien dû le déclarer
quelque part ?
ça serait intéressant de savoir comment se présente cette déclaration,
de là on pourrait savoir si on doit remonter d'un cran pour aller à
l'objet Application d'Excel comme par exemple :
Set appExc = Workbooks.Parent
Ensuite, un petit coup d'il dans l'aide d'Excel te permettra de
corriger ce que j'écris ci-après ;)
appExc.ActiveWorkbook.Save
ou peut-être
appExc.SaveAll
File voir quelques billes de plus, après au besoin j'allume ma machine
où il y a Excel.
End Sub
*****************************************************************************************************************************************************************************************************************************
Dans Excel :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
Application.DisplayAlerts = False
End Sub
Private Sub Workbook_Open()
ActiveWorkbook.RefreshAll
End Sub
Pour que Workbooks soit reconnu dans Access, tu as bien dû le déclarer quelque part ?
ça serait intéressant de savoir comment se présente cette déclaration, de là on pourrait savoir si on doit remonter d'un cran pour aller à l'objet Application d'Excel comme par exemple :
Set appExc = Workbooks.Parent
Ensuite, un petit coup d'il dans l'aide d'Excel te permettra de corriger ce que j'écris ci-après ;)
appExc.ActiveWorkbook.Save
ou peut-être
appExc.SaveAll
File voir quelques billes de plus, après au besoin j'allume ma machine où il y a Excel.
End Sub *****************************************************************************************************************************************************************************************************************************
Dans Excel :
Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Save Application.DisplayAlerts = False End Sub
Private Sub Workbook_Open() ActiveWorkbook.RefreshAll End Sub
Michel
bonjour, Merci, je test et je te reviens... @+ Michel.
"Michel_D" a écrit dans le message de news: fl2dr3$5ei$
Bonjour,
Essaye dans Excel ce qui suit :
Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Save ActiveWorkbook.Saved = True End Sub
"Michel" a écrit dans le message de news:OSdo%
Bonjour tout le monde, Via un combobox d'Access j'ouvre un fichier Excel selectionne une feuille l'imprime puis ferme ce fichier excel. Par contre ce qui m'embete c'est que Access me demande toujours si je veux sauver ou non mon fichier excel. Comment faire pour qu'il sauve automatiquement ou non, peu importe, sans un message de la part d'access ?
Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Save Application.DisplayAlerts = False End Sub
Private Sub Workbook_Open() ActiveWorkbook.RefreshAll End Sub
bonjour,
Merci, je test et je te reviens...
@+
Michel.
"Michel_D" <michel.NOSPAM@orange-ft.com.invalid> a écrit dans le message de
news: fl2dr3$5ei$1@news.rd.francetelecom.fr...
Bonjour,
Essaye dans Excel ce qui suit :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
ActiveWorkbook.Saved = True
End Sub
"Michel" <mholderiantispam@hotmailantispam.com> a écrit dans le message de
news:OSdo%23RLSIHA.4272@TK2MSFTNGP06.phx.gbl...
Bonjour tout le monde,
Via un combobox d'Access j'ouvre un fichier Excel selectionne une feuille
l'imprime puis ferme ce fichier excel. Par contre ce qui m'embete c'est
que
Access me demande toujours si je veux sauver ou non mon fichier excel.
Comment faire pour qu'il sauve automatiquement ou non, peu importe, sans
un
message de la part d'access ?
bonjour, Merci, je test et je te reviens... @+ Michel.
"Michel_D" a écrit dans le message de news: fl2dr3$5ei$
Bonjour,
Essaye dans Excel ce qui suit :
Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Save ActiveWorkbook.Saved = True End Sub
"Michel" a écrit dans le message de news:OSdo%
Bonjour tout le monde, Via un combobox d'Access j'ouvre un fichier Excel selectionne une feuille l'imprime puis ferme ce fichier excel. Par contre ce qui m'embete c'est que Access me demande toujours si je veux sauver ou non mon fichier excel. Comment faire pour qu'il sauve automatiquement ou non, peu importe, sans un message de la part d'access ?
Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Save Application.DisplayAlerts = False End Sub
Private Sub Workbook_Open() ActiveWorkbook.RefreshAll End Sub
Michel
Bonjour,
super la commande ActiveWorkbook.Saved = True fait en sorte que ca marche tip-top. Faudra que je vois a quoi ca sert ce truc la.
Un tres grand merci a toi.
@+
Michel.
"Michel_D" a écrit dans le message de news: fl2dr3$5ei$
Bonjour,
Essaye dans Excel ce qui suit :
Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Save ActiveWorkbook.Saved = True End Sub
"Michel" a écrit dans le message de news:OSdo%
Bonjour tout le monde, Via un combobox d'Access j'ouvre un fichier Excel selectionne une feuille l'imprime puis ferme ce fichier excel. Par contre ce qui m'embete c'est que Access me demande toujours si je veux sauver ou non mon fichier excel. Comment faire pour qu'il sauve automatiquement ou non, peu importe, sans un message de la part d'access ?
Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Save Application.DisplayAlerts = False End Sub
Private Sub Workbook_Open() ActiveWorkbook.RefreshAll End Sub
Bonjour,
super la commande ActiveWorkbook.Saved = True fait en sorte que ca marche
tip-top.
Faudra que je vois a quoi ca sert ce truc la.
Un tres grand merci a toi.
@+
Michel.
"Michel_D" <michel.NOSPAM@orange-ft.com.invalid> a écrit dans le message de
news: fl2dr3$5ei$1@news.rd.francetelecom.fr...
Bonjour,
Essaye dans Excel ce qui suit :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
ActiveWorkbook.Saved = True
End Sub
"Michel" <mholderiantispam@hotmailantispam.com> a écrit dans le message de
news:OSdo%23RLSIHA.4272@TK2MSFTNGP06.phx.gbl...
Bonjour tout le monde,
Via un combobox d'Access j'ouvre un fichier Excel selectionne une feuille
l'imprime puis ferme ce fichier excel. Par contre ce qui m'embete c'est
que
Access me demande toujours si je veux sauver ou non mon fichier excel.
Comment faire pour qu'il sauve automatiquement ou non, peu importe, sans
un
message de la part d'access ?
super la commande ActiveWorkbook.Saved = True fait en sorte que ca marche tip-top. Faudra que je vois a quoi ca sert ce truc la.
Un tres grand merci a toi.
@+
Michel.
"Michel_D" a écrit dans le message de news: fl2dr3$5ei$
Bonjour,
Essaye dans Excel ce qui suit :
Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Save ActiveWorkbook.Saved = True End Sub
"Michel" a écrit dans le message de news:OSdo%
Bonjour tout le monde, Via un combobox d'Access j'ouvre un fichier Excel selectionne une feuille l'imprime puis ferme ce fichier excel. Par contre ce qui m'embete c'est que Access me demande toujours si je veux sauver ou non mon fichier excel. Comment faire pour qu'il sauve automatiquement ou non, peu importe, sans un message de la part d'access ?
Pour que Workbooks soit reconnu dans Access, tu as bien dû le déclarer quelque part ?
ça serait intéressant de savoir comment se présente cette déclaration, de là on pourrait savoir si on doit remonter d'un cran pour aller à l'objet Application d'Excel comme par exemple :
Set appExc = Workbooks.Parent
Ensuite, un petit coup d'il dans l'aide d'Excel te permettra de corriger ce que j'écris ci-après ;)
appExc.ActiveWorkbook.Save
ou peut-être
appExc.SaveAll
File voir quelques billes de plus, après au besoin j'allume ma machine où il y a Excel.
End Sub *****************************************************************************************************************************************************************************************************************************
Dans Excel :
Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Save Application.DisplayAlerts = False End Sub
Private Sub Workbook_Open() ActiveWorkbook.RefreshAll End Sub
Salut,
J'ai opte pour la solution de michel_d, qui marche super bien (une seule
ligne de commande)
Merci quand meme a toi de m'etre penche sur ma question
@+
Michel.
"Gloops" <gloops@niark.invalid> a écrit dans le message de news:
e4dJxMPSIHA.1204@TK2MSFTNGP03.phx.gbl...
Michel a écrit, le 27/12/2007 19:15 :
Comment faire pour qu'il sauve automatiquement ou non, peu importe, sans
un message de la part d'access ?
Pour que Workbooks soit reconnu dans Access, tu as bien dû le déclarer
quelque part ?
ça serait intéressant de savoir comment se présente cette déclaration,
de là on pourrait savoir si on doit remonter d'un cran pour aller à
l'objet Application d'Excel comme par exemple :
Set appExc = Workbooks.Parent
Ensuite, un petit coup d'il dans l'aide d'Excel te permettra de
corriger ce que j'écris ci-après ;)
appExc.ActiveWorkbook.Save
ou peut-être
appExc.SaveAll
File voir quelques billes de plus, après au besoin j'allume ma machine
où il y a Excel.
End Sub
*****************************************************************************************************************************************************************************************************************************
Dans Excel :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
Application.DisplayAlerts = False
End Sub
Private Sub Workbook_Open()
ActiveWorkbook.RefreshAll
End Sub
Pour que Workbooks soit reconnu dans Access, tu as bien dû le déclarer quelque part ?
ça serait intéressant de savoir comment se présente cette déclaration, de là on pourrait savoir si on doit remonter d'un cran pour aller à l'objet Application d'Excel comme par exemple :
Set appExc = Workbooks.Parent
Ensuite, un petit coup d'il dans l'aide d'Excel te permettra de corriger ce que j'écris ci-après ;)
appExc.ActiveWorkbook.Save
ou peut-être
appExc.SaveAll
File voir quelques billes de plus, après au besoin j'allume ma machine où il y a Excel.
End Sub *****************************************************************************************************************************************************************************************************************************
Dans Excel :
Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Save Application.DisplayAlerts = False End Sub
Private Sub Workbook_Open() ActiveWorkbook.RefreshAll End Sub