Discussion :

[sk8bcn]

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.

[Skalp]

ouvre Excel (facile)

facile

ouvre des fichiers excel (heuuu faisable je pense)

faisable

lance des macros excels

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

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)

[sk8bcn]

merci!

Je vais lire, tester puis envoyer le feedback

[sk8bcn]

mince, le lien du cours marche pas.

[Bz]

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

Code :

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

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

[Skalp]

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

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

[Momodedf]

Voila,
mais aussi qui lance des macros excels

Code :

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

Application.Run MacroName:="ma_macro"

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

Code :

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

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

[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

[sk8bcn]

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

c'est ce lien qui refuse de marcher :/

[Skalp]

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 ?

[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