Bjr à tous et à Pascal76 en particulier
Mon fichier à Pb faisant 26 mégas (plus de 35 feuilles ou souvent toutes les colonnes sont utilisées, 10 form, et des centaines de noms de cellules, sans parler du code...) je ne vais pas tout joindre.
J'ai juste fait un copier-coller de ce qui ne marche pas ... et qui se trouve très bien marcher quand transféré dans un autre file... Mais même comme çà, ça dépasse les 50 Ko que nous tolère XLD
Donc je te recopie les lignes ci-dessous... pas de quoi fouetter un chat (Mraoooun qu'est-ce que j'ai encore fait ?)
Bon, c'est ci-dessous... si tu vois un hic, merci de me faire signe
----------------------------------------------------------------------------------------
Option Explicit
Private Sub Workbook_Open()
MsgBox "je suis en routine d'ouverture"
Ecran_Ouverture.Show ' et toute la routine d'ouverture est transférée dans le userform
Application.WindowState = xlMaximized ' agrandir la fenetre au max
End Sub
-----------------------------------------------------------------------------------------
Et je t'ajoute (-sans grand intérêt, car dans mon fichier test ça marche, et que dans mon fichier principal, ça plante) le code du userform appelé Ecran_Ouverture
Private Sub UserForm_Activate()
' jolie routine de progress bar
Dim NbFois, newHour, newMinute, newSecond, waitTime
For NbFois = 1 To 10
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 1
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
ProgressBar1.Value = 11 - NbFois
Next
ProgressBar1.Visible = False
Dim i, j As Integer
Dim sFeuille, sNomBouton As String
' c'est la routine auto éxécutable au début du classeur
Worksheets("MENU").Activate
Application.Caption = "Gestion centralisée de discothèque GESNUIT V.5"
' bloquer les ascenseurs de cette page
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayGridlines = False
' on cache les barres d'outils
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Standard").Visible = False
Application.DisplayStatusBar = False
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
' Worksheets("P_Secret").Visible = xlVeryHidden
' **** now nommer les boutons du menu -------------
' RAZ_boutons_menu ' module 1
' ColoreBoutonsMenu ' procédure spéciale du module 1
Application.ScreenUpdating = True ' on peut à nouveau rafraichir l'écran
Ecran_Ouverture.Hide
End Sub
--------------------------------------------------------------------------------------------
Help, que ce passe t'il (j'ai relancé une compilation conseillée par TI dans vériTi, j'ai testé avec un arrêt sur toutes erreurs, rien n'y fait.
En fait je me demande si je ne serais pas arrivé aux limites de taille d'un fichier Excel. Qq1 connait des fichiers de plus de 20 mégas qui fonctionnent bien ? moi je n'avais guère dépassé les 12 mégas avant. J'ajoute que je teste le programme aussi bien sur du 256 que sur du 512 magés... résultat idem.
J'ai mal aux cheveux !
@ bientôt...
