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

Macros et VBA Excel Discussion :

Erreur à la création d'un module


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éprouvé Avatar de defluc
    Homme Profil pro
    Architecte
    Inscrit en
    Mai 2002
    Messages
    1 383
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 76
    Localisation : Belgique

    Informations professionnelles :
    Activité : Architecte

    Informations forums :
    Inscription : Mai 2002
    Messages : 1 383
    Par défaut Erreur à la création d'un module
    Bonjour à tous,

    Cela fait trois jours que je sèche sur la source ci après.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Private Sub InsertMacro(WbkTarget As Workbook) 
      Dim  vbCompon As VBComponent
        Set vbCompon = WbkTarget.VBProject.VBComponents.Add(1)
        vbCompon.Name = "TestDeplace"
        With vbCompon.CodeModule
          .InsertLines 1, "Declare Function GetAsyncKeyState Lib ""user32.dll"" (ByVal vKey As Long) As Integer"
        End With
    L'affectation de vbCompon ne se fait pas puisque l'instruction qui suit le Set déclenche l'erreur 91 : Variable objet ou variable de bloc With non définie

    Par contre, le code suivant ne pose aucun problème
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
      With WbkTarget.VBProject.VBComponents("Feuil1").CodeModule
        l = 1
        .InsertLines l, "Private Sub Worksheet_SelectionChange(ByVal Target As Range)"
    ...
    N'ayant trouvé aucune solution sur la toile, Je m'adresse à vous.

    Merci d'avance

  2. #2
    Membre Expert
    Homme Profil pro
    Inscrit en
    Décembre 2011
    Messages
    1 186
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Décembre 2011
    Messages : 1 186
    Par défaut
    Bonsoir,

    Si le niveau de sécurité des macros le permet
    (sous XLS2003 Outil -> Macro -> Securité , ; onglet <Editeurs Approuvés> ; sélectionner Faire confiance au Projet Visual Basic)

    Je pense que le problème est que le module TestDeplace existe déjà dans la feuille.

    Un code de ce type la devrait corriger ce problème :
    moduleName : étant le nom du module dans lequel le code doit être inséré (dans l'exemple précédant TestDeplace)

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Private Sub InsertMacro(WbkTarget As Workbook, moduleName As String)
        Dim vbCompon As VBComponent
     
        Set vbCompon = GetModule(WbkTarget, moduleName)
        If vbCompon Is Nothing Then
            Set vbCompon = CreateModule(WbkTarget, moduleName)
        End If
     
        With vbCompon.CodeModule
              .InsertLines 1, "Declare Function GetAsyncKeyState Lib ""user32.dll"" (ByVal vKey As Long) As Integer"
        End With
    End Sub
    CreateModule : Créé le module dans le classeur
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Private Function CreateModule(WbkTarget As Workbook, moduleName As String) As VBComponent
            Set CreateModule = WbkTarget.VBProject.VBComponents.Add(vbext_ct_StdModule)
            CreateModule.Name = moduleName
    End Function
    GetModule: Retourne le module contenu dans un classeur (s'il existe). Nothing sinon
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Private Function GetModule(WbkTarget As Workbook, moduleName As String) As VBComponent
        Dim vbCompon As VBComponent
     
        For Each vbCompon In WbkTarget.VBProject.VBComponents
            If vbCompon.Name = moduleName Then
                Set GetModule = vbCompon
                Exit For
            End If
        Next
    End Function

  3. #3
    Membre éprouvé Avatar de defluc
    Homme Profil pro
    Architecte
    Inscrit en
    Mai 2002
    Messages
    1 383
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 76
    Localisation : Belgique

    Informations professionnelles :
    Activité : Architecte

    Informations forums :
    Inscription : Mai 2002
    Messages : 1 383
    Par défaut
    Comme l'insertion dans "Feuil1" fonctionnait, j'ai déplacé le code posant problème après et, oh miracle, cela marche.
    Pourquoi ? mystère.
    Je marque donc le sujet comme résolu.
    Mais au préalable, je te remercie pour ta réponse et surtout pour la fonction très utile «GetModule».

    Bon week-end

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [Joomla!] erreur de création de module Joomla
    Par romson2 dans le forum EDI, CMS, Outils, Scripts et API
    Réponses: 4
    Dernier message: 23/09/2013, 17h06
  2. [Sessions] Message erreur PHP création de session
    Par Ylias dans le forum Langage
    Réponses: 2
    Dernier message: 29/09/2005, 11h11
  3. Réponses: 26
    Dernier message: 27/04/2005, 11h29
  4. Réponses: 3
    Dernier message: 12/11/2003, 15h57

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