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 :
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.
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
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 !
Partager