IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

Initialisation des variables


Sujet :

VBA Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Webmaster
    Inscrit en
    Juin 2007
    Messages
    126
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Webmaster

    Informations forums :
    Inscription : Juin 2007
    Messages : 126
    Par défaut Initialisation des variables
    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.

  2. #2
    Membre Expert
    Avatar de mout1234
    Profil pro
    Inscrit en
    Novembre 2006
    Messages
    2 210
    Détails du profil
    Informations personnelles :
    Âge : 56
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Novembre 2006
    Messages : 2 210
    Par défaut
    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...

  3. #3
    Membre confirmé
    Homme Profil pro
    Webmaster
    Inscrit en
    Juin 2007
    Messages
    126
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Webmaster

    Informations forums :
    Inscription : Juin 2007
    Messages : 126
    Par défaut
    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

  4. #4
    Modérateur
    Avatar de AlainTech
    Homme Profil pro
    Consultant informatique
    Inscrit en
    Mai 2005
    Messages
    4 235
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : Belgique

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : Finance

    Informations forums :
    Inscription : Mai 2005
    Messages : 4 235
    Par défaut
    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.
    N'oubliez pas de cliquer sur quand vous avez obtenu ou trouvé vous-même la réponse à votre question.
    Si vous trouvez seul, pensez à poster votre solution. Elle peut servir à d'autres!
    Pensez aussi à voter pour les réponses qui vous ont aidés.
    ------------
    Je dois beaucoup de mes connaissances à mes erreurs!

  5. #5
    Membre Expert
    Avatar de mout1234
    Profil pro
    Inscrit en
    Novembre 2006
    Messages
    2 210
    Détails du profil
    Informations personnelles :
    Âge : 56
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Novembre 2006
    Messages : 2 210
    Par défaut
    TU as déclaré une référence à Microsoft Excel?

  6. #6
    Membre Expert
    Avatar de cavo789
    Homme Profil pro
    Développeur Web
    Inscrit en
    Mai 2004
    Messages
    1 797
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Développeur Web

    Informations forums :
    Inscription : Mai 2004
    Messages : 1 797
    Par défaut
    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

  7. #7
    Membre Expert
    Avatar de mout1234
    Profil pro
    Inscrit en
    Novembre 2006
    Messages
    2 210
    Détails du profil
    Informations personnelles :
    Âge : 56
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Novembre 2006
    Messages : 2 210
    Par défaut
    Citation Envoyé par 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.
    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.

    Citation Envoyé par cavo789
    Met donc xlApp en variable publique.
    Je préfère le passage de paramètres mais ca marche aussi...

    Citation Envoyé par cavo789
    Remarque : il faut d'abord faire xlApp.Quit avant de faire le Set xlApp = Nothing; pas l'inverse.
    +1 , bien vu .

Discussions similaires

  1. Initialisation des variables globales dans un package
    Par fred_hte_savoie dans le forum SQL
    Réponses: 2
    Dernier message: 17/04/2007, 10h26
  2. Réponses: 6
    Dernier message: 14/03/2007, 22h04
  3. Réponses: 13
    Dernier message: 05/11/2006, 22h53
  4. Initialisation des variables
    Par gagarine dans le forum Langage
    Réponses: 3
    Dernier message: 03/08/2006, 11h36
  5. [débutant] initialisation des variables.
    Par zui dans le forum Langage
    Réponses: 1
    Dernier message: 05/06/2006, 15h29

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo