Crash intempestif à l'ouverture.

Version imprimable

Voir 40 message(s) de cette discussion en une page

21/11/2019, 21h14
Guillaume G

Crash intempestif à l'ouverture.

Bonjour a tous,

Avant toutes choses un grand merci, je poste pour la premiere fois garde jusqu'a maintenant j'ai trouvé toutes les réponses dans les discussions existantes. Mais la je sais meme pas quoi chercher :weird:

Voici la situation, j'ai developpé un fichier avec servant d'interface dans mon projet 2 USF principales et des données stockées dans les feuilles excel en type BDD.
Lorsque j'ouvre le fichier, ma USF de base (soft 2 boutons) se lance sans soucis toutes mes données se charge dans des Array jusque la nikel.
Ces 2 boutons me permettent d'afficher (selon le choix) une autre USF (beaucoup moins soft, j'ai pas compté mais il y a de nombreux objets de tous type label, listbox, combobox, boutons, listview, ... le tous dans des frames et multipages).

Et la je ne me l'explique pas, Excel "plante" de maniere completement aléatoire (enfin je pense) pendant 3 jours je peux utiliser le fichier sans soucis et d'un coup impossible de dépasser la premiere usf puis quelques minutes plus tard tous refonctionne sans avoir touché a quoique ce soit.
"plante" : J'entends par la une fermeture d'excel sans aucun message d'erreur d'excel ou vba avec création d'un fichier de récupération.

Quelques précisions :
- Le fichier a était utilisé sur plusieurs machines avec des configurations differentes (W7 & W10 et XLS2013 & XLS2016)
- Il est stocké sur un reseau d'entreprise de grande envergure et je n'ai jamais eu ce genre de plantage lorsque le fichier est stocké directement sur mon DD.

Ce que je recherche ce sont des pistes pour pouvoir trouver l'origine de mon probleme donc si vous avez des idées :P:P
(Selon l'evolution de la discussion je posterai une partie ou le fichier, mais je souhaite avant tout essayer de comprendre par moi meme le probleme c'est ma facon d'apprendre :mouarf::mouarf:;):aie: )

D'avance merci

Guillaume
21/11/2019, 22h02
anasecu

Bonjour,

Citation:

Envoyé par Guillaume G

Excel "plante" de maniere completement aléatoire (enfin je pense)

Pas sûr que ce soit de façon inopinée, tu as probablement une raison bien précise mais difficile à localiser du fait de l'imprévisibilité.

J'ai eu un phénomène de ce genre version 2016 sur un classeur fonctionnel avec plusieurs onglets et des tableaux structurés gérés en 'userform' et après maintes recherches j'ai reconstitué un onglet et son tableau sur une nouvelle feuille puis suppression de l'initial : certainement qu'une sauvegarde avait endommagé cette structure de données.

Bon courage car il faut étudier de près les actions qui causent la fermeture brutale et ce n'est pas simple lorsqu'il n'y a pas du systématique.
21/11/2019, 22h11
Guillaume G

Merci pour ta réponse et tes encouragements ;)

En effet, un plantage macro je peux etudier et trouver une solution mais la :calim2:

J'avais pensé a une saturation du reseau au chargement des USF mais en incluant quelques msgbox pour situer le pb c'est jamais au meme endroit :weird:

Actuellement je suis en train de faire une passe sur toutes les macros pour voir si il y a pas une boucle ou je ne sais quoi qui pourrait tourner a l'infinie dans une certaines configuration (une aiguilles dans une botte de foin quoi!)

Mais je n'avais pas pensé au classeur excel lui meme ;) demain j'essai de transferer via un export le tout dans un nouveau classeur. Merci pour l'idée.

Cdlt
21/11/2019, 22h26
unparia

Bonjour

Les causes peuvent être diverses --->>

1)- utilisation de l'évènement initialize pour traiter des objets non encore tous complètement chargés Préférer l'évènement activate

2)- des traitements asynchrones (avec le risque de voir le traitement t2 se lancer avant la fin du traitement t1 dont il doit utiliser des retours

Risque encore accru si erreur surgissant (entre autres du fait des cas 1 ou 2) alors que l'application fait appel à un sous-classement ou à un harponnage ("hooking") mal géré.

-
21/11/2019, 22h36
Guillaume G
Citation:

Envoyé par unparia

1)- utilisation de l'évènement initialize pour traiter des objets non encore tous complètement chargés Préférer l'évènement activate
-

Je vais vérifier cela.

Citation:

Envoyé par unparia

2)- des traitements asynchrones (avec le risque de voir le traitement t2 se lancer avant la fin du traitement t1 dont il doit utiliser des retours
-

Je comprend l'idée mais je pensais que dans les faits vu que c'est une successions de procedures, une procedures ne pouvait pas se lancer avant que la précédante ne soit terminé donc en mettant par exemple :
Code:

1 2 3 4 Sub lancement () call Charg_Table USF1.show End sub
La USF1 ne s'afficherai que lorsque le chargement des tables était fini.
Ce n'est pas le cas ?
21/11/2019, 22h55
unparia

J'ignore (tu es seul à le savoir) ce que fait ta procédure Charg_Table et notamment si elle contient ou non des requêtes en mode asynchrone. Il ne m'est donc pas possible de répondre à ta dernière question.
22/11/2019, 03h34
Transitoire

Bonjour a tous

Citation:

Voici la situation, j'ai developpé un fichier avec servant d'interface dans mon projet 2 USF principales et des données stockées dans les feuilles excel en type BDD.
Lorsque j'ouvre le fichier, ma USF de base (soft 2 boutons) se lance sans soucis toutes mes données se charge dans des Array jusque la nikel.
Ces 2 boutons me permettent d'afficher (selon le choix) une autre USF (beaucoup moins soft, j'ai pas compté mais il y a de nombreux objets de tous type label, listbox, combobox, boutons, listview, ... le tous dans des frames et multipages).

Et la je ne me l'explique pas, Excel "plante" de maniere completement aléatoire (enfin je pense) pendant 3 jours je peux utiliser le fichier sans soucis et d'un coup impossible de dépasser la premiere usf puis quelques minutes plus tard tous refonctionne sans avoir touché a quoique ce soit.
"plante" : J'entends par la une fermeture d'excel sans aucun message d'erreur d'excel ou vba avec création d'un fichier de récupération.

Vous dites que la première USF contient deux boutons. Vous dites ce que fait un bouton et pas l'autre! pourriez vous nous dire ce que fait le deuxième bouton?
J'avais rencontré il y a des années un problème similaire et après moultes recherches infructueuses, j'ai finalement opté pour une réinstallation totale de mon document avec la dernière version qui fonctionnait bien et j'ai rétabli le nouveau d'après celui qui ne marchait pas bien. Bizarrement le nouveau à bien fonctionné. J'ignore pourquoi?:weird:
Après il n'est pas impossible qu'il y ait eu une mise à jour qui entre en conflit avec l'existant.
Après si je puis me permettre, je préfére une succession logique de petit USF à un énorme USF. Simple question d'ergonomie et de mémoire interne :aie:
Et pour terminer, je ne sais pas si le code de ce USF est placé sur le module privé du USF? Mais peut être que l'utilisation de ce code dans des modules séparés ainsi que le préconise souvent #PierreFauconnier vous permettrait d'éviter ce plantage, ou du moins d'aider au débuggage?
Enfin moi ce que j'en dit: "Patience et longueur de temps, font plus que force ni que rage." (La Fontaine: le Lion et le Rat)

Cordialement 8-)

Je comprends bien que sans le fichier c'est compliqué :mrgreen: mais je suis soumis a une charte de confidentialité pour le contenu et vous mettre l'intégralité du code c'est grand. JE vous mets donc les procedures qui ce lancent au démarrage

Sur thisworkbook :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
Private Sub Workbook_Open()
Dim SFSO ' As Scripting.FileSystemObject
Dim Dossier_Courant
Dim Fichier_Courant
Dim Dossier_Fichier_Courant
Dim Fichier_Sauvegarde
Dim Dossier_Sauvegarde
Dim Dossier_Fichier_Sauvegarde
 
Dossier_Courant = ThisWorkbook.Path
Fichier_Courant = ThisWorkbook.Name
Fichier_Courant = Split(Fichier_Courant, ".")(0)
Dossier_Fichier_Courant = ThisWorkbook.FullName
If DossierExiste(Dossier_Courant & "\Save\") = False Then MkDir (Dossier_Courant & "\Save\")
Dossier_Sauvegarde = Dossier_Courant & "\Save\"
Dossier_Fichier_Sauvegarde = Dossier_Sauvegarde & Fichier_Courant & Format(Date, "-dd-mm-yy") & ".xlsm"
Application.ScreenUpdating = False
Set SFSO = CreateObject("Scripting.FileSystemObject")
    If Not SFSO.fileexists(Dossier_Fichier_Sauvegarde) Then
        ThisWorkbook.SaveAs Dossier_Fichier_Sauvegarde
        Set Fichier_Sauvegarde = ThisWorkbook
        Application.EnableEvents = False
        Workbooks.Open Dossier_Fichier_Courant
        Application.EnableEvents = True
        Fichier_Sauvegarde.Close savechanges:=True
        Application.ScreenUpdating = True
    End If
Application.ScreenUpdating = True
Call lancement
End Sub
 
Public Function DossierExiste(MonDossier As String)
   If Len(Dir(MonDossier, vbDirectory)) > 0 Then
      DossierExiste = True
   Else
      DossierExiste = False
   End If
End Function

La procedure lancement présente dans un module :

Code:

1
2
3
4
5
6
7
8
 
Sub lancement()
ThisWorkbook.Activate
ActiveWindow.WindowState = xlMinimized
Call Chargement_Tables
Call Chargement_Tables_Evol
USF_TDB.Show False
End Sub

Les 2 procedures de chargement sont sur une structure identique et répétitives de ce code (je l'ai allégé en laissant uniquement 1 seul chargement mais il y en a plusieurs :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub Chargement_Tables()
ThisWorkbook.Activate
Erase Tab_Liste
Erase Tab_Modules
With ThisWorkbook.Sheets(BDConst)
'----------------------------------Liste déroulante
        For i = LBound(Tab_Liste, 1) To UBound(Tab_Liste, 1) 
            For j = LBound(Tab_Liste, 2) To UBound(Tab_Liste, 2) 
                Tab_Liste(i, j) = .Cells(i + LBD, ColBDLD + j) 
            Next
        Next
'---------------------------------- 
end with
end sub

Petite précision j'ai un module qui me sert de déclaration pour tous ce qui est Public/Const (Les constante ne resteront pas toutes, elles sont la pour le developpement pour le moment ;) ainsi que le dimensionnement des tables qui passera par un redim)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
 
Option Explicit
'==============================================================================================================================
'                                                    Déclaration des Tables
'==============================================================================================================================
 
Public Tab_Liste(8, 4) 'Table des listes déroulante
Public Tab_Modules(2, 3) 'Table des modules
Public Tab_OPTR(41, 7) 'Table des opérations 0
Public Tab_OPCF(24, 7) 'Table des opéraions 1
Public Tab_OPP(27, 7) 'Table des opérations 2
Public Tab_LM(200, 18) 'Table de la liste des machines
Public Tab_TpsP(200, 56) 'Table des temps passé par op
Public Tab_Bati(21, 2) 'Table de la liste des batis par module
Public Tab_Obs(200, 1) 'Table de la liste des observations machines
Public Tab_SttOP(200, 56) 'Table de la liste des batis par module
Public Tab_LsttOP(2, 1) 'table de la liste des statut
Public Tab_Alea(200, 7) 'Sauvegarde des aleas
Public Tab_extract(2, 2) 'sauvegarde des date d'importation
Public Tab_Infos(200, 7) 'Sauvegarde des demande d'infos
Public Tab_Serv(200, 7) 'Sauvegarde des manquants
Public Tab_HQUART(3, 2) 'Base des horaire de quart
Public Tab_Plannif(200, 6) 'Table de plannification
 
Public Tab_Ruser(6, 3) 'Table releve des utilisateurs
Public Tab_RIGF5(200, 12) 'Table releve infos générale & flash5
Public Tab_RN1(200, 5) 'Table releve infos N+1
Public Tab_RP(30, 4) 'Table releve des priorité
Public Tab_RPAM(30, 6) 'Table releve avis de modification
Public Tab_RDIV(200, 6) 'Table releve divers
Public Tab_RMC(200, 9) 'Table des besoin de mise en caisse
 
'==============================================================================================================================
'                                                    Déclaration des constantes
'==============================================================================================================================
'Première colonne des tables BDConst
'A mettre a jour si redimensionnement des tables
Public Const ColBDLD = 1
Public Const ColBDMOD = 7
Public Const ColBDOPTR = 12
Public Const ColBDOPCF = 21
Public Const ColBDOPP = 30
Public Const ColBDB = 39
Public Const ColLSTTOP = 43
Public Const ColDEXT = 46
Public Const ColHQ = 50
 
'Première colonne des tables BDEvol
'A mettre a jour si redimensionnement des tables
Public Const ColBDLM = 1
Public Const ColBDOBS = 21 'ColBDLM + UBound(Tab_LM, 2) + 2 ;
Public Const ColBDMTP = 24
Public Const ColBDSTTOP = 82
Public Const ColBDALEA = 140
Public Const ColBDINFO = 149
Public Const ColBDSERV = 158
Public Const ColBDPLANIF = 168
 
 
'Première colonne des tables BDReleve
'A mettre a jour si redimensionnement des tables
Public Const ColBDRU = 1
Public Const ColBDRIGF5 = 6
Public Const ColBDRN1 = 20
Public Const ColBDRP = 27
Public Const ColBDRPAM = 33
Public Const ColBDRDIV = 41
Public Const ColBDRMC = 49
 
'Générale
Public Const LBD = 5 'Premiere ligne des BD
Public Const BDEvol = "BDEvol" 'Nom de la feuille BDEvol"
Public Const BDConst = "BDConst" 'Nom de la feuille BDConst"
Public Const BDReleve = "BDReleve" 'Nom de la feuille releve
 
 
'Couleur
Public Const GRISVERR = &HC0C0C0
Public Const GRIS = &H8000000F
Public Const BLANC = &HFFFFFF
Public Const NOIR = &H80000012
Public Const ROUGE = &HFF&
Public Const ORANGE = &H80FF&
Public Const VERT = &HC000&
Public Const CTR = &H8000&
Public Const CCF = &HFF8080
Public Const CPO = &HC0C0&
 
'==============================================================================================================================
'                                                    Déclaration des variables
'==============================================================================================================================
 
Public PageSource% 'Indique la page source : 1-TDB 2-Monitoring
Public PageIndex%, PageUIndex%, PageURIndex% 'Numéro de la page active du multipage / multipage User / multipage UserReleve
Public IDMG% 'ID de la machine inter USF
Public IDMU% 'ID de la machine USFUser
Public nobati% 'Pour affichage des données vignettes
Public tpsR!, TpsT!, ratio! 'Variable de calcul
Public obj4$, obj2$, obj3$ 'Variable d'identification objet
Public LP% 'Identifie le bloc ligne de production
Public RUser% 'sauvegarde de l'utilisateur
Public RPrioriT% 'Niveau de PRiorité onglet releve
Public FPAM As Boolean 'Statut RPAM
Public FMC% 'statut Mise en caisse (releve)
Public SemaineA% 'n° de la semaine active
Public i%, j%, k%, l%, m% 'variable de boucle

Voila pour la premiere partie, jusque la jamais de soucis tous s'execute sans probleme et la premiere USF TDB s'affiche. PAr contre la suite :aie:

Voici le code présent dans la USF_TDB :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 Private Sub CommandButton1_Click()
    Call Init_interfaceuser
    Me.Hide
    InterfaceUser.Show False
End Sub
 
Private Sub CommandButton2_Click()
    PageSource = 2
    Me.Hide
    Interface.Show False
End Sub
 
Private Sub UserForm_Terminate()
ThisWorkbook.Close savechanges:=True
End Sub

Le crash se produit majoritairement (pas systèmatique) au clic sur le Button1, ca rrive de maniere beaucoup plus rare sur le button2.
J'ai placé des msgbox pour savoir si c'était toujours au meme endroit. Et bah non :calim2: ca peux arriver avant ou après la procedure Init_interfaceuser.
La procedure Init_interfaceuser :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Init_interfaceuser()
    Call Charg_ListeGene
    Call Charg_ListeMachines
    With InterfaceUser.ComboBox_Etat
        .Clear
        For i = LBound(Tab_LsttOP) To UBound(Tab_LsttOP)
            .AddItem Tab_LsttOP(i, 1)
            .List(.ListCount - 1, 1) = Tab_LsttOP(i, 0)
        Next
    End With
    For i = LBound(Tab_Ruser) To UBound(Tab_Ruser)
        If Tab_Ruser(i, 0) = "" Then
            RUser = UBound(Tab_Ruser) 'Invité
            Exit For
        ElseIf Tab_Ruser(i, 1) = Application.UserName Then
            RUser = Tab_Ruser(i, 0)
            Exit For
        End If
    Next
    InterfaceUser.InterfaceUser_Gene.Value = PDEF
    PageUIndex = PDEF
    If InterfaceUser.ListView_Machines.ListItems.Count > 0 Then InterfaceUser.ListView_Machines.ListItems(1).Selected = True
End Sub

Les procedures de chargement List :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Sub Charg_ListeGene()
    With InterfaceUser.ListView_Machines.ColumnHeaders
        .Clear
        .Add , , "S/N", 60
        .Add , , "OF", 60
        .Add , , "ID", 0
    End With
    InterfaceUser.ComboBox_Bati.ColumnWidths = "60;0"
    InterfaceUser.ComboBox_Etat.ColumnWidths = "72;0"
    InterfaceUser.ComboBox_InfServ.ColumnWidths = "90;0"
    With InterfaceUser.ListView_OP.ColumnHeaders
        .Clear
        .Add , , "ID", 0
        .Add , , "OP", 60
        .Add , , "Désignation", 250
        .Add , , "Statut", 60
        .Add , , "Temps passé", 48
        .Add , , "Ecart", 36
    End With
    With InterfaceUser.ListView_Aleas.ColumnHeaders
        .Clear
        .Add , , "ID", 0
        .Add , , "Auteur", 66
        .Add , , "Désignation", 253
        .Add , , "Nbr de quart", 72
        .Add , , "OP Impacté", 36
        .Add , , "OF de pointage", 70
    End With
    With InterfaceUser.ListView_Serv.ColumnHeaders
        .Clear
        .Add , , "ID", 0
        .Add , , "P/N", 100
        .Add , , "Désignation", 140
        .Add , , "Demande GP", 50
        .Add , , "Acteur", 100
        .Add , , "Délai", 90
        .Add , , "Statut", 0 'caché
    End With
    With InterfaceUser.ListView_Inf.ColumnHeaders
        .Clear
        .Add , , "ID", 0
        .Add , , "Demandeur", 66
        .Add , , "Service", 72
        .Add , , "Acteur", 100
        .Add , , "Désignation", 253
        .Add , , "Statut", 0 'caché
    End With
    With USF_Assign.ListView_Ass.ColumnHeaders
        .Clear
        .Add , , "ID", 0
        .Add , , "S/N", 100
        .Add , , "OF", 100
    End With
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Sub Charg_ListeRGene()
    With InterfaceUser.ListView_RIGF5.ColumnHeaders
        .Clear
        .Add , , "ID", 0
        .Add , , "Création", 60
        .Add , , "Information", 400
    End With
    With InterfaceUser.ListView_RN1.ColumnHeaders
        .Clear
        .Add , , "ID", 0
        .Add , , "Création", 60
        .Add , , "Information", 400
    End With
    With InterfaceUser.ListView_RP.ColumnHeaders
        .Clear
        .Add , , "ID", 0
        .Add , , "Rang", 60
        .Add , , "Observation", 400
    End With
    InterfaceUser.ComboBox_RPMod.Clear
    InterfaceUser.ComboBox_RPMod.ColumnWidths = "60;0" 'Désignation/ID
    InterfaceUser.ComboBox_RPSN.Clear
    InterfaceUser.ComboBox_RPSN.ColumnWidths = "60;0" 'SN / IDM
    With InterfaceUser.ListView_RPAM.ColumnHeaders
        .Clear
        .Add , , "ID", 0
        .Add , , "Date", 80
        .Add , , "Intitulé", 250
        .Add , , "Avis", 80
        .Add , , "Le", 80
    End With
    With InterfaceUser.ListView_RMC.ColumnHeaders
        .Clear
        .Add , , "ID", 0
        .Add , , "Date", 80
        .Add , , "Emetteur", 100
        .Add , , "S/N", 80
        .Add , , "E", 30
        .Add , , "P", 30
        .Add , , "C", 30
        .Add , , "A :", 100
    End With
    InterfaceUser.ComboBox_RMCSN.Clear
    InterfaceUser.ComboBox_RMCSN.ColumnWidths = "60;0" 'SN / IDM
    With InterfaceUser.ListView_RDIV.ColumnHeaders
        .Clear
        .Add , , "ID", 0
        .Add , , "Date", 60
        .Add , , "Auteur", 80
        .Add , , "Information", 400
    End With
End Sub

Si ce stade est dépassé, j'ai plus aucun problème.
J'espère que cela pour vous aider a comprendre.
Si vous avez besoin de plus d'infos n'hesitez pas a demander, je ferai mon possible.

Guillaume

Boujour a tous,

déjà declarer tes variables correctement serait un bon début !

Commence tes Modules avec :

Code:

Option Explicit

En suite par exemple

pas bien :
Code:

1 2 3 4 5 6 7 Dim SFSO ' As Scripting.FileSystemObject Dim Dossier_Courant Dim Fichier_Courant Dim Dossier_Fichier_Courant Dim Fichier_Sauvegarde Dim Dossier_Sauvegarde Dim Dossier_Fichier_Sauvegarde
Bien !
Code:

1 2 3 4 5 6 7 Dim SFSO As Object' As Scripting.FileSystemObject Dim Dossier_Courant As String Dim Fichier_Courant As String Dim Dossier_Fichier_Courant As String Dim Fichier_Sauvegarde As Workbook Dim Dossier_Sauvegarde As String Dim Dossier_Fichier_Sauvegarde As String
quand on suit le cheminement de ton code c'est juste PFFFFFFFFF !!! :?:(8O

tu te rends compte que cette ligne :

Code:

ThisWorkbook.Close savechanges:=True

arrive alors que tu es encore dans l’événement Workbook_Open() de ce même fichier !!! aved tout un mer... entre les 2

autrement dit : Tu n'as pas fini de l'ouvrir que tu le ferme déjà 8O

Edit : En fait c'est exactement ce qu'a prédit Unparia sans avoir vu le code... Chapeau !

A+

22/11/2019, 11h18
Guillaume G

Bonjour et merci de ton retour,

Pour ce qui est de la déclaration des variables en effet sur cette partie de code c'est pas propre (partie de code qui n'est pas a moi mais j'aurais du faire attention a cela :roll: )

Le deuxime point sur la fermeture m'a fait louché. 8O:aie:

Tu fais référence a l'evenement Terminate de ma USF_TDB ?

PS : J'ai fais une petite macro au debut et cela a pris une proportion enorme :P:mouarf: ce qui fait que le code de départ était pas spécialement prévue a grande echelle, j'essai actuellement de réorganiser tous ca pour ne plus avoir un tel cheminement :mouarf::mouarf:

Edit :
J'ai pris en compte toutes vos remarques (logique c'était ma demande :mouarf:)
- J'ai tous transféré dans un nouveau classeur excel via l'import/export vba et un collage valeur pour la partie excel.
- J'ai supprimé l'evenement terminate de la USF_TDB (meme si pour le moment je n'ai pas réussi a comprendre pourquoi cette procedure s'execute :pleure:)
- J'ai rajoute les "Option explicit" manquant (sur 2 modules mais surtout complétement inexistant sur le code des userform) cela m'a permis de corriger plusieurs erreur :oops::?:?

Du coup je remet cette version en activité et je reviendrai vers vous pour donner le resultat (positif j'espere :D )

Bonjour, il me semble qu'il y ait un possible problème de mémoire, vous parlez d'un USF énorme. mais sauf erreur ou omission de ma part, me.hide cache un USF, mais il ne le décharge pas (Unload me). En fait, le USF reste en charge dans la mémoire, peut-être serait-il bon de creuser un peu dans ce sens?
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub CommandButton1_Click() Call Init_interfaceuser Me.Hide InterfaceUser.Show False End Sub Private Sub CommandButton2_Click() PageSource = 2 Me.Hide Interface.Show False End Sub
Cordialement 8-)

22/11/2019, 14h41
Guillaume G

Citation:

Envoyé par Transitoire

Bonjour, il me semble qu'il y ait un possible problème de mémoire, vous parlez d'un USF énorme. mais sauf erreur ou omission de ma part, me.hide cache un USF, mais il ne le décharge pas (Unload me). En fait, le USF reste en charge dans la mémoire, peut-être serait-il bon de creuser un peu dans ce sens?

Bonjour, c'est en effet une piste que j'avais imaginé mais je l'ai écarté pour 2 raisons :

- J'ai eu au tout début des message de ce type mais c'est explicite "Erreur : Mémoire insuffisante" :mrgreen: et j'ai meme pas ce message.
- Deuxieme raison, c'est au tout premier chargement que ca peu planter, une fois charger une fois, je peux utiliser mon fichier (va et viens entre les differente USF, enregistrement, changement d'affichage, ....) sans aucun probleme.

Penses tu que le probleme de memoire puisse etre quand meme une cause possible ?
22/11/2019, 15h27
Transitoire

Re,
Désolé, je suis un homme qui cherche et pas un homme qui sait. J'ai connu l'informatique fonctionnant sans disque dur, au travers de disquettes 3,5pouces. C'était une époque ou tout était fait pour travailler sous une mémoire ridicule de nos jour. A cette époque, les problèmes de mémoire pouvait présenter deux formes.
1 manque de mémoire alloué au programme, en clair c'est Excel qui met le défaut.
2 manque de mémoire globale et souvent le système d'exploitation nous virait sans autre forme de procès.(procès difficile pour une procédure. dur dur :mrgreen: ).
Cordialement 8-)
22/11/2019, 15h55
unparia

Citation:

c'est au tout premier chargement que ca peu planter, une fois charger une fois, je peux utiliser mon fichier (va et viens entre les differente USF, enregistrement, changement d'affichage, ....) sans aucun probleme.

Ce que tu dis là peut révéler que Windows (si tel est bien ton OS) est passé en utilisation du fichier de pagination (en "swapping") . Il se trouve que Windows adapte cette utilisation aux besoins qu'il a préalablement repérés, ce qui explique qu'il s'en sort beaucoup mieux (y compris plus vite) après un premier traitement (et donc une meilleure expérience des besoins).
Il t'est possible de l'aider à mieux gérer, mais cela signifie une intervention à faire sur la machine d'accueil (et donc, si fichier distribué, sur chaque machine d'accueil). Les interventions de l'espèce (sur le fichier d'échange Pagefile.sys, donc) n'étant pas des interventions VBA/Excel, je t'invite à ouvrir au besoin une discussion à ce sujet dans un forum (Windows) plus approprié. Tu pourrais également commencer à te documenter à ce sujet (mot clef sur Google : Pagefile.sys)
23/11/2019, 08h07
unparia
La vue d'un pouce vers le bas me conduit à l'intérêt de développer un peu plus ici ce qui, selon moi, devrait l'être dans un forum Windows.
Comment Windows (très mauvais acteur en matière de gestion de la mémoire) tente-t-il de palier ses carences dans ce domaine ?
Il joue tout simplement au jeu du "pousse-toi là que je m'y mette", ainsi :
- il libère autant que faire se peut ce dont il a besoin en mémoire ram pour traiter un problème de mémoire et charge d'autant un fichier d'échange pagefile.sys). En d'autres termes, il favorise autant que faire se peut ce dont il lui paraît avoir plus besoin à un instant t.
Ce faisant, il affine ce petit jeu de manière empirique. Voilà pourquoi il nous est donné de constater assez fréquemment qu'un bloc d'instructions pourtant identiques est exécuté plus rapidement la seconde fois que la toute première fois.
Nuançons ce "assez fréquemment" : Windows n'agira de la sorte que lorsque le besoin s'en fait sentir (pas suffisamment de mémoire ram encore disponible)
- cette gymnastique de windows n'est pas toujours sans danger et il lui arrive ainsi de temps à autre de se retrouver comme "deux ronds de flan" et ce : sans tambour ni trompette.
Il n'est pas aisé de provoquer des situations de risque. Elles dépendent trop de la machine utilisée, de sa mémoire, etc....
Voici, par exemple, un bloc d'instructions qui génère, sur ma machine, un tel cas :
Je choisi ici de solliciter à la fois la mémoire et le processeur :
Code:

1 2 3 4 5 6 7 Dim t As Double, k As Long, nb As Long, c As New Collection nb = 100000000 ' faire varier ce nombre t = Timer For k = 1 To nb c.Add Sqr(k) Next MsgBox Timer - t
Pour nb trop élevé (bien qu'étant dans les limites d'un long) :
- plantage sans message
- perte de l'accès à l'aide VBA
Sur ma machine
23/11/2019, 16h46
Guillaume G

Re bonjour,

Citation:

Pagefile.sys

C'est ce qui me fait peur, car je n'ai aucune possibilité agir sur cet aspect etant sur un reseau d'entreprise et le fichier utilisé sur plusieurs machines de configuration différentes.
J'imaginais bien un truc comme ca en cause a mon probleme sans avoir la connaissance technique pour mettre un nom dessus :mouarf:

En imaginant que pour probleme est bien de cet ordre et en sachant que je ne peux pas toucher a pagefile, vous auriez des conseils a me donner ?

ps : perso je mise sur le vert ;)
23/11/2019, 16h57
unparia

Citation:

En imaginant que pour probleme est bien de cet ordre et en sachant que je ne peux pas toucher a pagefile, vous auriez des conseils a me donner ?

Je me garderais de t'en donner un autre que celui d'en parler avec le responsable informatique, seul à même de décider en meilleure connaissance de cause (nature des tâches des différents utilisateurs, etc ...) s'il convient d'agir sur la taille du fichier d'échanges (une fois) ou encore de le vider à chaque arrêt du système, etc ...

Bonjour a tous.

Citation:

Envoyé par Guillaume G

J... JE vous mets donc les procedures qui ce lancent au démarrage

Sur thisworkbook :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Private Sub Workbook_Open()
Dim SFSO ' As Scripting.FileSystemObject
Dim Dossier_Courant
Dim Fichier_Courant
Dim Dossier_Fichier_Courant
Dim Fichier_Sauvegarde
Dim Dossier_Sauvegarde
Dim Dossier_Fichier_Sauvegarde
 
Dossier_Courant = ThisWorkbook.Path
Fichier_Courant = ThisWorkbook.Name
Fichier_Courant = Split(Fichier_Courant, ".")(0)
Dossier_Fichier_Courant = ThisWorkbook.FullName
If DossierExiste(Dossier_Courant & "\Save\") = False Then MkDir (Dossier_Courant & "\Save\")
Dossier_Sauvegarde = Dossier_Courant & "\Save\"
Dossier_Fichier_Sauvegarde = Dossier_Sauvegarde & Fichier_Courant & Format(Date, "-dd-mm-yy") & ".xlsm"
Application.ScreenUpdating = False
Set SFSO = CreateObject("Scripting.FileSystemObject")
    If Not SFSO.fileexists(Dossier_Fichier_Sauvegarde) Then
        ThisWorkbook.SaveAs Dossier_Fichier_Sauvegarde
        Set Fichier_Sauvegarde = ThisWorkbook
        Application.EnableEvents = False
        Workbooks.Open Dossier_Fichier_Courant
        Application.EnableEvents = True
        Fichier_Sauvegarde.Close savechanges:=True
        Application.ScreenUpdating = True
    End If
Application.ScreenUpdating = True
Call lancement
End Sub
...

...

Je lisais un peu au hasard, puis j'ai eu la flemme de lire le reste, il y a visiblement une source de problèmes dans le code Workbook_Open().
Je te conseilles de palier a ce problème en définissant certaines de tes variables (Dossier... je sais plus quoi) en dur, ou de procéder autrement.
Imagine un peu le déroulement du code que tu as ici.

23/11/2019, 18h16
Guillaume G

Citation:

Je me garderais de t'en donner un autre que celui d'en parler avec le responsable informatique, seul à même de décider en meilleure connaissance de cause (nature des tâches des différents utilisateurs, etc ...) s'il convient d'agir sur la taille du fichier d'échanges (une fois) ou encore de le vider à chaque arrêt du système, etc ...

Je comprends ;) merci de tes conseils

Citation:

Je lisais un peu au hasard, puis j'ai eu la flemme de lire le reste, il y a visiblement une source de problèmes dans le code Workbook_Open().
Je te conseilles de palier a ce problème en définissant certaines de tes variables (Dossier... je sais plus quoi) en dur, ou de procéder autrement.
Imagine un peu le déroulement du code que tu as ici.

Bonjour,
Unparia m'a fais la meme reflexion concernant mon code workbook open (rappel : partie de code trouvé sur le net et légérement ajusté a mon besoin) et pour répondre simplement, j'ai supprimé la partie workbook open et mis un lancement manuelle sans cette macro.
Et non je n'imagine pas :mouarf: , Unparia m'a deja fais une remarque sur ce code et je ne comprends pas ce qui vous saute au yeux :?:?
23/11/2019, 18h17
unparia

L'utilisation de FSO n'est en outre pas de nature à faire des économies de mémoire ... ;)

Voir 40 message(s) de cette discussion en une page