Microsoft 365 affichage bizarre à la fermeture de mon "usine à gaz"

[Usine à gaz]

Bonjour à toutes et à tous

A la fermeture de mon fichier, j'ai un affichage bizarre lol
Je suis sur la feuille de mon classeur affichage normal :

Quand je ferme mon fichier, j'ai cette affichage :
(uniquement sur les 2 premières lignes les autres restant affichées normalement)

Voici mon code de fermeture :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.MoveAfterReturn = True
Application.EnableEvents = False
Application.ScreenUpdating = False
ActiveWindow.DisplayZeros = False

    Sheets("Repondeurs").Unprotect Password:="Krameri"
    Sheets("Repondeurs").Range("ac1") = ""
    ClearClipboard1

    ActiveWindow.DisplayHeadings = True
     With Application
    .MoveAfterReturn = True
    .MoveAfterReturnDirection = xlToRight
    Application.MoveAfterReturnDirection = xlToRight
    End With
    Trie_Appels

    With Application 'plein écran
    .WindowState = xlMaximized 'window max
    End With
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = False
    Application.ScreenUpdating = True
    Sheets("A Faire").Select
    ActiveWorkbook.Save
    If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close
End Sub

Avez déjà rencontré ce "truc" ? lol
Ce n'est pas gênant et aucune influence sur le fichier et mes feuilles, tout fonctionne bien mais ça "m'énerve " depuis très longtemps.

Merci pour vos retours

 

[job75]

Bonjour Lionel, sylvanu, M12,

Un bug sur [A1] = Workbooks.Count ça sent le fichier corrompu.

Ce qui pourrait expliquer le problème posé au post #1.

A+

 

[Usine à gaz]

Bonjour Lionel, sylvanu, M12,

Un bug sur [A1] = Workbooks.Count ça sent le fichier corrompu.

Ce qui pourrait expliquer le problème posé au post #1.

A+

Bjr Gérard
Merci d'être là.
Je ne crois pas qu'il soit corrompu car il fonctionne très bien.
Tout en fonctionnant nickel, un fichier peut être corrompu ?

 

[Efgé]

Re
La syntaxe est aussi à mettre en cause :

Cordialement

 

[Usine à gaz]

Re
La syntaxe est aussi à mettre en cause :
Regarde la pièce jointe 1156175

Cordialement

Bjr Efgé
Merci pour ce retour

 

[job75]

Je ne crois pas qu'il soit corrompu car il fonctionne très bien.
Tout en fonctionnant nickel, un fichier peut être corrompu ?

Il ne fonctionne pas bien, un bug sur [A1] = Workbooks.Count est tout à fait anormal.

Salut Efgé, oublié de te saluer.

 

[Usine à gaz]

Il ne fonctionne pas bien, un bug sur [A1] = Workbooks.Count est tout à fait anormal.

Salut Efgé, oublié de te saluer.

OUI, je comprends mais le fichier fonctionne "tout bien", les codes les fonctions, les calculs etc...
Comme je l'ai dit en #post15 :

Et si vous nous fournissiez une PJ ?

J'y avait pensé mais pour être certain de reproduire le "phénomène" lol", il faudrait que je joigne mon fichier de travail.
Ca va être long d'anosmiser tout ca. Je verrai si j'ai du temps ce soir.
Sinon, je le ferai ce WE

 

[Efgé]

Re
Et au sujet de

Bonjour à tous
Application.EnableEvents = False dans un Workbook_BeforeClose , vous êtes sûr de vous là ?
Cordialement

Cordialement

 

[job75]

Oui, Application.EnableEvents n'est pas remis à True ce qui peut poser problème si d'autres fichiers restent ouverts.

 

[Usine à gaz]

Re-Gérard, Re Sylvanu, Re Efgé, Re M12 à tous
Le fait que tu me dises que mon fichier peut être "corrompu" me titille grave.
J'ai tout laissé tomber et fait un fichier test. que je joins.

Je suis au poteau et j'attends le peloton d'exécution lol
Ne soyez pas trop durs avec le "bidouilleur que je suis.
Vous allez voir des horreurs de codes bidouillés : Ne me sautez pas dessus
LOL Ne me dites pas : ça marche ce truc ? = OUI, aussi bizarre que ça pourra vous paraître ça fonctionne lol

Seul l'objet du titre du fil est à voir.
Mais vous avez le droit de me corriger tous mes codes lol
Merci à tous de bien vouloir m'aider

 

[Usine à gaz]

Voici quelques explications sur le fonctionnement du fichier :
faut p'être que je vous dise comment je travaille sur ce fichier...
Ne pas appeler
Sert uniquement à mettre les Vendeurs à ne pas rappeler

A Faire
les infos proviennent de la feuille "ClientsCoordonnées" qui est masquée
Son utilité, aucune action sur cette feuille, elle permet par Client de :
- Voir si on a pris les RdVs demandés sur le mois en cours et donne les RdVs pris sur les 3 derniers mois,
- Voir le détail des appels fait le jour en cours les les 3 jours avant
- Au clic sur une cellule = affiche toute la ligne permettant une meilleure visibilité.

Répondeur (là est le gros des actions)
Pour un nouvel appel à affecter, clic sur le bouton "Ajout ligne..."
- on colle le numéro préalablement copier sur site en colonne G (on peut en ajouter un en colonne H)
- En colonne J on note le N° du Client concerné et ses infos se mettent en colonne P
- au clic sur la colonne N, un menu s'affiche pour l'affectation et on affecte :
A rappeler , un calendrier s'affiche pour sélectionner la date de rappel,
Répondeur, la date de rappel se met automatiquement,
Les autres affectations etc...

Voilà les premières explications de fonctionnement.

 

[job75]

Bon je pense que le bug sur [A1] = Workbooks.Count vient du fait que la feuille est protégée.

 

[Usine à gaz]

Bon je pense que le bug sur [A1] = Workbooks.Count vient du fait que la feuille est protégée.

Merci Gérard, je vais voir.
Pardon pour mon fichier compliqué et bidouillé

 

[Usine à gaz]

Re Gérard
"job75 à dit:
Bon je pense que le bug sur [A1] = Workbooks.Count vient du fait que la feuille est protégée."

Oui c'est ça pour le beug
Par contre j'ai toujours :

lol : ça fait des années que je vis avec : je continuerai car fonctionnellement, ça ne gêne pas
Mais bon sang : que ça m'énerve"
D'un autre côté, je suis rassuré quant à un éventuel "fichier corrompu"

 

[TooFatBoy]

Bonjour,

A la fermeture de mon fichier, j'ai un affichage bizarre lol
Je suis sur la feuille de mon classeur affichage normal :

Quand je ferme mon fichier, j'ai cette affichage :
(uniquement sur les 2 premières lignes les autres restant affichées normalement)

Apparemment je suis le seul à me poser la question, mais : en quoi est-ce gênant d'entre-apercevoir deux lignes grises lors de la fermeture d'un fichier, si à l'ouverture suivante tout fonctionne correctement ???

 

[Usine à gaz]

Bonjour,


Apparemment je suis le seul à me poser la question, mais : en quoi est-ce gênant d'entre-apercevoir deux lignes grises lors de la fermeture d'un fichier, si à l'ouverture suivante tout fonctionne correctement ???

Bjr à toi
Ce n'est pas gênant mais je ne trouve pas ça "normal" et ça m'énerve Grrr :::
Mais bon avec mes usines à gaz ... lol