Bonjour à toutes et à tous ![Smile :) :)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
Et une question bizarre de plus lol![Se rouler par terre de rire :rofl: 🤣](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f923.png)
![Visage à l'envers :upside_down: 🙃](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f643.png)
![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
J'ai un code pour enregistrer mon classeur :
Donc mon code de démarrage :
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 :
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![Smile :) :)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
Et une question bizarre de plus lol
![Se rouler par terre de rire :rofl: 🤣](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f923.png)
![Visage à l'envers :upside_down: 🙃](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f643.png)
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
Dernière édition: