VBA : ouverture d'un Userform sans passer par excel

Bonjour,

J'ai créer une interface userform sous VBA et je souhaite à présent pouvoir la lancer sans ouvrir une feuille Excel. Directement en laçant un un excutable à partir d'un répertoire sous Windows.

Après plusieurs échec, je me demande si ce que je souhaite faire est réellement possible.

merci pour toutes infos.

Non, pas avec VBA.
par contre, depuis Excel, tu peux placer une macro Workbook_Open qui minimise la fenêtre Excel et ouvre ton userform.
Tu devrais même pouvoir faire ça depuis un bath dans Notepad avec comme paramètre d'ouverture = 1

Code:

---

Excel.exe NomFich,1

---

(je ne suis pas sûr de la commande, tu essaies... :wink:

Dans le fichier NomFich, tu places l'ouverture de ta form en "Sub Workbook_Open()

Jamais essayé mais je sens que tu seras un bon cobaye...

Tu nous dis si ça marche

A+

Tu peux faire ça à partir d'un script VBS: tu ouvres en mode "invisible" le fichier Excel qui contient ton code et ta userform , avec, dans l'auto-open, l'affichage de ta form.
J'ai déjà fait ça, et ça marche très bien.

Allez, voila le code, à mettre dans un fichier texte "LancerExcel.vbs":

Code:

---

1 2 3 4 5 6

Set obExcelApp=CreateObject("Excel.Application") obExcelApp.Visible = False obExcelApp.Workbooks.Open("C:\MonRepertoire\TestVBS.xls") obExcelApp.ActiveWorkbook.Close obExcelApp.quit

---

Et dans le code de ton fichier Excel, qui contient la form "UserForm1":

Code:

---

1 2 3 4

Private Sub Workbook_Open() UserForm1.Show End Sub

---

Salut

Megaxel : Je ne connais pas VBS et je ne savait pas qu'on pouvait faire ce genre de fichier. Où peut-on apprendre le b-a-ba de VBS?

Pour ce qui est du UserForm ouvert de cette façon, j'imagine qu'il ne faut surtout pas oublier de fermer le fichier Excel et peut-être même Excel lui-même avec le bouton Quitter du UserForm.

Salut, Zazaraignée!
Pour le VBS, je ne vais pas pouvoir t'aider beaucoup, parce que ce que tu vois représente une grosse partie de ce que je sais. La seule règle théorique que je connais, c'est qu'on ne déclare pas les variables (pas de "DIM MaVariable AS Type")
Mais en gros, tu peux mettre dans un script vbs beaucoup du code que tu mettrais dans un module. J'ai fait quelques tests, un jour (ça remonte pas mal...), et je me souviens que ça marchait bien mieux sous XP que sous NT4, sur lequel j'étais avant.
Mais c'est surtout bien pratique quand on n'a pas VB, comme moi.
Et je dois avouer que je n'ai pas trouvé de site qui parle précisément de VBS.

Voir la page de référence Microsoft:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnanchor/html/scriptinga.asp

Et, précisément pour VBS,:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vtoriVBScript.asp

Voili, voilou...

Ha ben merci, AlainTech, je vais mettre ces liens dans un coin, en lieu sûr!
:D

Merci Alain,
si j'ai bien compris, il faut avoir au mini VB installé pour pouvoir utiliser le VBS... ou me trompe-je ?

A+

Ha non, pas du tout. Je n'ai pas VB, et je fais du VBS.

Le WSH (Windows Script Hosting) est présent depuis Windows 95.

Donc, aucune excuse (n'est-ce pas ousk?) pour ne pas l'utiliser.

Très puissant, permet la manipulation de la BDR (base de registre) même quand regedit est désactivé.

Je l'utilise pour faire des manips sur des PC d'entreprises où la sécurité est à un très haut niveau (banque...).

Bonjour,
Excel ne permet pas de créer un excutable, tu dois lancer le fichier xls, donc fait comme ouskel'n'or l'a suggérer, dans WorkBook.Open tu mets UserForm1.Show, ce qui ouvrira directement le UserForm.
Place un raccourci de ton classeur sur le bureau, celà t'éviteras de chercher dans l'explorateur et de lancer directement ceclui-ci.

jpleroisse

Bonjour Jemigo!
Je répond sur le forum à ton message...
Si je met la valeur de VISIBLE à False, c'est pour que seule la UserForm s'affiche, et pas le classeur Excel. C'est plus joli...
Ensuite, l'Auto-open, c'est bien le Workbook_Open, pas de problème. D'ailleurs, pour vérifier, lorsque tu ouvres ton classeur Excel par double click, ta Userform doit s'afficher immédiatement. Est-ce que c'est bien le cas?
Non, ce n'est pas la peine d'enlever les dernières lignes, mais si tu les laisses, Excel se ferme lorsque tu fermes ta Userform.
Poste le code de ce que tu as fait, pour nous aider à t'aider.

Merci d'avoir répondu.

J'ai bien compris ton message. Mais lorsque que je lance mon fichier par l'auto open ma userform se s'affiche pas!!
Ce fichier est une macro : "toto.xls". la userform est comprise dedans. lorsque je lance le fichier "toto".xls, un tableur excel s"ouvre. Ensuite je dois cliquez sur "excéuter la macro". De cette manière ma Userform apparait et je pe continuer l'exécution de mon programme.

pour de ce qui est du script vbs, si je mets les deux dernière ligne ca marche pas!! excel s'ouvre et se ferme aussitot. si je mets "visible" à False rien se lance.

Voici le code que j'ai réalisé :

-Pour la macro "toto.xls" contenant la Userform nommé "page1". le code est écrit dans "module1" de VBA project

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub toto()   'toto macro   page1.Show   End Sub   Private Sub Workbook_Open() page1.Show   End Sub

---

script VBS :

Code:

---

1 2 3 4

Set obExcelApp=CreateObject("Excel.Application") obExcelApp.Visible = True obExcelApp.Workbooks.Open("C:\test\toto.xls")

---

merci en espérant que j'ai été assez clair!! c pas évident d'expliquer les pbs.

Citation:

---

Envoyé par jemigo

Merci d'avoir répondu.

J'ai bien compris ton message. Mais lorsque que je lance mon fichier par l'auto open ma userform se s'affiche pas!!
Ce fichier est une macro : "toto.xls". la userform est comprise dedans. lorsque je lance le fichier "toto".xls, un tableur excel s"ouvre. Ensuite je d

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub toto()   'toto macro   page1.Show   End Sub   Private Sub Workbook_Open() page1.Show   End Sub

---

---

ote moi un doute ... la macro WorkBook_open et bien dans le code associé au classeur et non dans un module à part...?

sous VBA , dans arborescence à gauche clic bouton droit sur ThisWorKbook puis code ... :wink:

Essaie ça: met dans le Workbook_Open de ton classeur le code qui se trouve dans l'événement "Click" du bouton sur lequel tu cliques quand tu fais l'opération manuellement.

Bon, j'ai eu ce pb avec office 97. (macro Workbook_Open inactive) Pour le résoudre, dans le module de démarrage Workbook_open, j'ai mis ça :

Code:

---

1 2 3 4 5 6 7 8 9

Sub Workbook_Open() ActiveWorkbook.RunAutoMacros Which:=xlAutoOpen End Sub   Sub Auto_Open() Application.WindowState = xlMinimized Load MaForm1 MaForm1.Show End Sub

---

Ainsi, lancé depuis l'explorateur, le fichier s'ouvre sur la form (Excel masqué)

le seul truc, c'est qu'il faut faire un clic dans la barre des tâches pour afficher l'userform... (Excel restant masqué) et je n'ai pas encore trouvé comment corriger ça
Mais il y aura bien quelqu'un pour trouver la solution...

Maintenant, pour démarer Excel depuis VBS, je laisse les es'spécialistes s'en charger

J'attends ! :wink:

A+

concernant la technique à utiliser pour ouvrir un UserForm sans passer ouvrir Excel, j'ai utilisé la méthode de notre collègue MEGAXEL qui fonctionne très bien.

Pour cela, il faut créer un script VBS pour l'ouverture de la Userform ( voir les articles précédent), et enfin intégrer une fonction workbooks_open dans le module "THISWORKBOOK" dans cette fonction écrire le code suivant, qui permet d'afficher la Userform seulement au lancement du script VBS.

Code:

---

1 2 3

Private Sub Workbook_Open() Userform.Show End Sub

---

Cela fonctionne très bien!!

Cependant, lorsque nous avons une succession de plusieurs UserForm, comment peut faire réapparaitre la fenètre Excel à la suite de la dernière Userform ???
Car le Problème du script c'est que lorsqu'il ne voit plus de Userform, il ferme le fichier Excel et quitte.

Citation:

---

Car le Problème du script c'est que lorsqu'il ne voit plus de Userform, il ferme le fichier Excel et quitte.

---

Logique, non ?
Pour faire apparaître Excel, tu mets ta commande après "MaForm.show"
Le code ne sera exécuté qu'après fermeture de tes forms.

Code:

---

1 2 3 4 5

Private Sub Workbook_Open() Userform.Show 'Là tu fais ce que tu veux avec ton classeur Application.WindowState = xlMaximized End Sub

---

Pas essayé mais ça devrait marcher

A+

Je dirais que dans le script VBS, il faut enlever les lignes de la fin (le .Close et le .Quit), et mettre à la place:

Code:

---

1 2	obExcelApp.Visible = True

---

Mais je n'ai pas essayé...