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

VBScript Discussion :

executer une macro d'un classeur avec plusieurs instances de Excel


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Avril 2004
    Messages
    73
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 73
    Par défaut executer une macro d'un classeur avec plusieurs instances de Excel
    Bonjour
    j'essaie d'exécuter une macro d'un classeur spécifique et dans une instance aussi spécifique parmi plusieurs instances de excel.
    le GetObject(CheminFichier).Application semble bien cibler la bonne instance, pourtant
    obj.Activate
    xl.Visible = True
    ne semble pas donner le focus à la fenêtre en question si au départ c'est une autre instance qui a le focus.
    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
    'les variables
     dim xl,wb,NomFichier,CheminFichier
     NomFichier ="Essai_macro.xlsm"
     CheminFichier ="C:/Users/toto/Desktop/Essai_macro.xlsm"
      'on vérifie si excel ouvert
     On Error Resume Next
     	Set xl = GetObject(CheminFichier).Application  
     On Error Goto 0
     'si excel ouvert
     if xl = "Microsoft Excel" then
     	set wb = Nothing
     'on vérifie si le document est ouvert
     	For Each obj In xl.Workbooks
    	'MsgBox obj.Name
     		If obj.Name = NomFichier Then  'use obj.FullName for full path
     			set wb = obj
    			obj.Activate
     			xl.Visible = True
     			xl.run "Macro_hello"
     			Exit For
     		End If
     	Next
    End If

  2. #2
    Membre confirmé
    Profil pro
    Inscrit en
    Avril 2004
    Messages
    73
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 73
    Par défaut
    J'ai trouvé :
    au lieu de c'est

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

Discussions similaires

  1. Executer une macro word avec Excel
    Par llyglad dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 13/09/2013, 19h17
  2. Executer une macro avec un batch
    Par julo12000 dans le forum Débuter
    Réponses: 0
    Dernier message: 12/11/2012, 14h13
  3. [XL-2010] Executer une macro depuis un autre classeur
    Par debdev dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 15/05/2011, 13h28
  4. Executer une macro dans un autre classeur
    Par nautygirl dans le forum Général VBA
    Réponses: 2
    Dernier message: 30/07/2007, 15h34
  5. Executer une Macro Access à partir d'Excel (avec VBA)
    Par math78 dans le forum Macros et VBA Excel
    Réponses: 10
    Dernier message: 08/11/2006, 14h05

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