Discussion :

[qltmi]

Bonjour,

je voudrais savoir si c'est normal que mes fonctions marchent une fois fois sur deux.
En effet, j'ai une première fonction dont les principaux parties sont:

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
Private Sub btn_export_excel_Click()
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
 
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Add 
Set xlSheet = xlBook.Worksheets.Add
xlSheet.Name = "test"
Module_RESULTAT.fct_etat ()
.
.
.
 
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
xlApp.Quit
End Sub

et la deuxieme fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Function fct_etat ()
Dim xlSheet As Excel.Worksheet
Dim xlRange As Excel.Range
 
Dim rec As Recordset
 
Set rec = CurrentDb.OpenRecordset("donneetest", dbOpenSnapshot)
Set xlSheet = ActiveWorkbook.Worksheets("test")
.
.
.
end function

La premiere fonction me sert à lancer excel et à créer un onglet, la suite du fichier contiendra aussi d'autre fonction de ce type à savoir création d'onglet et appel d'autre fonction du second type.
la second fonction me sert à me connecter à une requête et à remplir une feuille excel.
Le problème vient du fait que lorsque je clique sur le bouton qui appel la première fonction tous ce passe comme prévu à savoir le remplissage de plusieurs dizaine d onglet. Cependant lorsque je reclique à nouveau l 'erreur suivant apparaît: "variable objet ou variable de bloc wih non defenie" et l'erreur pointe sur la ligne "Set xlSheet = ActiveWorkbook.Worksheets("test")".

Merci de votre aide.

[mout1234]

Bonsoir,

Je n'ai pas précisément repéré où est le problème mais tu limiteras sans doute les difficultés en évitant l'usage de tous ce qui se réfère à la sélection et aux éléments actifs. Même si l'enregistreur de macros d'Excel en fait un usage quasi-systématique, il est préférable de manipuler les éléments sans exploiter ces fonctionnalités.

Dans ton cas, tu peux sans doute éviter d'avoir à retrouver ta feuille dans la fonction en la passant en paramètre.

Code :

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

Module_RESULTAT.fct_etat (xlSheet)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 
Public Function fct_etat (xlSheet as Excel.WorkSheet)
Dim xlRange As Excel.Range
 
Dim rec As Recordset
 
Set rec = CurrentDb.OpenRecordset("donneetest", dbOpenSnapshot)
.
.
.
end function

En espérant que cela élimine en même temps ton souci...

[qltmi]

Bonjour,
en fait j'ai déjà essayer ce que tu m'as di de faire, mais le problème c'est que j'ai l'erreur 438: "Propriété ou méthode non gérée par cette objet" pour sur la ligne

Code :

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

 Module_RESULTAT.fct_etat (xlSheet)

.
Donc je pense qu'il n'est pas possible d'appeler une feuille exel dans une fonction.

Cordialement

[AlainTech]

Il est parfaitement possible de passer une feuille Excel en paramètre d'une fonction ou d'une procédure.

Il faudrait chercher ailleurs l'origine de ton problème.

[mout1234]

TU as déclaré une référence à Microsoft Excel?

[cavo789]

Ton problème me semble classique : tu as déclaré tes variables au sein d'une subroutine ==> elles sont privées.

Au sortir de ta première subroutine, Excel est clôturé (xlApp.Quit) et la mémoire libérée (Set xlApp = Nothing). Inconnu donc dans ta seconde fonction.

Met donc xlApp en variable publique.

Remarque : il faut d'abord faire xlApp.Quit avant de faire le Set xlApp = Nothing; pas l'inverse.

Christophe

[mout1234]

Ton problème me semble classique : tu as déclaré tes variables au sein d'une subroutine ==> elles sont privées.

Au sortir de ta première subroutine, Excel est clôturé (xlApp.Quit) et la mémoire libérée (Set xlApp = Nothing). Inconnu donc dans ta seconde fonction.

Heu tu vas un peu vite en conclusions je crois... la fonction 2 est appelée à partir de la fonction 1 et xlApp.quit n'est pas exécuté à ce moment.

Met donc xlApp en variable publique.

Je préfère le passage de paramètres mais ca marche aussi...

Remarque : il faut d'abord faire xlApp.Quit avant de faire le Set xlApp = Nothing; pas l'inverse.

+1 , bien vu .