XL 2021 ActiveWorkbook.Save avant Private Sub Workbook_Open()

[Usine à gaz]

Bonjour à toutes et à tous

Et une question bizarre de plus lol

J'ai un code pour enregistrer mon classeur :

Sub Enregistre()
If [m1] = "TEXTBOX OUVERT" Then Exit Sub
    If [p4] > 0 Then
        ActiveCell.Offset(0, 5).Select
        Exit Sub
    End If
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
    ActiveWorkbook.Save
[A1].Select
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Donc mon code de démarrage :

Private Sub Workbook_Open()
Enregistre
etc...
end sub

Voilà ma question certainement bizarre :
Est-il possible d'enregistrer mon classeur là où il est avant exécution de Private Sub Workbook_Open(), soit :

ActiveWorkbook.Save
Private Sub Workbook_Open()
etc...
end sub

Je serais surpris que ce soit faisable mais avec nos Ténors de chez Ténor.....
Si pas possible avec code Excel, peut être un code Windows ???

Merci à toutes et à tous pour vos retours

 

[TooFatBoy]

Bonjour,

1- Remplacer les Me par ThisWorkbook. Lancer le classeur et voir si ça plante toujours.

2- Si ça plante toujours lors de l'ouverture du classeur, exécuter Workbook_Open en pas-à-pas après l'ouverture du classeur.

3- Si le problème n'est toujours pas trouvé, exécuter Workbook_Open en pas-à-pas lors de l'ouverture du classeur.

4- Donner ici le résultat de chacune des 3 premières étapes.


@+

 

[Usine à gaz]

Bjr TooFatBoy , le Forum,
Bon WE à toutes et à tous

Merci pour ta présence...
Pour l'instant, et depuis plusieurs jours, je teste la solution que m'a donné Gérard #posts 10 et 11.
Sur plusieurs jours, il semble que ça fonctionne ...

TooFatBoy :​

2- Si ça plante toujours lors de l'ouverture du classeur, exécuter Workbook_Open en pas-à-pas après l'ouverture du classeur.
3- Si le problème n'est toujours pas trouvé, exécuter Workbook_Open en pas-à-pas lors de l'ouverture du classeur.

Malheureusement, si ça plante, le fichier se referme immédiatement et donc impossible d'exécuter en pas à pas.

 

[TooFatBoy]

Pour l'instant, et depuis plusieurs jours, je teste la solution que m'a donné Gérard #posts 10 et 11.

Si ça fonctionne, c'est cool.

Ceci dit, il aurait été bien de tester la macro Workbook_Open, avec toutes ses instructions dedans, en mode pas à pas en mettant un Stop.

 

[Usine à gaz]

Si ça fonctionne, c'est cool.

Ceci dit, il aurait été bien de tester la macro Workbook_Open, avec toutes ses instructions dedans, en mode pas à pas en mettant un Stop.

Bon sang ! c'est ce que je voulais faire depuis le début de mon souci. Mais le classeur se referme immédiatement et impossible de trouver comment exécuter en pas à pas

 

[TooFatBoy]

Mais le classeur se referme immédiatement et impossible de trouver comment exécuter en pas à pas

Ça ne me semble pas normal : ça devrait s'arrêter sur le Stop.

 

[Usine à gaz]

Ça ne me semble pas normal : ça devrait s'arrêter sur le Stop.

J'suis bien d'accord
Mais pour mettre un Stop ... faudrait qu'il soit ouvert B....l

 

[TooFatBoy]

Tu l'as mis où ???

 

[Usine à gaz]

Tu l'as mis où ???

lol : je peux pas le mettre

 

[TooFatBoy]

Pourquoi ?

 

[TooFatBoy]

Au cas où... : il faut le mettre en première instruction de ta macro Workbook_Open.

 

[TooFatBoy]

Ah, tu as modifié ta réponse #21.

Mais pour mettre un Stop ... faudrait qu'il soit ouvert B....l

En #3 tu as expliqué que tu arrivais à l'ouvrir...

J'ouvre enfin le fichier qui s'était refermé et là il fonctionne.

 

[Usine à gaz]

Ah, tu as modifié ta réponse #21.



En #3 tu as expliqué que tu arrivais à l'ouvrir...

Oui c'est vrai en ayant au préalable, ouvert un autre classeur et désactivé les macros mais à la réouverture, le Stop ne sert à rien car le classeur fonctionne à nouveau... Tordu comme truc !!! normal c'est un classeur d'Usine à Gaz lol

 

[TooFatBoy]

Oui c'est vrai en ayant au préalable, ouvert un autre classeur et désactivé les macros mais à la réouverture, le Stop ne sert à rien car le classeur fonctionne à nouveau...

Si le classeur fonctionne, il n'y a donc plus de problème.

 

[Usine à gaz]

Si la solution avec Gérard fonctionne (et c'est le cas depuis quelques jours), ce sera génial.

Sinon, tous les matins, je suis obligé :
- d'ouvrir un classeur qui fonctionne,
- de désactiver les macros,
- d'ouvrir tous les autres classeurs 1 par 1,
- de les sauvegarder et de les fermer,
ensuite ça marche,
Grrr !!!

 

[Usine à gaz]

Si le classeur fonctionne, il n'y a donc plus de problème.

Oui mais le lendemain, il ne fonctionne plus lol
Tordu de chez Tordu