Piloter Excel via VB6

Version imprimable

Bonjour à toutes et tous, ceci est mon premier message.

Pour info je programme en VB6 depuis plus de 10 ans.
Mais là, je comprend pas.

Voilà ce qui m’amène : Depuis VB, j’imprime une feuille Excel.
Voici le code :
Code:

1 2 3 4 5 6 7 8 9 10 Dim objxl As New Excel.Application With objxl Workbooks.Open ("\\BATAX352\Rapact\WorkOrder.xls") .Cells(17, 3) = Form1.Combo1 .Cells(17, 5) = Form1.Text14 .Cells(21, 3) = Form1.Text1 & ", " & Form1.Combo2 & ", " & Form1.Text6 .ActiveSheet.PrintOut End With objxl.Windows(1).Close savechanges:=False objxl.Quit
Ça fonctionne, mais une seule fois. Après, ça plante.
ça re fonctionne alors, mais une fois, puis re boum.

Vu que c'est sur réseau, j'ai essayé ailleurs. Même chose, une fois ok, après, fini.

Erreur 1004 à la ligne : .Cells(17, 3) = Form1.Combo1
Le pire, c'est que j'ai fais un copier/coller de ce code qui est hyper stable mais qui imprime une autre feuille Excel. J'ai juste modifié le nom du fichier et les cellules à imprimer.

C'est fou.

Une idée ?

Merci, Benoît,

J'ai essayé ceci, et ça marche autant de fois que je clic

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
Private Sub Command1_Click()
 
Dim xlapp As Excel.Application  'Application Excel
Dim xlbook As Excel.Workbook    'Classeur Excel
Dim xlsheet As Excel.Worksheet  'Feuille Excel
Dim i As Integer
Dim Chemin As String
 
Chemin = "\\BATAX352\Rapact\WorkOrder.xls"
 
Set xlapp = CreateObject("Excel.Application")   'Ouverture de l'application Excel
Set xlbook = xlapp.Workbooks.Open(Chemin)       'Ouverture d'un fichier Excel
Set xlsheet = xlbook.Sheets("Feuil1")           'Ouverture de la feuille1 du fichier Excel
xlapp.Visible = True                            'Rend visible l'pplication Excel
 
    xlapp.Cells(17, 3) = Form1.Combo1
    xlapp.Cells(17, 5) = Form1.Text14
    xlapp.Cells(21, 3) = Form1.Text1 & ", " & Form1.Combo2 & ", " & Form1.Text6
    xlapp.ActiveSheet.PrintOut
    xlapp.DisplayAlerts = False
    xlapp.Windows(1).Close savechanges:=False
    xlapp.Quit      'Quitte l'application Excel
 
    Set xlsheet = Nothing
    Set xlbook = Nothing
    Set xlapp = Nothing
 
End Sub

10/03/2011, 11h12
Pascal Lob

je penses que ton application ne se ferme pas correctement. Comme elle n'est pas visible tu ne t'en rend pas compte et ton fichier reste en accès.
un
Set objxl = Nothing
devrait t'aider,

mais pour debugger tu devrais ajouter un objxl.visible = true pour voir ce qu'il se passe vraiment.