Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Programme plante ouverture userform

Florian.gr

XLDnaute Nouveau
Bonjour, voila je développe une application en vba sous excel, c'est un gros travail et jusque la tout allait bien car depuis l'éditeur vb d'excel tout fonctionne ! Sauf que je viens de m'apercevoir que si je lance excel une première fois tous mes userform fonctionne correctement. Mais si je ferme excel en sauvegardant et je le relance cette fois ci la plupart des mes userform font planter excel lorsque je le lance !

Le userform accueil ne plante jamais, par contre les userform ou j'initialise des textbox plantent pour certaines textbox. J'ai donc regarder dans le code d'initialisation et voici un partie du code qui serait apparement à l'origine du plantage :

Code:
'Activation de la feuille 4 (compresseurs)
Sheets("compresseurs").Select
'Remplissage des textbox compresseurs
    'Compresseur 1 kwh
        TextBox_comp1_j1.Value = Range("B33").Value
        TextBox_comp1_j2.Value = Range("B32").Value
        TextBox_comp1_j3.Value = Range("B31").Value
        TextBox_comp1_j4.Value = Range("B30").Value
        TextBox_comp1_j5.Value = Range("B29").Value
        TextBox_comp1_j6.Value = Range("B28").Value
        TextBox_comp1_j7.Value = Range("B27").Value
    'Compresseur 2 kwh
        TextBox_comp2_j1.Value = Range("C33").Value
        TextBox_comp2_j2.Value = Range("C32").Value
        TextBox_comp2_j3.Value = Range("C31").Value
        TextBox_comp2_j4.Value = Range("C30").Value
        TextBox_comp2_j5.Value = Range("C29").Value
        TextBox_comp2_j6.Value = Range("C28").Value
        TextBox_comp2_j7.Value = Range("C27").Value

Le problème c'est que j'ai le même type de code au dessus mais celui que j'ai au dessus fonctionne alors que les deux sont tous les deux justes !

J'ai eu un message d'erreur à un moment qui me disait "L'objet invoqué s'est déconnecté de ses clients".

J'aimerais qu'on m'explique pourquoi le programme ne plante jamais quand je le lance à partir de l'éditeur vb, mais qu'il plante quand je le lance par l'application excel. Et surtout pourquoi au premier lancement rien ne plante ! =/

Les textbox sont initialisés avec des nombres à 9 chiffres maximum. Option explicit est deja activé et le compilateur vba ne me fait aucune erreur.

Ou bien auriez vous une solution pour que je sache exactement ce qui fais planter excel ? Car vu que cela ne plante pas dans l'éditeur vb du coup je ne peux pas débugguer et en plus excel plante =/

Merci d'avance pour votre aide
 

Florian.gr

XLDnaute Nouveau
Re : Programme plante ouverture userform

Voila, apparement ça ne se produit pas sur tous les pc, mais sur mon seven c'est à coup sur.

Donc tu lances le fichier tu cliques sur ronde quotidienne puis commencer la ronde. Si ça ne plante pas fermes le fichier en enregistrant et refait la même manip, ça devrait te planter.

Merci d'avance,

ps : quelqu'un peut-il m'expliquer ce qui se produit de different lorque l'on lance par l'éditeur vb et lorsque l'on lance par l apllication ?
 

Pièces jointes

  • essai.xlsm
    210.5 KB · Affichages: 110
  • essai.xlsm
    210.5 KB · Affichages: 117
  • essai.xlsm
    210.5 KB · Affichages: 119

Florian.gr

XLDnaute Nouveau
Re : Programme plante ouverture userform

Bonjour,

Merci de vous y intéresser =)

Malheureusement chez moi excel plante toujours au deuxième essai.
Avez vous essayer de lancer l'application, de démarrer la ronde quotidienne puis de fermer l'userform, puis enregistrer excel le fermer et refaire la même manipulation ?
 

Florian.gr

XLDnaute Nouveau
Re : Programme plante ouverture userform

Voila plus de détails sur l'erreur :

Erreur d'exécution '-2147417848 (80010108)':

Erreur Automation
L'objet invoqué s'est déonnecté de ses clients.

Et que je fasse fin ou débugage excel plante juste après.
 

Florian.gr

XLDnaute Nouveau
Re : Programme plante ouverture userform

Bon rigolons un peu ensemble, j'ai réussi à préciser d'ou vient l'une des erreurs voici le code qui mène à toute cette misère :

Code:
'Remplissage des textbox compresseurs
    'Compresseur Atlas copco NF kwh
        TextBox_atlas_nf_j1.Value = 1
        TextBox_atlas_nf_j2.Value = 2
        TextBox_atlas_nf_j3.Value = 3
        TextBox_atlas_nf_j4.Value = 4
        TextBox_atlas_nf_j5.Value = 5
        TextBox_atlas_nf_j6.Value = 6
        TextBox_atlas_nf_j7.Value = 7
    'Compteur sortie NF en Nm3/h
        TextBox_cpt_sortie_nf_j1.Value = 8
        TextBox_cpt_sortie_nf_j2.Value = 9
        TextBox_cpt_sortie_nf_j3.Value = 10
        TextBox_cpt_sortie_nf_j4.Value = 11
        TextBox_cpt_sortie_nf_j5.Value = 12
        TextBox_cpt_sortie_nf_j6.Value = 13
        TextBox_cpt_sortie_nf_j7.Value = 14

Les textbox sont existantes. Là je commence sérieusement à me dire que ça viens d'excel qui bug.
 

pierrejean

XLDnaute Barbatruc
Re : Programme plante ouverture userform

Re

Une curiosité qui est peut-etre a l'origine de tes soucis

Dans le multipage ronde quotidienne 2 pages ont un nom identique age_B4_9
(Compresseurs et Eau chaude)
Je n'ai pas testé de modifier !!!
 

Florian.gr

XLDnaute Nouveau
Re : Programme plante ouverture userform

Bonjour, merci de continuer de chercher ^^

J'ai modifié et cela ne vient pas de ça
Le même plantage se produit sur tous mes userforms et sur des textbox aléatoirment.
En mettant le code de l'initialisation textbox qui font planter le programme, celui-ci ne plante plus. Mais je vois pas ce qui ne va pas =/ j'ai l'impression que les codes d'initialisation des textbox qui plantes sont les dernieres textbox que j'ai modifié ou crée. Bizarre =/
 

Florian.gr

XLDnaute Nouveau
Re : Programme plante ouverture userform

Bon bah le problème est résolu en passant le type du fichier en .xls à la place de .xlsm, cependant la sauvegarde du fichier est plus longue car le mode de compatibilité est activé mais au moins ça ne plante plus ! Merci à ceux (peu nombreux) qui ont essayé de m'aider. Je suis toujours preneur d'une autre solution si quelqu'un trouve.
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…