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 :

Mise en pause d'un code pendant utilisation de UserForm


Sujet :

Macros et VBA Excel

  1. #1
    Membre à l'essai
    Profil pro
    Inscrit en
    Février 2010
    Messages
    4
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2010
    Messages : 4
    Par défaut Mise en pause d'un code pendant utilisation de UserForm
    Salut à tous,

    Je lutte depuis un bon bout de temps sur un petit morceau de code, je fais donc appel à vos lumières!

    Principe:
    Je souhaite à partir d'une application de Vba pour SolidWorks (pour ce qui connaisse) appeler un UserForm d'un classeur excel.
    Dans ce UserForm, je rentre alors les donnée puis elles sont calculées dans excel puis retourner dans mon vba SolidWorks pour etre entrer solidWorks.

    J'arrive à ouvrir un tableau Excel depuis mon application Vba SoliDworks et afficher les donner des tableaux cependant je n'arrive pas afficher la UserForm créer dans Vba excel sans avoir un message d'erreur.

    En effet, il semblerai que mon code Vb dans Vba SolidWorks ne s'arrete pas au lancement de ma userform (Excel) donc il tente de fermer excel (comme ecrit dans mon code VBA SolidWorks) alors que je suis en train de rentrer des valeur dans ma userForm (Excel).

    Ma question est donc: Est-il possible de suspendre le code Vba Solidworks pendant que je travail sur l'UserFoom affichée puis reprendre le code pour fermer Excel une fois ma UserForm fermée?

    Ci-joint le code présent dans mon Vba SoliWorks (dans lequel Macro1 est le mon de la macro Excel qui lance ma UserForm 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
    Sub essai()
     
        Dim wb As Workbook
        Dim ws As Worksheet
        Dim Valeur As String
     
        Set wb = Workbooks.Open("C:\Documents and Settings\Romain\Bureau\Classeur1.xlsm")
        ' // Gérer les erreurs.
     
        Set ws = wb.Worksheets("Feuil1")
        ' // Gérer les erreurs.
     
    'wb.DoCmd.OpenForm ("UserForm1")
     
        Excel.Application.Run ("Macro1")
        MsgBox ("okkokok")
     
    'Valeur = ws.Cells(1, 1).Value
    'MsgBox ("Valeur")
     
    End Sub
    J'espère avoir été clair dans mes explication. Si toutefois vous avez des indices...

    Merci à tous,

    Romain

  2. #2
    Membre éclairé Avatar de FCL31
    Profil pro
    Inscrit en
    Août 2007
    Messages
    887
    Détails du profil
    Informations personnelles :
    Âge : 44
    Localisation : France

    Informations forums :
    Inscription : Août 2007
    Messages : 887
    Par défaut
    Salut

    Je pense que tu as un problème sur la formulation de ta question

Discussions similaires

  1. [AC-2007] Mise en pause code sur ouverture formulaire
    Par Marcopololo dans le forum VBA Access
    Réponses: 8
    Dernier message: 01/12/2011, 05h50
  2. Pause dans une application sans utiliser Sleep()
    Par CriPpLe dans le forum MFC
    Réponses: 9
    Dernier message: 25/03/2006, 11h00
  3. [Dreamwaver] Mise en page/forme du Code css html,js,php..
    Par acceso dans le forum Dreamweaver
    Réponses: 1
    Dernier message: 04/03/2006, 18h05
  4. mise a jour d'une bd pendant l'utilisation
    Par squal_13 dans le forum Décisions SGBD
    Réponses: 3
    Dernier message: 20/05/2005, 22h18
  5. mise en forme automatique du code a 80 colonnes ??
    Par benwa dans le forum JBuilder
    Réponses: 1
    Dernier message: 27/03/2005, 22h43

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