VBA : ouverture d'un Userform sans passer par excel

**jemigo** · 17/11/2005, 12h36

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.

**ouskel'n'or** · 17/11/2005, 13h30

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Excel.exe NomFich,1

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

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+

**Megaxel** · 17/11/2005, 13h42

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.

**Megaxel** · 17/11/2005, 14h13

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Workbook_Open()
    UserForm1.Show
End Sub

**zazaraignée** · 18/11/2005, 00h55

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.

**Megaxel** · 18/11/2005, 10h37

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.

**AlainTech** · 18/11/2005, 11h07

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...

**Megaxel** · 18/11/2005, 11h31

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

**ouskel'n'or** · 18/11/2005, 15h26

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

A+

**Megaxel** · 18/11/2005, 15h32

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

**AlainTech** · 18/11/2005, 19h30

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...).

**leroissejp** · 19/11/2005, 11h43

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

**Megaxel** · 21/11/2005, 14h23

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.

**jemigo** · 21/11/2005, 14h49

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**SfJ5Rpw8** · 21/11/2005, 14h56

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...

**Megaxel** · 21/11/2005, 15h49

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.

**ouskel'n'or** · 21/11/2005, 17h11

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

A+

**jemigo** · 22/11/2005, 11h34

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**ouskel'n'or** · 22/11/2005, 12h04

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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