[VB6] Ouverture d'un fichier Excel et modification de cellules

**zackrel** · 17/05/2006, 14h39

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Vesta** · 17/05/2006, 15h00

Enleve les parentheses...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
objWorkbook.Save
objWorkbook.Close

Sinon ca a pas l'air mal du tout...

**AlainTech** · 17/05/2006, 16h33

Que retourne la fonction???

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Function xxx As ???

**Vesta** · 17/05/2006, 18h20

Lol c'est vrai que je n'avais pas vu ce détail la lol

Une fonction sert a retourner une valeur, dans ton cas une Sub serait peu etre plus judicieuse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub ModifierFichier(nomFichier As String, _
                                 numero As Integer, _
                                 bilan As String, _
                                 client As String, _
                                 ladate As String)

**SfJ5Rpw8** · 17/05/2006, 18h52

Pourrai-tu modifier le titre, en y rajoutant le tag approprié .. [VBS], [VB6] ... si comme je le pense c'est du VBS ... les variables ne sont pas typées.. enléve les As string...

**Vesta** · 17/05/2006, 19h55

bbil tu as été fort la... MDR

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
'------------------------------------------------------------------------
'Ce script VBS permet de modifier un fichier Excel puis de l'enregistrer.
'------------------------------------------------------------------------

**AlainTech** · 17/05/2006, 22h59

Envoyé par bbil

si comme je le pense c'est du VBS ...

Rien n'est moins sur:

Envoyé par zackrel

je dois lancer une application visual basic

**zackrel** · 18/05/2006, 09h06

Bonjour et merci beaucoup pour vos conseils précieux voila se que donne le code final :

Private Sub 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.Cells(2, 4) = numero
objWorksheet.Cells(7, 5) = ladate
objWorksheet.Cells(6, 3) = client
objWorksheet.Range("A11 : G29") = bilan

'on sauvegarde le classeur
objWorkbook.Save
objWorkbook.Close

'on ferme le fichier
objExcel.Quit

End Sub

parcontre j'ai une autre question je fait un executable et je vais l'appeler depuis mon script php et j'aimerai savoir comment je peux passer les parametres si quelqu'un sait? J'irai faire un tour sur le forum php pour demander si personne ne sais. Merci

**zackrel** · 18/05/2006, 11h01

J'ai changé d'approche, je n'ai pas trouver comment executé mon executable avec des parametres avec php. J'ai donc créé une table contenant tout mes paramètre et la ca se complique je sais pas comment me connecter a la base de donnée Acess et formuler des requete via Visual basic pour les recupérer. Peux t'on m'expliquer comment cela fonctionne ou me diriger vers des tutorial qui explique comment cela fonctionne avec du code si possible

merci pour votre aide

**zackrel** · 19/05/2006, 08h28

Bonjour,
J'ai mon programme vb qui ne fonctionne pas et je ne vois pas pourquoi, quelqu'un aurait il une idée?

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

**bidou** · 19/05/2006, 08h39

Il manque un movenext dans la boucle While et l'affectation des valeurs de cellules devrait être dans cette boucle

**SfJ5Rpw8** · 19/05/2006, 08h45

Envoyé par zackrel

Bonjour,
J'ai mon programme vb qui ne fonctionne pas et je ne vois pas pourquoi, quelqu'un aurait il une idée?

? moi ce que je vois pas c'est la description de ton probléme ..qu'est ce qui ce passe ? que fait ou ne fait pas ton programme...?

**zackrel** · 19/05/2006, 08h47

le programme fait tout simplement rien ...

**zackrel** · 19/05/2006, 08h53

Envoyé par bidou

Il manque un movenext dans la boucle While et l'affectation des valeurs de cellules devrait être dans cette boucle

je peux pas faire comme ca car je recupère le nom du fichier a ouvrir dans la boucle. faudrait que je fasse 2 boucle pour faire comme ca, une pour recuperer le dernier nom de fiche de la table et une autre pour recuperer ensuite une fois le fichier ouvert les derniere renseignemetn stocké dans la table pour les affecter au cellules

**zackrel** · 19/05/2006, 08h57

voila se que ca donne

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 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
nom = RS.Fields("Nom_fiche")
MoveNext
Wend

'on ouvre le fichier
Set objWorkbook = objExcel.Workbooks.Open("O:\Test\" & nom)

'on ouvre la premiere feuille
Set objWorksheet = objWorkbook.Worksheets(1)

While Not RS.EOF
objWorksheet.Cells(2, 4) = RS.Fields("Numero")
objWorksheet.Cells(7, 5) = RS.Fields("Date_document")
objWorksheet.Cells(6, 3) = RS.Fields("Raison_sociale")
objWorksheet.Cells(31, 6) = RS.Fields("Temp_Intervention")
objWorksheet.Range("A11:G29") = RS.Fields("Bilan")
MoveNext
Wend

'on sauvegarde le classeur
objWorkbook.Save
objWorkbook.Close

'on ferme le fichier
objExcel.Quit
End Sub

et la ca compile mais pus moyen de créer mon executable

**SfJ5Rpw8** · 19/05/2006, 08h58

Envoyé par zackrel

le programme fait tout simplement rien ...

bon cela ne nous aide pas beaucoup...,

Comment lance tu ta procédure ?

Sinon ... je sais pas exécute le pas à pas (touche F8 en étant dans la procédure..) .. voir ce qui ce passe.. (pendant l'exécution tu peu même voir les valeurs des variables par les bulles d'aide (en passant la souris dessus..)

**AlainTech** · 19/05/2006, 09h05

Multipost!

http://www.developpez.net/forums/sho...d.php?t=148845

Le fait de créer une nouvelle discussion fait perdre l'historique du problème.

De plus, pour du code, il faut utiliser les balises [code] (#) et pas [quote].