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 :

Jongler entre les Workbooks et WorkSheets


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Candidat au Club
    Inscrit en
    Août 2007
    Messages
    2
    Détails du profil
    Informations forums :
    Inscription : Août 2007
    Messages : 2
    Par défaut Jongler entre les Workbooks et WorkSheets
    Bonjour,

    j'espère ne pas me faire taper trop sur les doigts comme quoi il existe plein de posts et tutoriels à ce sujet... j'en ai lu bon nombre mais je ne m'en sors pas.

    Dans une feuille "Planning" du fichier "Consolidation.xls", j'ai un bouton qui doit me permettre d'aller chercher des donnees contenues dans la feuille "Consolidation" du fichier "Calendrier.xls".

    Je voudrais en fait simplement aller chercher les données dans la feuille "Consolidation" pour calculer de nouvelles données que j'insère dans ma feuille "Planning". Mais cela sans recopier de nouvelles feuilles de "Calendrier.xls" vers "Consolidation.xls".

    Voici pour l'instant à quoi ressemble mon code :

    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
     
    Sub importCongesMain()
     
    Dim planningws As Worksheet
    Dim consowb As Workbook
     
    Application.ScreenUpdating = False
    Set planningws = ActiveWorkbook.Worksheets("Planning")
    Set consowb = Workbooks.Open("C:\Documents and Settings\[xxxx]\Bureau\macro\Calendrier.xls")
     
    [...définition du reste de mes variables : i, anneeCur, etc. ...]
     
    Set planningws = Workbooks("Consolidation.xls").Sheets("Planning")
    MsgBox ("test7")
    Do While consowb.Sheets("Consolidation").Range("A1").Offset(i, 0).Value = ""
        MsgBox ("test8")
     
    [...traitements divers et variés...]
     
    Loop
    Application.ScreenUpdating = True
    End Sub
    Ce que je ne comprend pas, c'est pourquoi le message 'test7' apparait bien, puis aucun 'test8'. Le programme s'exécute sans erreurs, mais c'est probablement parce que la suite n'est même pas parcourue : quand j'ouvre MS Visual Basic après exécution, j'atteris sur les macros de la feuille "Parametres", et le code reste bloqué ici apparemment.

    Mmmmmmmm voilà............ j'espère que j'ai été assez claire... pourriez-vous m'expliquer comment est-ce que je dois m'y prendre pour rester dans ma Sub et poursuivre le reste des tratements, tout en allant chercher des données dans la feuille d'un autre fichier ? (si c'est possible.....). A défaut, si vous avez sous la main un tuto que je n'aurais pas lu...

    Merci d'avance !

  2. #2
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    Où incrémentes-tu i dans cette boucle ? Tel quel ton i = 0
    Do While consowb.Sheets("Consolidation").Range("A1").Offset(i, 0).Value = ""
    MsgBox ("test8")

    [...traitements divers et variés...]

    Loop

  3. #3
    Candidat au Club
    Inscrit en
    Août 2007
    Messages
    2
    Détails du profil
    Informations forums :
    Inscription : Août 2007
    Messages : 2
    Par défaut
    Je l'incrémente juste avant la fin de la boucle.
    Mais je viens en fait de trouver le problème... c'était la condition de mon while qui n'était jamais bonne.
    Désolée pour le dérangement et merci quand même!

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

Discussions similaires

  1. Jongler entre les onglets d'un navigateur web
    Par Woodkand dans le forum Général Python
    Réponses: 19
    Dernier message: 30/08/2012, 13h50
  2. [AC-2007] jongler entre les records dans sous-formulaire
    Par fastpulse dans le forum IHM
    Réponses: 1
    Dernier message: 15/06/2010, 16h48
  3. [Excel/Modèle Objet] Comment fonctionnent les Workbook et Worksheet
    Par SmOkEiSBaD dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 14/05/2008, 10h39
  4. Benchmark entre les langages
    Par El blérot dans le forum Langages de programmation
    Réponses: 4
    Dernier message: 27/12/2002, 01h22
  5. Réponses: 3
    Dernier message: 07/05/2002, 16h06

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