Private Sub ModifierFichier()
'------------------------------------------------------------------------
'Ce script VBS permet de modifier un fichier Excel puis de l'enregistrer.
'------------------------------------------------------------------------
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Dim numero As Integer
Dim date_intervention As Date
Dim client As String
Dim temp As String
Dim bilan As String
Dim nom As String
'déclaration DataBase et Recordset.
Dim DB As Database
Dim RS As Recordset
Set DB = OpenDatabase("O:\Test\Ines.mdb")
'requête SQL
Set RS = DB.OpenRecordset("SELECT * FROM donnees_intervention", dbOpenSnapshot)
'EOF signifie End Of File (soit plus d'enregistrement présent).
While Not RS.EOF
numero = RS.Fields("Numero")
date_intervention = RS.Fields("Date_document")
client = RS.Fields("Raison_sociale")
temp = RS.Fields("Temp_Intervention")
bilan = RS.Fields("Bilan")
nom = RS.Fields("Nom_fiche")
Wend
'on ouvre le fichier
Set objWorkbook = objExcel.Workbooks.Open("O:\Test\" & nom)
'on ouvre la premiere feuille
Set objWorksheet = objWorkbook.Worksheets(1)
objWorksheet.Cells(2, 4) = numero
objWorksheet.Cells(7, 5) = Date
objWorksheet.Cells(6, 3) = client
objWorksheet.Cells(31, 6) = temp
objWorksheet.Range("A11:G29") = bilan
'on sauvegarde le classeur
objWorkbook.Save
objWorkbook.Close
'on ferme le fichier
objExcel.Quit
End Sub
Partager