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 :

Exportation de module


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Consultant fonctionnel
    Inscrit en
    Novembre 2014
    Messages
    27
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Consultant fonctionnel

    Informations forums :
    Inscription : Novembre 2014
    Messages : 27
    Par défaut Exportation de module
    Bonjour,

    Je suis nouveau dans ce forum et vous salut! Je suis consultant et développe de temps en temps des macro VBA afin de faciliter le travail des gens.

    Je me trouve actuellement avec une problématique d'exportation de modules et formulaires. J'ai développé une macro sous excel 2010 qui fonctionne parfaitement:

    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
    Public Sub exportform(fichiersource As String, destin As String)
    Dim srcWB As Workbook
    Dim destWb As Workbook
    Const sStr As String = "C:\myFile.frm"
    Const sStr2 As String = "C:\myFile.bas"
     
    Set srcWB = Workbooks(fichiersource)
    Set destWb = Workbooks(destin)
     
    srcWB.VBProject.VBComponents("menuini").Export Filename:=sStr
    destWb.VBProject.VBComponents.Import Filename:=sStr
    Kill sStr
    srcWB.VBProject.VBComponents("UF1saisie").Export Filename:=sStr
    destWb.VBProject.VBComponents.Import Filename:=sStr
    Kill sStr
    srcWB.VBProject.VBComponents("UF2saisie").Export Filename:=sStr
    destWb.VBProject.VBComponents.Import Filename:=sStr
    Kill sStr
    srcWB.VBProject.VBComponents("UF1saisieVal").Export Filename:=sStr
    destWb.VBProject.VBComponents.Import Filename:=sStr
    Kill sStr
    srcWB.VBProject.VBComponents("Module2").Export Filename:=sStr2
    destWb.VBProject.VBComponents.Import Filename:=sStr2
    Kill sStr2
    End Sub
    Cependant lorsque ce fichier avec macro est exécuté sous excel 2013 il me présente une erreur 50034. J'ai pourtant bien activé les références VBE ainsi que les sécurités VBA d'Excel.

    Auriez-vous une idée?

    Merci beaucoup!

  2. #2
    Membre Expert
    Homme Profil pro
    Ingénieur développement matériel électronique
    Inscrit en
    Septembre 2013
    Messages
    783
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur développement matériel électronique
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : Septembre 2013
    Messages : 783
    Par défaut
    Bonjour,

    Voir peut-être ce post .....
    http://www.developpez.net/forums/d14...ommande-close/

    Bonne journée

Discussions similaires

  1. [VBA-E]Exporter / importer tous les modules et frm d'un projet
    Par ouskel'n'or dans le forum Contribuez
    Réponses: 6
    Dernier message: 16/03/2013, 18h37
  2. [AC-2003] Comment exporter un module dans une feuille Excel?
    Par SunRay dans le forum VBA Access
    Réponses: 2
    Dernier message: 01/10/2009, 16h23
  3. exporter un module
    Par salseropom dans le forum Fortran
    Réponses: 3
    Dernier message: 30/06/2009, 16h48
  4. Erreur lors de l'exportation des module par macro
    Par ckrikri dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 18/02/2009, 14h02
  5. Réponses: 2
    Dernier message: 11/04/2006, 19h09

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