excel disparait à l'ouverture d'un fichier qui affiche un usf

[papapaul]

🙂 Salut Forum,
Je sais pas si c'est bien l'endroit pour cette question mais voila.
On m'a transmis un répertoire dans lequel il y a plusieurs fichiers.
1.bat 3.xls 1.twb et 1.ocx
Le fichier xls que je dois travailler affiche un USF à l'ouverture.
Mais en même temps il masque excel et ses barre d'outils.
Je crois comprendre que dans les autres fichiers, il y a des liaisons
et des modules de classes cachés qui oblige excel à se fermer mais qui
laisse les liaisons possibles entre les 3.xls.😕
Ca ressemble à une sorte de protection de tout excel et tout vba.
Je voudrais retrouver l'acces à visual basic
dans le fichier que j'ai ouvert.
Si quelqu'un a déja eu ce problème ??
J'ai essayé d'expliquer mais moi j'y comprends que dalle.

Merci et bonne journée à tous.🙄

 

[PascalXLD]

Re : excel disparait à l'ouverture d'un fichier qui affiche un usf

Bonjour

tu as peut-être tout simplement un code du genre

application.visible=false


il te suffit d'ouvrir ton fichier sans activer vba et d'aller dans le code pour voir dans le thisworkbook_open

 

[papapaul]

Re : excel disparait à l'ouverture d'un fichier qui affiche un usf

🙂 Bonjour Pascal,
Merci de ta réponse mais c'est justement ca le problème.
J'ai bien pensé à ta solution mais c'est que tout excel
qui disparaît dès l'ouverture du fichier.
Je n'ai donc pas accès au vba.
Je sèche totalement.🙁

 

[PascalXLD]

Re : excel disparait à l'ouverture d'un fichier qui affiche un usf

re

je ne comprends pas tu dois bien avoir un activer ou pas les macros

si tu n'actives pas les macros tu dois avoir accès au vba

 

[papapaul]

Re : excel disparait à l'ouverture d'un fichier qui affiche un usf

🙄 Re Forum, Pascal
Effectivement, sans activé les macros, j'ai eu acces.
Le code du worbook_open est celui-ci :

sub workbook.open
Application.visible = false
fdmenu.show
application.displayalerts = false
application.quit
fin:
end sub

Je sais pas quoi faire, j'ai essayé en mettant

Application.visible = true
'application.quit
'fin:

Mais du coup j'ai plus rien 😱

Je suis largué.

Si tu a une idée merci d'avance
Bonne soirée🙂

 

[jeanpierre]

Re : excel disparait à l'ouverture d'un fichier qui affiche un usf

Bonour papapaul, Pascal, re tous,

Pas suivi, mais avec application.quit, n'est-ce pas ton souci.....

Pour peu que je comprenne, tu ne peux-être et dedans et dehors... mais c'est une lecture rapide et très diagonale....

 

[papapaul]

Re : excel disparait à l'ouverture d'un fichier qui affiche un usf

🙂 Merci Pascal, jeanpierre
Sans activer les macros j'ai acces à vba.
J'ai donc modifier comme ci-dessous
Surement pas tres correct mais...(je comprends pas l'utilité de fin🙂
Sub workbook_open()
Application.Visible = True
fmenu.Show
Application.DisplayAlerts = True
'Application.quit
fin:
End Sub

Je pense maintenant pouvoir modifier le usf qui s'affiche à l'ouverture.
C'est pas moi qui ai construit le truc et ca à l'air tres compliqué (600ko).😕
Si j'y arrive pas , je manquerai pas de crier au secours.

Encore merci et vive XLD

Bonne soirée. Allez les Petits😀

 

[jeanpierre]

Re : excel disparait à l'ouverture d'un fichier qui affiche un usf

Re, Salut CC,

Pas compris, peut-être le manque de vitamines... mais avec :
sub workbook.open
Application.visible = false
fdmenu.show
application.displayalerts = false
application.quit
fin:
end sub

Désolé, mais j'ai du mal

 

[Dan]

Re : excel disparait à l'ouverture d'un fichier qui affiche un usf

Bonsoir,

Cela m'a l'air d'être assez curieux comme code.

1. Où est placé ce code ? Dans un module ou dans THISWORKBOOK
2. fmenu est certainement le nom de l'USF. Regarde en VBA (ALT+F11 et CTRL + R pour voir VBA project à gauche) si tu n'as pas un dossier Feuilles.
3.désactive aussi le --> "application.displayalerte"
4. fin : ??
5. application.quit --> pourquoi fermer excel ?

dis nous si tu n'as pas de déclaration de variables genre DIM ou PUBLIC dans ta macro ou en tête de macros.

A te lire
Dan

 

[papapaul]

Re : excel disparait à l'ouverture d'un fichier qui affiche un usf

🙂 Salut tous et merci,
Pour répondre à Dan,
ce code est placé dans : this workbook
fmenu est bien le nom d'un usf
pourquoi fin: ?? je ne sais pas.
pour application.quit : le concepteur a du penser
qu'ainsi l'acces a excel donc aux macros serait impossible.
Toutes les macros sont dans des modules de classe qui s'activent
seulement à partir des boutons ou listes de ce premier usf.
avec la méthode call et il faut parfois des mp.
J'essaye de faire un fichier simplifié mais hyper chiadé le truc.
11 usf successifs, 37 pages de codes en tout 😱
Laissez moi un peu de temps, c'est vraiment tres compliqué
Merci déja de m'avoir aider à retrouver vba
J'ai pas fini de ramer mais c'est pas grave.
Bonne soirée à tous 🙂

 

[gbinforme]

Re : excel disparait à l'ouverture d'un fichier qui affiche un usf

Bonjour papapaul, le forum,

🙂
J'ai donc modifier comme ci-dessous
Surement pas tres correct mais...(je comprends pas l'utilité de fin: )
sub workbook.open
Application.visible = false
fdmenu.show
application.displayalerts = false
application.quit
fin:
end sub

Je pense maintenant pouvoir modifier le usf qui s'affiche à l'ouverture.
C'est pas moi qui ai construit le truc et ca à l'air tres compliqué (600ko).😕

En fait, l'application programmée sous Excel est gérée à partir du formulaire "fmenu" (fdmenu.show)
et pour éviter que l'application soit utilisée de façon imprévue, les feuilles ont été occultées (Application.visible = false), (fin : ) étant une étiquette de développement qui est restée.

Elles sont gérées par les différents formulaires et lorsque tu choisis de quitter le formulaire menu, Excel est fermé (application.displayalerts = false
application.quit).

Cela prouve bien la difficulté à "protéger" une application, puisque avec quelques recherches, tu es en train de pouvoir tout mettre à plat et faire ce que tu veux et pas ce que le concepteur voulait !

 

[papapaul]

Re : excel disparait à l'ouverture d'un fichier qui affiche un usf

🙂 Bonjour Forum, gbinforme,
Rassurez vous, j'ai un total respect de ceux qui construisent des
applis même les plus simples. Dans le cas présent,
c'est un outil RH ou certaines données sont
évidemment confidentielles, c'est pas ca qui nous intéressent.

Comme grace à XLD j'ai déja construit de petits outils
pour mes collègues et ma patronne, (bien contents qui sont)
c'est elle qui m'a demandé si je pouvais m'inspirer d'une partie seulement de cette appli pour en faire une spéciale maison.

Si j'y arrive pas, c'est pas grave mais en tout cas j'apprends,
mais si j'y arrive j'aurais peut-être une prime😀

Petite question : c'est quoi une étiquette de développement ??

Bonne journée à tous😉

 

[gbinforme]

Re : excel disparait à l'ouverture d'un fichier qui affiche un usf

Bonjour papapaul, le Forum,

Petite question : c'est quoi une étiquette de développement ??

Ce n'est pas une appellation officielle mais je voulais seulement dire que le développeur a certainement utilisé cette étiquette en phase de développement, par exemple pour faire un "goto fin" en cas d'erreur qui ne ferme pas Excel et lui permette de corriger plus facilement.

Bon courage
&@+