XL 2019 [Résolu] Ouverture fichier avec useform

[julien1982]

Bonjour a tous

je possède un fichier qui à l'ouverture est censé ouvrir une useform (appelé MENU dans le code) et cacher mon fichier excel. Mon seul problème c'est que celle ci ne s'ouvre pas et seul le fichier Excel s'ouvre sans la boite de dialogue. Je vous joint le fichier excel.

Je vous remercie par avance.

Portique_souple_LAC_V2_0_0_9.xlsm

1 file sent via WeTransfer, the simplest way to send your files around the world

we.tl

Julien

 

[sylvanu]

Bonjour Julien,
Sur mon PC c'est bien le Userform Menu qui s'ouvre, XL reste "caché".
Etes vous sûr que les macros sont activées ?
Je viens de les désactiver, et effectivement, comme prévu, ça n'ouvre que le fichier XL.

 

[julien1982]

Bonjour Julien,
Sur mon PC c'est bien le Userform Menu qui s'ouvre, XL reste "caché".
Etes vous sûr que les macros sont activées ?
Je viens de les désactiver, et effectivement, comme prévu, ça n'ouvre que le fichier XL.

Bonjour sylvanu, j'ai ouvert une version précedente et la userform s'ouvre aussi...je vais voir pourquoi cela ne marche pas avec cette version su rmon PC. Mais j'ai un autre doc qui me fait la emme chose aussi peut etre bug excel...

 

[julien1982]

Je ne comprend pas, un autre fichier fonctionne bien et celui la non...alors que le code est le même...

Code de la userform MENU qui fonctionne:

Option Explicit

Private Sub CommandButton2_Click()

Application.Visible = True
MENU.Hide
ThisWorkbook.Application.WindowState = xlMaximized


End Sub

Private Sub Image1_Click()

End Sub

'Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'If CloseMode = 0 Then Cancel = True
'End Sub

Private Sub QUITTER_Click()

Application.DisplayAlerts = False
ThisWorkbook.Close SaveChanges:=True
Application.DisplayAlerts = False

End Sub

Private Sub CommandButton1_Click()

Sheets("Enregistrement_resultats").Select

Unload Saisie_des_données

Saisie_des_données.Show

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.DisplayAlerts = False
ThisWorkbook.Close SaveChanges:=True
Application.DisplayAlerts = False
End Sub

 

[sylvanu]

Dans celui qui ne marche pas, vérifiez si vous avez bien la macro Workbook_Open présent et la ligne MENU.Show 0 présente aussi.
Si oui, cliquez dans cette macro et faites F5 ( run), le userform devrait s'ouvrir.
Sinon ou le fichier est corrompu, ou XL à un problème.

 

[julien1982]

Dans celui qui ne marche pas, vérifiez si vous avez bien la macro Workbook_Open présent et la ligne MENU.Show 0 présente aussi.
Si oui, cliquez dans cette macro et faites F5 ( run), le userform devrait s'ouvrir.
Sinon ou le fichier est corrompu, ou XL à un problème.

elle est bien pressente....
Le pire, c'est que si je lance le fichier qui fonctionne en 1er, tout va bien, celui la marche egalement mais sinon il marche pas seul...

 

[sylvanu]

Mais quand ça marche pas, si vous faites F5 dans Workbook_Open, elle s'exécute normalement ?

 

[julien1982]

Mais quand ça marche pas, si vous faites F5 dans Workbook_Open, elle s'exécute normalement ?

En appuyant sur F5 elle fonctionne normalement....

 

[sylvanu]

Alors je sèche. Normalement cette macro est activée à l'ouverture.

 

[julien1982]

Alors je sèche. Normalement cette macro est activée à l'ouverture.

Je ne comprend pas non plus surtout qu'il se lance bien si l'autre est deja ouvert....

 

[julien1982]

Bonjour, bon apres quelques essais hier soir et ce matin, les 2 fonctionnent enfin presque . Il faut que je lance Excel avant et ensuite ceux ci s'ouvrent sans probleme enfin si je suis obligé de fermer Excel completement pour quitter l'outil se qui est assez contraignant à vrai dire car si plusieurs classeurs ouverts il ferme tout...:s

 

[sylvanu]

Bonjour,
Comme votre fichier marche chez moi et pas chez vous, il est fort probable que ce soit lié à votre XL.
Sur 2007 dans les options j'ai un truc nommé Exécuter les diagnostics MS Office, et récupérer les mises à jour.
Peut être (surement) avez vous la même chose sous 2019 ?

Réparer une application Office - Support Microsoft

Réparer des installations d’applications Office rompues.

support.microsoft.com

Comment réparer office 2013/ 2016/ 2019 ou office 365 une de ses applications Word Excel PowerPoint pour même Outlook

Comment réparer office 2016 office 2013 office 2019 et Office 365 dans cet article nous allons voir les Étapes et pour réparer n'importe quel logiciel de la suite Microsoft que ce soit Word Excel PowerPoint Outlook une note la procédure est la même

www.monexpertinfo.com

 

[julien1982]

Bonjour,
Comme votre fichier marche chez moi et pas chez vous, il est fort probable que ce soit lié à votre XL.
Sur 2007 dans les options j'ai un truc nommé Exécuter les diagnostics MS Office, et récupérer les mises à jour.
Peut être (surement) avez vous la même chose sous 2019 ?

Réparer une application Office - Support Microsoft

Réparer des installations d’applications Office rompues.

support.microsoft.com

Comment réparer office 2013/ 2016/ 2019 ou office 365 une de ses applications Word Excel PowerPoint pour même Outlook

Comment réparer office 2016 office 2013 office 2019 et Office 365 dans cet article nous allons voir les Étapes et pour réparer n'importe quel logiciel de la suite Microsoft que ce soit Word Excel PowerPoint Outlook une note la procédure est la même

www.monexpertinfo.com

Bonjour, je vais essayer ca oui mettre a jour ou réparer excel je reviens vers vous apres
Bonne journée

 

[julien1982]

Bon eh beh j'ai le plaisir de vous dire qu’après réparation et mises a jour d'office cela fonctionne parfaitement .

Me reste plus qu'à trouver maintenant comment faire pour que quand je quitte l'outil, cela ne me ferme pas tout excel mais juste le classeur en cours.

 

[sylvanu]

Good news !
Pour le dernier point, vous demandez à XL de se fermer ... alors il se ferme : Application.Quit
Alors tentez :

Private Sub QUITTER_Click()
    ThisWorkbook.Application.Visible = True
    ActiveWorkbook.Save
    Unload MENU
    ActiveWorkbook.Close
End Sub