[Débutant] VBS and VB 2008 Express [Résolu]

[acama]

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.

Code :

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...
Si vous pouviez me donner la première piste pour réponde à mon besoin ce serait génial...

Alexandre

[jpcheck]

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

[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

[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 :

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 ?

[Pol63]

moi oui
il faut décocher "activer l'infrastructure de l'appli" un peu en dessous pour avoir le choix du sub main dans le combobox

[acama]

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

[acama]

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