CADJEE Consulting » Excel https://cadjee.fr Expertise Java & Système d'information Thu, 17 Dec 2015 21:37:19 +0000 fr-FR hourly 1 https://wordpress.org/?v=4.2.39 Script VB pour excel https://cadjee.fr/script-vb-pour-excel/ https://cadjee.fr/script-vb-pour-excel/#comments Mon, 03 Aug 2015 12:21:35 +0000 http://cadjee.fr/?p=181 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.

 

]]> https://cadjee.fr/script-vb-pour-excel/feed/ 0