VB et EXCELRésolu

Question

voila j'ai un petit prob je dois a partir d'un textbox remplir un fichier excel
 en cliquant sur un bouton le truc c ko clic suivant je dois insere le textbox dans la cellule suivant j'ai commencer un truc mais j'arrive po a g&#233;rer les boucles 

'D&#233;clarer l'appli Excel
Dim XlApp As Excel.Application
'L'instancier
Set XlApp = New Excel.Application
'Ouvrir le fichier
If Dir("c:\ok.xls") <> "" Then
XlApp.Workbooks.Open "c:\ok.xls"
Else
XlApp.Workbooks.Add
End If
'Ecrire dans les cellules d'excel


XlApp.Workbooks(1).Worksheets(1).Cells(2, 1) = Text1.Text


'Enregistrement des modi
XlApp.Workbooks(1).SaveAs "c:\ok.xls"
'Quitter l 'appli excel
XlApp.Workbooks(1).Close
XlApp.Quit
Set XlApp = Nothing


End Sub

donc la en fait je remplace a chaque fois la meme cellule ?
si qq peu m'aider merci d'avance

patdan · Accepted Answer

Je pense qu'il faut tout simplement faire &#233;voluer la colonne
For Col = 1 To nbcol      ' nbcol remplac&#233; par le nb de col en dur
   XlApp.Workbooks(1).Worksheets(1).Cells(2, Col ) = Text1.Text
Next

patdan

VB et EXCEL

1 réponse

Discussions similaires