XL 2019 Filtre

[GDINFO]

Bonjour

voila mon pb que je voudrais bien résoudre

j'ai programmer un fermeture d'un fichier EXCEL a une heure précise
Avec suppression des filtres sur les feuilles si il y en a
Le fermeture se passe bien a l'heure précisée mais si il y a des filtres le fermeture supprime bien les filtres mais cela demande confirmation de l'enregistrement

hors je souhaiterais qu'il y ai pas e demande et que le fichier soit enregistrer

De plus je viens de voir qu'a l'ouverture du fichier la case B4 de la feuil1 n'est pas sélectionner a cause de ma saisi dans thisWorkBox

Merci encore une fois de votre aider

 

[Phil69970]

Bonjour @GDINFO

Je te propose 2 solutions pour supprimer le message de confirmation

ThisWorkbook.Close SaveChanges:=True

ou

Application.DisplayAlerts = False

Merci de ton retour

 

[GDINFO]

Bonjour @GDINFO

Je te propose 2 solutions pour supprimer le message de confirmation

ou


Merci de ton retour

avec
ThisWorkbook.Close SaveChanges:=True
cela demande plus confirmation mais juste ferme le fichier et laissse excel ouvert.

 

[Phil69970]

Et avec :

Application.DisplayAlerts = False

Pour fermer excel tu rajoutes

'Fermer excel
Application.Quit

 

[GDINFO]

Et avec :



Pour fermer excel tu rajoutes

Pareil excel ne se ferme pas

 

[Phil69970]

Et comme ceci :

 

[GDINFO]

Et comme ceci :

Là ca fermer rien du tout

 

[Phil69970]

Et cette version

 

[GDINFO]

Et cette version

Là c'est bon
Merci Merci

et encore dans la demande
De plus je viens de voir qu'a l'ouverture du fichier la case B4 de la feuil1 n'est pas sélectionner a cause de ma saisi dans thisWorkBox
je sais pas comment mettre dans le ThisworkBox pour mettre l'heure d'arrêt et lui dire d'aller dans la cellule B4 de la feuille1

 

[job75]

Bonsoir,

Là c'est bon

Ben non, le fichier se ferme mais Excel reste ouvert.

Voici une méthode classique qui va bien qu'il y ait un ou plusieurs fichiers ouverts :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
ThisWorkbook.Save
If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close
End Sub

De plus je viens de voir qu'a l'ouverture du fichier la case B4 de la feuil1 n'est pas sélectionner a cause de ma saisi dans thisWorkBox
je sais pas comment mettre dans le ThisworkBox pour mettre l'heure d'arrêt et lui dire d'aller dans la cellule B4 de la feuille1

Le code doit être placé dans la macro Workbook_Open et pas dans Workbook_Open_1 (qui n'est pas une macro évènementielle).

A+