DominoArea.org [Archive]

bonjour, je suis bloquée au niveau d'un export (d'ailleurs je vois que c'est un sujet tres répandu sur le forum...)j'aimerai savoir si qqun peut m'aider a remplacer ces lignes de codes par une boucle while... Mercivoila la code:Set Doc = Vue.getfirstdocument'positionnement sur la premiere ligne Ligne = 1While Not Doc Is Nothing' exporter la colonne 2Valeur = Doc.ColumnValues(1)xlApp.Application.activesheet.Cells(Ligne,1).Value = Valeur' Exporter la colonne 4Valeur = Doc.ColumnValues(3)xlApp.Application.activesheet.Cells(Ligne,2).Value = Valeur' Exporter la colonne 6Valeur = Doc.ColumnValues(5)xlApp.Application.activesheet.Cells(Ligne,3).Value = Valeur' Passage au suivantSet Doc = Vue.getnextdocument(Doc)Ligne = Ligne + 1Wendvotre aide me sera tres précieuse!!!!!!!!!! merci de bien vouloir me répondre... j'attends vos réponses!

Salut,essai ceciDim TabCol (2)Dim Indice as integerTabCol(0) = 1TabCol(1) = 3TabCol(2) = 5Set Doc = Vue.getfirstdocument'positionnement sur la premiere ligne Ligne = 1For Indice = 0 to ubound(TabCol)Valeur = Doc.ColumnValues(TabCol(Indice))xlApp.Application.activesheet.Cells(Ligne,Indice + 1).Value = Valeurnext