Usine à gaz
XLDnaute Barbatruc
Bonjour à toutes et à tous
Et une question bizarre de plus lol
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
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 SubDonc mon code de démarrage :
Code:
Private Sub Workbook_Open()
Enregistre
etc...
end subVoilà 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 subJe 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: