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 :

Evènement Private Sub Workbook_Activate()


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau membre du Club
    Profil pro
    Inscrit en
    Octobre 2007
    Messages
    4
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2007
    Messages : 4
    Par défaut Evènement Private Sub Workbook_Activate()
    Bonjour,

    J'ai un petit soucis avec cet événement.

    #Description du projet :
    - fichiers Nomenclature XXXXX-001 / XXXXX-002 ...
    - fichier Listing_nomenclature : qui permet de lire dans chaque nomenclature afin d'avoir un listing complet sur une page Excel.

    Les deux types de fichiers XXXXX-YYY et Listing_nomenclature comportent des macros

    #ce qui se passe
    J'ouvre Listing_nomenclature et 1 nomenclature XXXXX-001 sous la même instance Excel (même PC)

    - activation du classeur Listing_nomenclature
    . appui sur un bouton pour faire le listing
    . vérification des fichiers ouverts avec la fonction Name (renomme)
    . si erreur 75 (pas possible de renommer) - > cad fichier ouvert
    . affichage message box "fermez les fichiers ouvert"
    . Exit sub de la macro

    - lorsque je vais sur mon fichier ouvert XXXXX-001 pour le fermer ( Ctrl+Tab) les macros présentes dans Sub workbook_activate() ne s'effectuent plus.

    Par contre quand j'appelle une macro présente dans XXXXX-001 et que je repasse par Ctrl+Tab pour aller sur un autre fichier et que je reviens sur le fichier nomenclature, on repasse par Sub workbook_activate() .

    Quelqu'un à une explication?

    rmq : Ctrl+Tab => changement de classeur dans la même instance excel

  2. #2
    Membre Expert
    Profil pro
    Inscrit en
    Juin 2009
    Messages
    652
    Détails du profil
    Informations personnelles :
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Juin 2009
    Messages : 652
    Par défaut
    Bonjour,

    A tout hasard, lorsque l'erreur 75 apparaît, insérez l'instruction suivante à la ligne d'après

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    Application.EnableEvents = True
    Cordialement.

    PMO
    Patrick Morange

  3. #3
    Inactif  
    Profil pro
    Inscrit en
    Juin 2007
    Messages
    2 054
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Juin 2007
    Messages : 2 054
    Par défaut
    Bonjour,
    Ctrl+Tab n'active pas ton classeur, pour détecter le passage emploi plutôt...
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub Workbook_WindowActivate(ByVal Wn As Window)
     
    End Sub
    A+

Discussions similaires

  1. Private Sub Form_Open . Dim maxi
    Par Nessie37 dans le forum VBA Access
    Réponses: 6
    Dernier message: 08/10/2007, 18h19
  2. code: Private Sub Form_Timer avec condition
    Par WITER dans le forum IHM
    Réponses: 3
    Dernier message: 25/07/2007, 23h33
  3. [VBA] Goto faisant référence en-dehors d'un Private Sub?
    Par Oceliane dans le forum VBA Access
    Réponses: 2
    Dernier message: 28/03/2007, 15h57
  4. Réponses: 9
    Dernier message: 06/06/2006, 22h05
  5. mettre plusieurs private sub sur un bouton ?
    Par juju33 dans le forum Access
    Réponses: 2
    Dernier message: 26/03/2006, 16h22

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