XL 2021 ActiveWorkbook.Save avant Private Sub Workbook_Open()

Usine à gaz · 26 Avril 2023

Bonjour à toutes et à tous 🙂

Et une question bizarre de plus lol 🤣🙃😉

J'ai un code pour enregistrer mon classeur :

VB:

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 :

Code:

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 :

Code:

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 · 7 Mai 2023

Usine à gaz à dit:
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 · 7 Mai 2023

VB:

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 · 7 Mai 2023

TooFatBoy à dit:
VB:

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 · 7 Mai 2023

voilà le code concerné complet :

VB:

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 · 7 Mai 2023

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

TooFatBoy · 7 Mai 2023

Usine à gaz à dit:
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 · 7 Mai 2023

"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 · 7 Mai 2023

Usine à gaz à dit:
"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 · 7 Mai 2023

"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 · 7 Mai 2023

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 · 7 Mai 2023

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 · 7 Mai 2023

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

Bon dimanche

Usine à gaz · 7 Mai 2023

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 · 7 Mai 2023

Usine à gaz à dit:
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 · 7 Mai 2023

TooFatBoy à dit:
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.
🙂

XL 2021 ActiveWorkbook.Save avant Private Sub Workbook_Open()

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires

XL 2021 ActiveWorkbook.Save avant Private Sub Workbook_Open()

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency