Bonjour à tous,

J'ai de la difficulter avec un code et j'aurais besoin de votre aide.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Dim xlExcel     As New Excel.Application
 
    xlExcel.ActiveWorkbook.Sheets(1).Cells(2, 4).Value = Text1.Text
    xlExcel.Application.DisplayAlerts = False
    xlExcel.ActiveWorkbook.SaveAs "C:\Documents and Settings\test.xls"
    xlExcel.ActiveWorkbook.Close
    xlExcel.Quit
    Set xlExcel = Nothing
Dans ce code, la valeur du Text1 va dans Range("D2").

Ce que je voudrais faire, c'est que la valeur du Text1 soit dirigé dans la colonne 4, (Range("D65000").End(xlUp).Row + 1) mais à partir de la ligne 2.

Comment faire s.v.p?

Merci pour votre aide.