Validation automatique de message d'erreur

[pierre]

Bonjour le forum,

Je souhaite trouver un code qui, à la fermeture d'un fichier excel, validerai deux messages d'erreurs successifs.

Le premier indique enregistrement interdit. Il faut cliquer sur OK. puis juste derrière un message demande si je veux enregistrer les modifications. Il faut alors cliquer sur non.

Une macro peut-elle le faire automatiquement ? Ou peut-on désactiver les messages d'erreurs qui apparaissent avant la fermeture ?

Merci

 

[Arnaud]

salut,

je ne peut pas t'assurer que ça marche, g pas testé mais essaye ça :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
SendKeys "{ENTER}"

SendKeys "{RIGHT}"
SendKeys "{ENTER}"
End Sub

 

[antoine]

si les messages sont des erreurs au sens premier du terme ( ça plantouille quoi ! donc pas des messages d'avertissement ) , alors tu peut utiliser

on error goto TaGesTionDesErreur :


TaGesTionDesErreur :
code
code
code

antoine

 

[pierre]

Merci à vous deux pour les renseignements.

Je vais essayer ça...

Bonne journée à vous

 

[Arnaud]

le fait que excel te dise que l'enregistrement soit interdis n'est pas un message d'erreur au sens premier du terme et pour le message d'enregistrement des modifs c pareil donc je doute que cela fonctionne 🙁

 

[michel]

bonjour Pierre , Arnaud et Antoine

tu peux essayer de placer dans ThisWorbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Saved = True
'La valeur True permet de fermer un classeur modifié sans l'enregistrer ou sans qu'un message propose de le faire
ActiveWorkbook.Close
End Sub


bonne journee
michel

 

[pierre]

Merci à tous pour les conseil. Ca marche !! Même si on comprend pas toujours pourquoi....
J-ai mis les codes :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
SendKeys "{ENTER}"

SendKeys "{RIGHT}"
SendKeys "{ENTER}"
End Sub

Et ca ne marchai pas. J'ai essayé :

ActiveWorkbook.Saved = True
ActiveWorkbook.Close

Et j'avais uncore un message sur les deux qui apparaissait ("enregistrement interdit").

Mais, aller svoir pourquoi, j'ai mis les deux en même temps et ca fonctionne !!

Merci à vous, Bonne journée

 

[vb_phil]

Bonjour à tous,

Je suis peut-être dans les patates mais la fonction:

Application.Displayalerts =false

Empêche excel d'intervenir lorsque ton code s'exécute

sub test

Application.Displayalerts =false

bla bla bla(ton code)

blablabla(ton code)

Application.Displayalerts =true

end sub


Bonne chance

vb_phil