VBS and VB 2008 Express

Version imprimable

Bonjour,
Ma seule connaissance s'arrête à un peu de VBA.
J'ai récupérer un script VBS (que je comprend...) pour ouvrir une application excel.
Citation:
Code:

1 2 3 4 5 6 7 8 ScriptPath = Left(WScript.ScriptFullName,(Len(WScript.ScriptFullName) - (Len(WScript.ScriptName)))) Set appXl = CreateObject("Excel.Application") With appXl .Workbooks.Open ScriptPath + "Appli.xls",Notify=1 .Visible = True .WindowState = 3 End With Set appXl = Nothing
Je souhaite faire la même chose en .exe.
J'ai donc récupérer VB 2008 express. Le problème c'est que j'ai du mal à démarrer.
J'ai bien créer un application console avec un petit msgbox pour tester. Ca marche, mais ca ouvre une fenetre noire pour lancer ma msgbox.
Je pensais donc créer une application W forms et supprimer la form mise par défaut. Mais du coup je sais pas ou mettre mon code... :calim2:
Si vous pouviez me donner la première piste pour réponde à mon besoin ce serait génial...

Alexandre

08/02/2012, 09h20
Jean-Philippe André

salut,
l'approche pas à pas de ce chapitre devrait t'aider
http://plasserre.developpez.com/cour...age=edi#IV-A-1

sinon, la globalité de l'excellent cours de Philippe http://plasserre.developpez.com/cours/vb-net/

saine lecture :ccool:
08/02/2012, 10h29
Pol63

tu créés un fichier classe
tu mets shared sub main dedans et ca sera le point d'entrée de ton programme

ensuite tu vas dans les propriétés du projet, et dans le menu déroulant pour choisir le form de démarrage, tu mets "sub main", après tu peux supprimer le form1

si le but est juste d'ouvrir un fichier excel, tu peux faire shell("appli.xls") ca démarrera excel avec le fichier
08/02/2012, 14h16
acama

Merci Pol63 je vois bien le principe.
J'ai donc créé un module de class rattaché au projet où j'ai rajouté le code suivant :

Citation:

Public Class Class1
Shared Sub Main()
MsgBox("coucou")
End Sub
End Class

Le problème est que quand je vais dans les propriétés du projet le seul choix que j'ai dans la liste déroulante "Formulaire de démarrage" c'est Form1
Ai je oublié quelque chose ?
08/02/2012, 15h46
Pol63

moi oui :D
il faut décocher "activer l'infrastructure de l'appli" un peu en dessous pour avoir le choix du sub main dans le combobox
08/02/2012, 16h15
acama

:ccool:
Super tu m'as mis sur le rails. Je clos le sujet.
J'en réouvrirais peut être un lors de ma tentative de traduction du VBS mentionné dans mon premier post.

Merci :D

Bon j'ai réussi a traduire le VBS mentionné plus haut.
Voila le code, si ca peut servir à d'autres :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Public Class Class1
    Shared Sub Main()
        Dim ExcelInstance As Object
 
        ExcelInstance = CreateObject("Excel.Application")
        With ExcelInstance
            .workbooks.open(Environment.CurrentDirectory & "\Appli.xls")
            .visible = True
        End With
        ExcelInstance = Nothing
    End Sub
End Class