TheLio
XLDnaute Accro
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?
Merci pour vos lumières
A++
Lionel
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.
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