Bonjour le forum,
j'ai besoin d'écrire ligne par ligne dans un fichier Excel, des données dont la source est un autre fichier cela fonctionne avec le code suivant mais pour une ligne.
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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub ajoutEnregistrement()
    Dim Cn As ADODB.Connection
    Dim Fichier As String, Feuille As String, strSQL As String
    Dim LaDate As Date
    Dim PrixUnit As Integer
    Dim leNom As String, lePrenom As String
 
    Fichier = "C:\Base.xls"
    Feuille = "Feuil1"
 
    'Les données à insérer:
    LaDate = CDate("26/05/2006")
    leNom = Cells.Range("A1")
    lePrenom = Cells.Range ("A2")
    PrixUnit = Cells.Range ("A3")
 
    Set Cn = New ADODB.Connection
 
    With Cn
        .Provider = "MSDASQL"
        .ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & _
            "DBQ=" & Fichier & "; ReadOnly=False;"
        .Open
    End With
 
    'Les données doivent être indiquées dans le même ordre que les champs dans la base de données.
    strSQL = "INSERT INTO [" & Feuille & "$] " _
        & "VALUES (#" & LaDate & "#, " & _
        "'" & leNom & "', " & _
        "'" & lePrenom & "', " & _
        PrixUnit & ")"
 
    Cn.Execute strSQL
 
    Cn.Close
    Set Cn = Nothing
End Sub

Là j'écrit la première ligne, je souhaite boucler sur cette commande pour écrire autant d'enregistrement que de ligne remplies dans le dossier source.
je ne sait pas comment faire la boucle For
le forum peut-il m'aider
Merci d'avance à ceux qui prendront le temps de me lire
JF