Discussion :

[AlexLyon]

Bonjour...
voila, je bloque sur l'ouverture d'un fichier excel existant, en vb 2010...
je voudrais ouvrir le fichier, ajouter une ligne (composée de mes différentes variables) et lancer le fichier excel apres l'avoir mis a jour, afin que l'utilisateur puisse vérifier la mise a jour, et que la macro de démarrage contenue dans le fichier excel s'exécute.

Les différents msg d'aide que j'ai vu concernent vb 2008 ou 2005, et la syntaxe ne fonctionne pas avec vb 2010...

la derniere ligne ne fonctionne pas => xlapp.xlfile.open()

voici mon code...
Merci pour votre aide

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
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim xlapp As New Microsoft.Office.Interop.Excel.Application
        Dim xlfile As Object = ("d:\gestion_caisse\caisse.xlsm")
        Dim wkb As xlapp.Workbook
        Dim wks As xlapp.Worksheet
        Dim xlcaisse As Object
        Dim Tdat As Date = DataGridView2.Rows(0).Cells(0).Value
        Dim Totpres As Single = DataGridView4.Rows(0).Cells(1).Value
        Dim Totprcb As Single = DataGridView4.Rows(1).Cells(1).Value
        Dim Totprch As Single = DataGridView4.Rows(2).Cells(1).Value
        Dim Totmaes As Single = DataGridView4.Rows(4).Cells(1).Value
        Dim Totmacb As Single = DataGridView4.Rows(5).Cells(1).Value
        Dim Totmach As Single = DataGridView4.Rows(6).Cells(1).Value
        Dim Totdeb As Single = DataGridView4.Rows(8).Cells(1).Value
 
        xlapp.xlfile.open()
     End Sub

[hunteshiva]

Bonjour,

peut tu nous donner le message d'erreur fourni par le debogueur?

[Theze]

Bonsoir,

Et avec :

Code :

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

1
2
 
wkb = xlapp.Workbooks.Open("d:\gestion_caisse\caisse.xlsm")

Hervé.