[VB.net]Piloter excel à parter d'un executable VB

Version imprimable

14/09/2007, 15h27
sk8bcn

[VB.net]Piloter excel à parter d'un executable VB

Voila,
J'aimerai concevoir une appli VB qui ouvre Excel (facile) des fichiers excel (heuuu faisable je pense) mais aussi qui lance des macros excels et qui remplisse des cellules a l'aide de valeurs de variables VB.

Et là, je sais pas trop si c'est possible.
14/09/2007, 18h03
Skalp

Citation:

Envoyé par sk8bcn

ouvre Excel (facile)

facile

Citation:

Envoyé par sk8bcn

ouvre des fichiers excel (heuuu faisable je pense)

faisable

Citation:

Envoyé par sk8bcn

lance des macros excels

faisable (théoriquement. Je n'ai jamais essayé)

Citation:

Envoyé par sk8bcn

remplisse des cellules a l'aide de valeurs de variables VB.

faisable

Voilà deux articles qui pourront t'être d'une grande aide :
http://dotnet.developpez.com/cours/office/ (C# et VB)
http://skalp.developpez.com/tutoriel...tomationexcel/ (C# seulement, mais avec des informations supplémentaires)
17/09/2007, 09h46
sk8bcn

merci!

Je vais lire, tester puis envoyer le feedback :D
17/09/2007, 15h24
sk8bcn

mince, le lien du cours marche pas.

vla les 3 fonctions que j'ai créé dont je me sers

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
 Public Shared Sub CreerExcel(ByVal pStrCheminFichier As String, ByRef pObjDocWindows As Object, ByRef pObjWorkbook As Object)
        Dim objExcel As New Object
        Try
            objExcel = GetObject(, "Excel.Application")
        Catch e As Exception
            objExcel = CreateObject("Excel.Application")
        End Try
        objExcel.Visible = True
        objExcel.WindowState = 2  'Max=2, min=1
        pObjWorkbook = objExcel.Presentations.Add(VBA_MSOTRUE)
        pObjDocWindows = objExcel.ActiveWindow
        pObjWorkbook.SaveAs(pStrCheminFichier)
    End Sub
    Public Shared Sub OuvrirExcel(ByVal pStrCheminFichier As String, ByRef pObjDocWindows As Object, ByRef pObjWorkbook As Object)
        Dim objExcel As New Object
        Try
            objExcel = GetObject(, "Excel.Application")
        Catch e As Exception
            objExcel = CreateObject("Excel.Application")
        End Try
        objExcel.Visible = True
        objExcel.WindowState = 2  'Max=2, min=1
        pObjWorkbook = objExcel.Workbooks.open(pStrCheminFichier)
        pObjDocWindows = objExcel.ActiveWindow
    End Sub
    Public Shared Sub FermerExcel()
        Dim prc As System.Diagnostics.Process() = Process.GetProcessesByName("excel")
        If Not prc Is Nothing Then
            For i As Integer = 0 To prc.GetUpperBound(0)
                prc(i).CloseMainWindow()
            Next
        End If
        prc = Nothing
    End Sub

l'interet de passer par des object et pas par la reference excel, c'est que ca marche quelque soit la version d'Excel :)

17/09/2007, 19h52
Skalp

sk8bcn, tu veux parler du premier lien ? Il fonctionne très bien de mon cote.

Citation:

Envoyé par Bz

l'interet de passer par des object et pas par la reference excel, c'est que ca marche quelque soit la version d'Excel :)

Sauf si tu utilises une méthode ou une propriété qui n'existe pas dans la version que tu pilotes :aie:
Outre le fait que, d'après moi, c'est inélégant et moins performant, le désavantage de travailler avec des objects, c'est que tu ne bénéficies pas de l'intellisense explorateur d'objet de VS. :)

PS : la méthode FermerExcel() ferme toutes les instances d'Excel. Même celles ouvertes par un utilisateur.
18/09/2007, 10h27
Momodedf

Citation:

Envoyé par sk8bcn

Voila,
mais aussi qui lance des macros excels

Code:

Application.Run MacroName:="ma_macro"

Citation:

Envoyé par sk8bcn

Voila,
et qui remplisse des cellules a l'aide de valeurs de variables VB.

Code:

my_workbook = ma_feuille.cells(ligne, colone).value = ma_variable_vb

:king:
24/09/2007, 15h49
sk8bcn

merci à tous pour les réponses!

Je vais bien regarder ça dès que j'ai terminé les macros excels que je dois programmer d'abord en urgence.

Finir le tout par un bel enrobage en .exe viendra ensuite. Je taguerai en résolu dès que j'y serai et que je pourrais faire le feedback de ce que j'ai essayé.

Merci pour l'aide :D
26/09/2007, 10h25
sk8bcn

ftp://ftp2.developpez.be/developps/d...e/OfficeVb.pdf

c'est ce lien qui refuse de marcher :/
26/09/2007, 13h51
Skalp

Citation:

Envoyé par sk8bcn

ftp://ftp2.developpez.be/developps/d...e/OfficeVb.pdf

c'est ce lien qui refuse de marcher :/

Quand je fais clic droit "Enregistrer la cible sous..." ça fonctionne très bien.
Quel navigateur utilises-tu ?
26/09/2007, 14h26
sk8bcn

Il me dit qu'IE ne peut télécharger ce document et que le serveur est actuellement indisponible.

Et le tout sur I.E.6
27/09/2007, 20h32
Skalp

1 pièce(s) jointe(s)

Tu as réessayé à plusieurs moments de la journée ?

Je l'ai ajouté en pièce jointe, peux-tu le télécharger ?
28/09/2007, 09h19
sk8bcn

oui ça marche là! merci!
28/09/2007, 11h54
sk8bcn
Bon apres lectures, et differents tests, voila mes questions et observations:

1) J'arrive a ouvrir excel et des fichiers de la façon suivante:
Code:

1 2 Process.Start("excel.exe") Process.Start("C:\Echeancier v2.1\echeancier v2.1.xls")
après import de Imports System.Diagnostics

ça marche plutot bien. Je me demandais juste. Si une autre routine contient un autre "Process.Start("excel.exe")" ouvre-t'il excel une deuxième fois ou crée-t'il une fenetre?

2) Pour les macros, ça:

Code:

Application.Run MacroName:="ma_macro"

j'arrive pas à le faire marcher, y a un message d'erreur à la compilation. Bon j'ai mis ma macro en public sub (je sais pas si ça suffit) mais je me dis que vu qu'au lancement du programme, le classeur est encore fermé, ça peut jouer.

3)La doc de Rabilloud apporte beaucoup de nouvelles perspectives.

Mon idée était:

Interface en .exe => calcul via excel et ses fonctionalités de tableur =>retour.

Mais en fait, visiblement, je pourrais faire tourner tout ça dans mon appli en transparence, c'est exact?

Ce que je lis est interessant, mais pas orienté noob (je suis pas un noob total, mais j'en suis un qd meme)

Pour résumer ce que je comprend:
Code:

1 2 3 private sub button_click(...) dim appExcel as new excel.application
Dans la suite de ce cours il crée une nouvelle feuille. Moi je veux ouvrir une feuille que j'ai déjà designé et sur laquelle je lance mes macros de calcul.

donc pour l'ouvrir ce serait

Code:

appexcel.workbooks.open("C:\....")

mmmm

et ensuite? la macro...

Bon vais essayer un peu de faire fonctionner ça, je renvoie du feed back apres.
28/09/2007, 13h28
bidou

a la rigueur la macro n'a pas d'intérêt puisque le code de pilotage et le code de la macro seront identique à la condition de requalifier le scope.
Ce sera invisible tant que tu n'appeles pas la propriété visible de l'objet application, et tu dois bien ouvrir ton classeur avec workbooks.open.
28/09/2007, 13h37
sk8bcn

En gros, je peux copier et coller mes macros dans mon module vb, à la ligne pres, c'est ça?

Par ailleurs, mettons que je veuilles garder la macro dans excel, pour, de temps à autre, m'eviter mon interface qui ne servirai qu'a un utilisateur tiers.

Comment je la lance?

En plus, j'ai importé Microsoft Excel Object Library mais il ne reconnait pas ça pour autant:

Dim AppExcel As New excel.application

:/

c'est finalement pas si evident.
28/09/2007, 13h40
sk8bcn

Je me demande si j'ai vraiment besoin de cette option :bug:
28/09/2007, 16h07
bidou

Citation:

Envoyé par sk8bcn

En gros, je peux copier et coller mes macros dans mon module vb, à la ligne pres, c'est ça?

C'est ça mais il faudra requalifier tes lignes avec ton objet Application sinon tu vas créer des références implicites et tu ne pourras plus fermer le process Excel.exe

Citation:

Envoyé par sk8bcn

Par ailleurs, mettons que je veuilles garder la macro dans excel, pour, de temps à autre, m'eviter mon interface qui ne servirai qu'a un utilisateur tiers.

Comment je la lance?

AppExcel.Run("NomDeLaMacro") une fois que le classeur est ouvert

Citation:

Envoyé par sk8bcn

En plus, j'ai importé Microsoft Excel Object Library mais il ne reconnait pas ça pour autant:

Dim AppExcel As New excel.application

:/

c'est finalement pas si evident.

il faut faire un Imports Microsoft.Office.Interop si tu veux utiliser une qualification avec Excel.
01/10/2007, 10h27
sk8bcn
Code:

1 2 Imports System.Diagnostics Imports Microsoft.Office.Interop
mmm j'ai bien ajouté ceci et pourtant il ne veut pas de mon excel.application

J'ai aucune idée de pourquoi :/
09/10/2007, 10h39
sk8bcn

non je n'ai n'y oublié mon thread ni mon problème. En revanche il restera entre parenthèse quelques temps j'ai du taf avant à finir en urgence ;)

:mouarf: Je m'y relance une fois l'urgence passée!