Discussion :

[Ptikir]

Bonjour,

Je voulais savoir, si il était possible d'enregistrer les modifications apportées dans un fichier excel sans demander de confirmation?

J'utilise la commande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
oApp.activeworkbook.Save
oApp.workbooks.Close

Mais il m'ouvre la fenêtre d'enregistrement. Si je clique sur "oui" c'est ok, par contre si je clique sur "non" ou sur "annuler" il me met un message d'erreur comme quoi le fichier est en lecture seule.

Quelqu'un a t-il une idée?

Merci d'avance.

[aalex_38]

Bonjour,

Pas testé

Essai avant ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.displayalerts = false

Apres le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

application.displayalerts = true

[laetitia]

bonjour Ptikir aalex_38 le forum peut être comme cela!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
On Error Resume Next
ActiveWorkbook.SaveAs
On Error GoTo 0
oApp.workbooks.Close

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
On Error Resume Next
oApp.activeworkbook.Save
On Error GoTo 0
oApp.workbooks.Close

[Ptikir]

En mettant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
oApp.displayalerts = False
oApp.activeworkbook.Save
oApp.displayalerts = True

Je n'ai plus d'alertes c'est ce que je veux.

Merci à toi !

[aalex_38]

Bon puisque c'est résolu, c'est parfait, juste un code auquel je n'avais pas pensé hier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks(NomFic).Close savechanges:=False