Discussion :

[lucie_e]

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 !

[ouskel'n'or]

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

[lucie_e]

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!