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 :

Ouverture de fichier selon condition


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Inscrit en
    Juillet 2008
    Messages
    11
    Détails du profil
    Informations forums :
    Inscription : Juillet 2008
    Messages : 11
    Par défaut Ouverture de fichier selon condition
    Bonjour à tous,

    Je débute avec VBA et je rencontre quelques embûches

    J'ai un UserForm à partir duquel...

    1- Un mois de l'année est sélectionné
    2- Un fichier Excel ouvert est activé
    3- Une feuille précise sélectionnée (ex: 06 pour juin).
    4- Sur le "Ok", une procédure est appelée.

    J'aimerais ensuite dans cette procédure pouvoir ouvrir autre fichier Excel en fonction de la feuille activée (variable) dans le premier fichier ouvert. Donc par exemple, ouvrir le fichier "abc" si la feuille "06" est active ou "def" si la feuille "07" est active dans le premier fichier, etc.

    Comment y arriver le plus simplement possible? L'utilisation de variables me semble bien entendu la solution, mais de quel genre et comment y parvenir car plusieurs de mes tentatives demeurent malheureusement sans succès. J'ai tenté de trouver réponse sur le Web, mais je m'y perds un peu.

    Merci à l'avance!

    L.

  2. #2
    Membre Expert
    Inscrit en
    Août 2006
    Messages
    1 588
    Détails du profil
    Informations forums :
    Inscription : Août 2006
    Messages : 1 588
    Par défaut
    Bonjour,
    cela pourrait se traduire par
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
     
    Private Sub Workbook_SheetActivate(ByVal Sh As Object)
     Select Case Sh.Name
     Case "06"
      Workbooks.Open ("C:\dossier1\abc.xls")
     Case "07"
       Workbooks.Open ("C:\dossier2\def.xls")
     Case "08"
       Workbooks.Open ("C:\dossier3\ghi.xls")
     End Select
    End Sub
    sur l'evenement Workbook_SheetActivate

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

Discussions similaires

  1. (debutant) condition d'ouverture de fichier
    Par weirdzard dans le forum LabVIEW
    Réponses: 15
    Dernier message: 14/01/2011, 15h23
  2. Inclure fichier selon conditions
    Par Xandler dans le forum Général JavaScript
    Réponses: 8
    Dernier message: 26/08/2009, 14h22
  3. ouverture de fichiers excel selon ce que l'on coche dans l' userform
    Par vinssieux dans le forum Macros et VBA Excel
    Réponses: 11
    Dernier message: 22/05/2008, 16h10
  4. Réponses: 2
    Dernier message: 17/07/2007, 11h53
  5. [PHP-JS] Ouverture d'un fichier selon une valeur d'une liste
    Par yacine mezzi dans le forum Langage
    Réponses: 1
    Dernier message: 06/05/2007, 18h22

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