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 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: