OVH Cloud OVH Cloud

DoCmd.SetWarnings False = ne marche pas :o(

5 réponses
Avatar
Michel
Bonjour a tous le monde,

Je recherche dans access une fonctionnalite identique que dans VBA excel :
application.displayalerts = false.
Apres des recherches j'ai essaye d'utiliser : DoCmd.SetWarnings False
Mais cela ne marche pas... :o(

J'ai un bouton dans access qui ouvre un fichier excel puis j'imprime une
liste et je veux fermer le fichier excel, sauf qu'il me demande tout le
temps si je veux sauvegarder le fichier excel. Peut importe pour moi soit je
sauvegarde automatiquement ou soit je le ferme sans sauve, tout ce que je
voudrais c'est qu'il n'y ai pas de message.

voila mon code :


Workbooks.Open FileName:="T:\REPORTING\Checklist.xls"

sub essai
Sheets("5600").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Sheets("START").Select
DoCmd.SetWarnings False
' ActiveWorkbook.SaveAs FileName:="T:\REPORTING\Checklist.xls",
FileFormat:= _
' xlNormal, Password:="", CreateBackup:=False
ActiveWindow.Close
end sub


Merci d'avance pour votre aide,

@+

Michel.

5 réponses

Avatar
J-Pierre
Bonsoir Michel,

Ce ne serait pas Excel qui la ramène ? Auquel cas, il faudrait utiliser displayalerts = false. Mais pour la syntaxe exacte, je
ne sais pas......
Ou alors, comme tu le suggères, une fermeture sans sauvegarde, quelque chose du style acSaveNo, mais encore une fois, pour la
syntaxe exacte.....

J-Pierre

"Michel" a écrit dans le message de news: %23wLN$
Bonjour a tous le monde,

Je recherche dans access une fonctionnalite identique que dans VBA excel : application.displayalerts = false.
Apres des recherches j'ai essaye d'utiliser : DoCmd.SetWarnings False
Mais cela ne marche pas... :o(

J'ai un bouton dans access qui ouvre un fichier excel puis j'imprime une liste et je veux fermer le fichier excel, sauf
qu'il me demande tout le temps si je veux sauvegarder le fichier excel. Peut importe pour moi soit je sauvegarde
automatiquement ou soit je le ferme sans sauve, tout ce que je voudrais c'est qu'il n'y ai pas de message.

voila mon code :


Workbooks.Open FileName:="T:REPORTINGChecklist.xls"

sub essai
Sheets("5600").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Sheets("START").Select
DoCmd.SetWarnings False
' ActiveWorkbook.SaveAs FileName:="T:REPORTINGChecklist.xls", FileFormat:= _
' xlNormal, Password:="", CreateBackup:úlse
ActiveWindow.Close
end sub


Merci d'avance pour votre aide,

@+

Michel.



Avatar
Gilbert
Bonjour,

Ta syntaxe est exacte. Il faut juste l'utiliser comme propriété de
l'application Excel.

Dim XL_App As Excel.Application

XL_App.DisplayAlerts = False

Gilbert

"J-Pierre" a écrit dans le message
de news:%
Bonsoir Michel,

Ce ne serait pas Excel qui la ramène ? Auquel cas, il faudrait utiliser
displayalerts = false. Mais pour la syntaxe exacte, je

ne sais pas......
Ou alors, comme tu le suggères, une fermeture sans sauvegarde, quelque
chose du style acSaveNo, mais encore une fois, pour la

syntaxe exacte.....

J-Pierre

"Michel" a écrit dans le message de
news: %23wLN$

Bonjour a tous le monde,

Je recherche dans access une fonctionnalite identique que dans VBA excel
: application.displayalerts = false.


Apres des recherches j'ai essaye d'utiliser : DoCmd.SetWarnings False
Mais cela ne marche pas... :o(

J'ai un bouton dans access qui ouvre un fichier excel puis j'imprime une
liste et je veux fermer le fichier excel, sauf


qu'il me demande tout le temps si je veux sauvegarder le fichier excel.
Peut importe pour moi soit je sauvegarde


automatiquement ou soit je le ferme sans sauve, tout ce que je voudrais
c'est qu'il n'y ai pas de message.



voila mon code :


Workbooks.Open FileName:="T:REPORTINGChecklist.xls"

sub essai
Sheets("5600").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Sheets("START").Select
DoCmd.SetWarnings False
' ActiveWorkbook.SaveAs FileName:="T:REPORTINGChecklist.xls",
FileFormat:= _


' xlNormal, Password:="", CreateBackup:úlse
ActiveWindow.Close
end sub


Merci d'avance pour votre aide,

@+

Michel.







Avatar
J-Pierre
Merci Gilbert

Mais toute la question était là :-) Comme propriété de quoi ?
Ca roule.

J-Pierre
Avatar
Michel
Bonjour,

Merci beaucoup pour le truc tout marche tip-top bien.

mais au lieu de : Dim XL_App As Excel.Application
Il faut mettre Set XL_App As Excel.Application

@+

Michel.


"Gilbert" a écrit dans le message de news:

Bonjour,

Ta syntaxe est exacte. Il faut juste l'utiliser comme propriété de
l'application Excel.

Dim XL_App As Excel.Application

XL_App.DisplayAlerts = False

Gilbert

"J-Pierre" a écrit dans le
message
de news:%
Bonsoir Michel,

Ce ne serait pas Excel qui la ramène ? Auquel cas, il faudrait utiliser
displayalerts = false. Mais pour la syntaxe exacte, je

ne sais pas......
Ou alors, comme tu le suggères, une fermeture sans sauvegarde, quelque
chose du style acSaveNo, mais encore une fois, pour la

syntaxe exacte.....

J-Pierre

"Michel" a écrit dans le message
de
news: %23wLN$

Bonjour a tous le monde,

Je recherche dans access une fonctionnalite identique que dans VBA
excel
: application.displayalerts = false.


Apres des recherches j'ai essaye d'utiliser : DoCmd.SetWarnings False
Mais cela ne marche pas... :o(

J'ai un bouton dans access qui ouvre un fichier excel puis j'imprime
une
liste et je veux fermer le fichier excel, sauf


qu'il me demande tout le temps si je veux sauvegarder le fichier excel.
Peut importe pour moi soit je sauvegarde


automatiquement ou soit je le ferme sans sauve, tout ce que je voudrais
c'est qu'il n'y ai pas de message.



voila mon code :


Workbooks.Open FileName:="T:REPORTINGChecklist.xls"

sub essai
Sheets("5600").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Sheets("START").Select
DoCmd.SetWarnings False
' ActiveWorkbook.SaveAs FileName:="T:REPORTINGChecklist.xls",
FileFormat:= _


' xlNormal, Password:="", CreateBackup:úlse
ActiveWindow.Close
end sub


Merci d'avance pour votre aide,

@+

Michel.











Avatar
Gilbert
Bonjour,

Ca c'est la déclaration de la variable
Dim XL_App As Excel.Application

ensuite tu as quelque chose comme
Set XL_App = CreateObject("Excel.Application")


Gilbert

"Michel" a écrit dans le message de
news:%
Bonjour,

Merci beaucoup pour le truc tout marche tip-top bien.

mais au lieu de : Dim XL_App As Excel.Application
Il faut mettre Set XL_App As Excel.Application

@+

Michel.


"Gilbert" a écrit dans le message de news:

Bonjour,

Ta syntaxe est exacte. Il faut juste l'utiliser comme propriété de
l'application Excel.

Dim XL_App As Excel.Application

XL_App.DisplayAlerts = False

Gilbert

"J-Pierre" a écrit dans le
message
de news:%
Bonsoir Michel,

Ce ne serait pas Excel qui la ramène ? Auquel cas, il faudrait utiliser
displayalerts = false. Mais pour la syntaxe exacte, je

ne sais pas......
Ou alors, comme tu le suggères, une fermeture sans sauvegarde, quelque
chose du style acSaveNo, mais encore une fois, pour la

syntaxe exacte.....

J-Pierre

"Michel" a écrit dans le message
de
news: %23wLN$

Bonjour a tous le monde,

Je recherche dans access une fonctionnalite identique que dans VBA
excel
: application.displayalerts = false.


Apres des recherches j'ai essaye d'utiliser : DoCmd.SetWarnings False
Mais cela ne marche pas... :o(

J'ai un bouton dans access qui ouvre un fichier excel puis j'imprime
une
liste et je veux fermer le fichier excel, sauf


qu'il me demande tout le temps si je veux sauvegarder le fichier
excel.




Peut importe pour moi soit je sauvegarde
automatiquement ou soit je le ferme sans sauve, tout ce que je
voudrais




c'est qu'il n'y ai pas de message.

voila mon code :


Workbooks.Open FileName:="T:REPORTINGChecklist.xls"

sub essai
Sheets("5600").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Sheets("START").Select
DoCmd.SetWarnings False
' ActiveWorkbook.SaveAs FileName:="T:REPORTINGChecklist.xls",
FileFormat:= _


' xlNormal, Password:="", CreateBackup:úlse
ActiveWindow.Close
end sub


Merci d'avance pour votre aide,

@+

Michel.