• Script VB pour excel

    Voici un petit script VB sans prétention qui vous aidera à extraire des données dans une fiche excel et de l’écrire dans un ficher au format voulu ( csv, xml, sql ):

     

    Sub generatorScript()

FileNumber = FreeFile
fileSaveName = Application.GetSaveAsFilename( _
InitialFileName:="GeneratorICAJEE", fileFilter:="Text Files (*.sql), *.sql", Title:="Creation script")
Open fileSaveName For Output As #FreeFile

For i = 1 To 740
txt = txt & " update personne set personne_id= : " & Sheets(1).Cells(i, 9) & " where personne_id= " & Sheets(1).Cells(i, 3) & " and  nom_personne= " & Sheets(1).Cells(i, 1) & ";" & Chr(10)
Next i

Print #FileNumber, txt
Close #FileNumber
End Sub

    Le Chr(10) permet un retour chariot pour chaque ligne traitée.

     

    Categories: Script

    Étiquettes : ,

    Comments are currently closed.