Discussion :

[Louis.Gruhn]

Bonjour à tous,

J'utilise excel pour crée un rapport des données d'une BDD. pour cela je passe par VB6 où j'ai l'IHM pour le faire.

J'arrive à crée mon premier rapport parfaitement, mais si je veux enchainer sur un deuxième rapport sa plante car le processus excel tourne encore.

Code erreur 1004 : method range of object _ globale failed

J'aimerais savoir comment vraiment fermé excel car avec ce que j'utilise il reste quand même en tache de fond (ctrl+alt+supp -> processus)

Voici mon code pour ouvrir/fermé excel

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
'Déclaration des variables
Dim appExcel As Excel.Application 'Application ExcelDim
Dim wbExcel As Excel.Workbook 'Classeur ExcelDim
Dim wsExcel As Excel.Worksheet 'Feuille Excel
 
'Ouverture de l'application
Set appExcel = New Excel.Application
 
'Récupération de la trame
Set wbExcel = appExcel.Workbooks.Open("P:\Maintenance\Gruhn Louis\Trame\Trame.xls")
 
'Récupération de la feuille N°1
Set wsExcel = wbExcel.Sheets(1)    
 
 
'CODE bla bla bla bla
 
 
wbExcel.SaveAs ("P:\Maintenance\Gruhn Louis\PVNo" & Frm_Page_Principale.Combo7.Text & ".xls")
wbExcel.Close
appExcel.Quit
 
    Set wsExcel = Nothing
    Set wbExcel = Nothing
    Set appExcel = Nothing

[OhMonBato]

Bonjour,

après une petite recherche sur ce forum (avec "fermeture excel"), j'ai trouvé cette discussion.

[DarkVader]

Bonjour à tous,

J'utilise excel pour crée un rapport des données d'une BDD. pour cela je passe par VB6 où j'ai l'IHM pour le faire.

J'arrive à crée mon premier rapport parfaitement, mais si je veux enchainer sur un deuxième rapport sa plante car le processus excel tourne encore.

Code erreur 1004 : method range of object _ globale failed

J'aimerais savoir comment vraiment fermé excel car avec ce que j'utilise il reste quand même en tache de fond (ctrl+alt+supp -> processus)

Voici mon code pour ouvrir/fermé excel

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
'Déclaration des variables
Dim appExcel As Excel.Application 'Application ExcelDim
Dim wbExcel As Excel.Workbook 'Classeur ExcelDim
Dim wsExcel As Excel.Worksheet 'Feuille Excel
 
'Ouverture de l'application
Set appExcel = New Excel.Application
 
'Récupération de la trame
Set wbExcel = appExcel.Workbooks.Open("P:\Maintenance\Gruhn Louis\Trame\Trame.xls")
 
'Récupération de la feuille N°1
Set wsExcel = wbExcel.Sheets(1)    
 
 
'CODE bla bla bla bla
 
 
wbExcel.SaveAs ("P:\Maintenance\Gruhn Louis\PVNo" & Frm_Page_Principale.Combo7.Text & ".xls")
wbExcel.Close
appExcel.Quit
 
    Set wsExcel = Nothing
    Set wbExcel = Nothing
    Set appExcel = Nothing

Il est normal que si Excel plante sur une erreur non gérée il reste en tache de fond.
La solution indiquée ci-dessus n'est à utiliser que quand on ne veut pas se prendre la tête ;
il n'y a pas d'autre solution propre que de traiter toutes les erreurs.

[Louis.Gruhn]

@OhmonBato : sa me parait un peu brutale mais je vais essayer. -> erreur "remote server machine does not work or is unavalaible", mais au premier essai sa passe tjr, c'est le 2eme qui bug :s

@DarkVader enfait lors de la première sauvegarde du rapport il ne plante pas ET laisse excel ouvert en processus, puis du fait qu'il reste ouvert il plante dès que je réssaye de generer un rapport.

[Louis.Gruhn]

@OhmonBato : sa me parait un peu brutale mais je vais essayer. -> erreur "remote server machine does not work or is unavalaible", mais au premier essai sa passe tjr, c'est le 2eme qui bug :s

@DarkVader enfait lors de la première sauvegarde du rapport il ne plante pas ET laisse excel ouvert en processus, puis du fait qu'il reste ouvert il plante dès que je réssaye de generer un rapport.

Toujours d'actualité, si quelqu'un, en ces périodes de fêtes, se sent motivé à m'aidé j'accepte volontiers !

Bonne fêtes à vous,

Louis,

[DarkVader]

Dis ainsi 8)

Au lieu de parler vaguement de plantage, j'aurais du parler de n'importe quelle erreur survenue avant fermeture :
par exemple, il suffit qu'un objet ne soit pas détruit pour qu'XL refuse de se fermer.

Bonnes fêtes.

[Louis.Gruhn]

Voila problème résolu , sa n'avais pas grand chose a voir avec ouverture fermeture d'excel, mais j'avais oublié de mettre le nom de la feuille en cours devant mes fonction range("XX").

Punaise 2jours de recherche pour un truc aussi bête (j'ai encore du chemin à parcourir)

En tout cas j'ai lâché un beau cri de joie quand sa a fonctionné =D

Bonnes fêtes à vous