Sub Workbook_Open()
With Application
.Iteration = True
.MaxIterations = 1
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
Range("A2").Select
End Sub
Hello tous,
J'ai cherché comme il faut dans les archives, mais apparemment, cette question est insolvable et pourtant, insolvable n'est pas XLD
Alors voilà ce que je cherche à faire.
Contourner le message d'avertissement sur les références circulaires à l'ouverture.
Selon toutes vraisemblances, on ne peut que difficilement annuler le message, mais en voyant le cas d'un autre côté, pourrait-on forcer le click sur annuler et déclencher le bout de code ci-dessus?Code:Sub Workbook_Open() With Application .Iteration = True .MaxIterations = 1 .MaxChange = 0.001 End With ActiveWorkbook.PrecisionAsDisplayed = False Range("A2").Select End Sub
Merci pour vos lumières
A++
Lionel
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application
.Calculation = xlManual
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
End Sub
Private Sub Workbook_Open()
Application.Iteration = True
End Sub
pour la suite ?Le but est d'enlever le message d'avertissement à l'ouverture du classeur...
Hello,
Le but est d'enlever le message d'avertissement à l'ouverture du classeur...
Merci
A++
Lionel
Option Explicit
Private Sub Workbook_Open()
With Application
.Iteration = True
.MaxIterations = 1
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
Application.DisplayAlerts = False
End Sub