[VB6] Ouverture d'un fichier Excel et modification de cellules
Bonjour,
Deja je tient d'avance a remercie tout les personnes qui donneront de leur temp pour m'aider.
Voila ca fait deux heure que j'ai commencer a apprendre le visual basic que je n'avait jamais utilisé auparavant.
Il se trouve que je developpe un petit site web et que je dois lancer une application visual basic qui m'ouvre un fichier, le modifie (modifie des cellules bien précise) et ensuite l'enregistre voir eventuellement changer les format du ficher en pdf
voila j'ai pondu un petit morceau de code et j'aimerai savoir selon vous si il manque des choses importante, je suis pas doué et j'éprouve bcp de mal.
Je pense qu'il va me faloir du temp pour bien comprendre tout ca.
je vous met le code en commentaire pour ce que ca interesse :
Code:
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
| Private Function ModifierFichier(nomFichier As String, _
numero As Integer, _
bilan As String, _
client As String, _
ladate As String)
'------------------------------------------------------------------------
'Ce script VBS permet de modifier un fichier Excel puis de l'enregistrer.
'------------------------------------------------------------------------
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
'on ouvre le fichier
Set objWorkbook = objExcel.Workbooks.Open("O:\Test\" & nomFichier)
'on ouvre la premiere feuille
Set objWorksheet = objWorkbook.Worksheets(1)
objWorksheet.Range("D2").Value = numero
objWorksheet.Range("G5").Value = ladate
objWorksheet.Range("C6").Value = client
'on sauvegarde le classeur
objWorkbook.Save() //ces deux lignes sont signalé en rouge
objWorkbook.close()//je ne comprend pas pourquoi il attent l'operator =
'on ferme le fichier
objExcel.Quit
End Function |
si quelqu'un a des remarque intelligente qui peuvent me permettre de progresser, je suis tout ouïe:?
Parcontre si il y a deja un topic la dessus une redirection serait tres pratique :D
[VB6-débutant]besoin d'un coup de main
Bonjour,
J'ai mon programme vb qui ne fonctionne pas et je ne vois pas pourquoi, quelqu'un aurait il une idée?
Citation:
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
:(:?:(
