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]

Je craignais de mettre mon code Workbook_Open par crainte qu'on rit de moi.
Toutefois, je pense qu'il me faut le mettre et que j'airais du commencer par le mettre.

 

[TooFatBoy]

If Sheets("Table").Range("n2") < Date Then
    modepasse
    If Sheets("Table").Range("n2") < Date Then
        RétabliMenu

C'est volontaire ça : deux fois à la suite le même test, et pas de End If ?

 

[Usine à gaz]

If Sheets("Table").Range("n2") < Date Then
    modepasse
    If Sheets("Table").Range("n2") < Date Then
        RétabliMenu

C'est volontaire ça : deux fois à la suite le même test, et pas de End If ?

Bjr TooFatBoy
je vérifie

 

[Usine à gaz]

voilà le code concerné complet :

If Sheets("Table").[n2] < Date + 15 And Sheets("Table").[n2] > Date Then
modepasse
End If
If Sheets("Table").Range("n2") < Date Then
modepasse
If Sheets("Table").Range("n2") < Date Then
RétabliMenu
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.DisplayAlerts = False
    Dim Onglets As Worksheet
For Each Onglets In Worksheets
Onglets.Visible = True
Next Onglets
Sheets("accueil").Select

Dim X As Long
For X = 1 To ThisWorkbook.Sheets.Count
    If Sheets(X).Name <> "Feuil1" Then Sheets(X).Select Replace:=False
Next X
Supprimer
    Application.DisplayAlerts = False
    Dim Sh As Object, s As Shape, fn$
        For Each Sh In Me.Sheets
            If Sh.ProtectContents Then Sh.Protect "", UserInterfaceOnly:=True
        For Each s In Sh.Shapes
            If s.OnAction <> "" Then s.Delete
    Next s, Sh
    fn = Me.FullName
    Me.SaveAs Left(fn, InStrRev(fn, ".") - 1), 51
        Kill fn
        If Workbooks.Count = 1 Then
        Application.Quit
        Else: ThisWorkbook.Close
        End If
    Exit Sub
    Me.Sheets("Recp").Activate
    End If
    End If

 

[Usine à gaz]

Ce code donne 2 essais de MdP et si faux aux 2 essais, le fichier est supprimé

 

[TooFatBoy]

Ce code donne 2 essais de MdP et si faux aux 2 essais, le fichier est supprimé

Au fait... dans le code de #45 on ne voit pas le Stop que je t'avais conseillé de tester. Est-ce normal ?


Bonne fin de journée

 

[Usine à gaz]

"Au fait... dans le code de #45 on ne voit pas le Stop que je t'avais conseillé de tester. Est-ce normal ?"
Après le bug (quand le classeur s'est refermé)... à la réouverture, il n'apparait plus !
Est-ce normal = ça, je ne sais pas

 

[TooFatBoy]

"Au fait... dans le code de #45 on ne voit pas le Stop que je t'avais conseillé de tester. Est-ce normal ?"
Après le bug (quand le classeur s'est refermé)... à la réouverture, il n'apparait plus !
Est-ce normal = ça, je ne sais pas

Un bug qui supprime une instruction dans le VBA... "Est-ce normal"...
La question est vite répondue, non ?

 

[Usine à gaz]

"La question est vite répondue, non ?"
lol, je ne vois pas koi répondre à part ce que j'ai vu
Quant à dire si c'est normal, je ne le pense pas mais je n'ai aucune explication

 

[TooFatBoy]

La réponse est bien évidemment NON : il n'est pas normal qu'en réouvrant le fichier il y ait une instruction de moins dans le code de la macro, et comme par hasard c'est l'instruction Stop...

Tu n'es pas d'accord ? Ca ne te semble pas évident ???

 

[Usine à gaz]

Oui, ça ne me semble pas évident...
Peut-être du au fait qu'à la 1ère ouverture, ça se referme et le "Stop" n'est plus actif à la seconde ouverture qui ne beug pas ???

 

[TooFatBoy]

Bon, j'abandonne. Je laisse Joub75 t'expliquer. Lui, je sais que tu le croiras.


Bon dimanche

 

[Usine à gaz]

Je comprends et déjà je te remercie d'avoir été là

"Bon, j'abandonne. Je laisse Joub75 t'expliquer. Lui, je sais que tu le croiras."
Evidemment, pas question de ne pas te croire, mais je te réponds ce que je vois
Bon dimanche à toi aussi

 

[TooFatBoy]

Evidemment, pas question de ne pas te croire, mais je te réponds ce que je vois

Soit.

Mais si tu ajoutes le Stop en tout début de macro, et que lors de la réouverture du fichier cette instruction n'est plus dans le code de la macro, il n'y a qu'une seule explication possible : tu as oublié de sauvegarder le fichier après avoir ajouté le Stop.

 

[Usine à gaz]

Soit.

Mais si tu ajoutes le Stop en tout début de macro, et que lors de la réouverture du fichier cette instruction n'est plus dans le code de la macro, il n'y a qu'une seule explication possible : tu as oublié de sauvegarder le fichier après avoir ajouté le Stop.

Si, si, si lol
Quand, après avoir ouvert un fichier macros désactivées, je mets le stop et je sauvegarde avant fermeture sinon, je ne pourrais pas réouvrir le fichier.

A la réouverture le fichier s'ouvre normalement, le stop agit bien et je peux faire du pas à pas.
Mais là, je n'en ai plus besoin puisque le fichier fonctionne.

Mais quand, le matin à la 1ère ouverture il beug et se referme, pas possible de mettre le stop puisqu'il se referme illico.