Discussion :

[Tournament]

Bonsoir,

j ai le code suivant, qui doit fermer le fichier, enregistrer les modifications et fermer l'application Excel
mais à l'exécution de la macro, le message de confirmation pour les modifications s'affiche quand même

pourriez vous m aider sur la question svp

merci d avance

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Macro2()
'
 
    Sheets("Etat des Bons et Compteur").Select
    ActiveSheet.Unprotect
    ActiveWindow.Close
    Sheets("Etat des Bons et Compteur").Select
    Range("A2:J500").Select
    Selection.ClearContents
    Range("A2").Select
    Sheets("Menu").Select
 
    MsgBox (" Transfert des données réussi, vous allez quitter le fichier ! "), vbOKOnly
 
    Sheets("Etat des Bons et Compteur").Visible = xlVeryHidden
    Sheets("Menu").Select
 
    Application.AlertBeforeOverwriting = False
    ThisWorkbook.Save
    Application.Quit
 
 
End Sub

[Quentin77170]

Salut à toi,

As-tu essayé avec

Code :

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

Application.DisplayAlerts = False

ou simplement

Code :

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

ThisWorkbook.Close SaveChanges:=True

[Tournament]

Salut
j ai testé le 2eme code
simple, efficace !!

merci beaucoup
bonne soirée

ah par contre as tu une explication au non fonctionnement de mon code ?
pour comprendre ...

[Quentin77170]

Je n'ai jamais utilisé cette propriété de l'application, mais d'après la page de MSDN, elle sert à ne pas prévenir dans le cas de déplacement de cellules qui écraseraient d'autres cellules... Ce n'est pas lié au fichier

Sinon, si je peux me permettre, ton code peut être largement amélioré (simplifié, en réalité)... Pour faire simple, tu n'as jamais besoin de sélectionner pour réaliser une action. Ainsi :
Range.Select → Selection.[Action] est lourd, inutile et fait bouger la sélection tout le temps, rendant Excel difficile à regarder sans avoir la nausée !

Il te suffit uniquement de faire Range.[Action]
Exemple sur ton code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Macro2()
'
    Sheets("Etat des Bons et Compteur").Unprotect
    ActiveWindow.Close 'en as-tu vraiment besoin ?
    Sheets("Etat des Bons et Compteur").Range("A2:J500").ClearContents
    MsgBox " Transfert des données réussi, vous allez quitter le fichier ! ", vbOKOnly
    Sheets("Etat des Bons et Compteur").Visible = xlVeryHidden
    Sheets("Menu").Select
 
    ThisWorkbook.Close SaveChanges:=False
 
End Sub

Bon, je n'avais en réalité que 2 ou 3 corrections, mais j'imagine que tes codes sont souvent comme ça, tu dois t'inspirer de l'enregistreur de macros (comme beaucoup ici, dont moi à mes débuts). Mais fais comme ça et tes macros seront largement plus rapides !!

[Tournament]

effectivement tu auras bien noté que je suis un débutant avec un grand D...
Et comment que tu peux te permettre de me donner des conseils, je les prends volontiers !!!

j'en prends bonne note et je te remercie pour ton éclairage

bonne soirée... En attendant surement de revenir solliciter le forum ( génial ! ) pour des aides.