LECTURE DE TEXTBOX LIGNE PAR LIGNE ET ENREGISTREMENT DANS LES CELLULES D'UN FICHIER EXCEL .XLS

    'il faut rajouter Microsoft Excel 10.0 Object Library dans les references
    'déclaration de la chaine
    Dim chaine As String
    'enregistrement de la chaine
    chaine = Text1.Text
    'déclaration du tableau
    Dim tableau() As String
    'lecture du textbox ligne par ligne avec pr caractere de séparation vbCrLf
    tableau = Split(Text1, vbCrLf)
    
    nbligne = 0
    
    'calcul du nombre de ligne
    For j = 1 To Len(chaine)
        If Mid(chaine, j, 1) = Chr(13) Then
            nbligne = nbligne + 1
        End If
    Next j
    
    'déclaration des chaines d'adresse
    Dim adresse As String
    Dim Source As String
    
    adresse = "C:\copie.xls"
    Source = "C:\model.xls"
    
    'creation et copie du fichier copie
    Set dossier = CreateObject("Scripting.FileSystemObject")
    copier = dossier.copyfile(Source, adresse)

    'déclaration du systeme xls
    Dim xls As excel.Workbook
    
    Set xls = GetObject(adresse)
    
    Dim ligneexcel As Integer
    Dim cellule As String
    ligneexcel = 1
    
    For j = 0 To nbligne
    
    'composition des cellules pour la collone A
        ligneexcel = ligneexcel + 1
        cellule = Str(ligneexcel) 'cellule= " x" avec x le chiffre
        Mid(cellule, 1, 1) = "A" 'remplace l'espace par la lettre de la collone
        
    'copie dans les cellules du fichier xls
        With xls
            .Worksheets(1).Range(cellule).Value = tableau(j)
        End With
    
    Next j
    
    'enregistrement du fichier
    xls.Save
    
    'initialisation de la variable xls
    Set xls = Nothing

22 mai 2007 08:48:41 :

Ajout de commentaire pour mieux expliquer l'application du code