vbs Excel Connexion a une base sql et somme

Version imprimable

02/06/2009, 23h12
guigui69

vbs Excel Connexion a une base sql et somme

Bonjour à tous, j'ai 3 questions au niveau d'un script vbs:

- Est-il possible de réaliser une connexion a une base sql (environnement as400), ainsi d'une requête? (La suite de ma question, est-il possible de remplir un document excel avec les informations de la requête)

- Est-il possible de réaliser une ouverture de d'une boite de dialogue demande 2 informations (date debut date fin)?

- Comment en vbs script peut-on obtenir la somme d'une colonne?

J'ai essayé ceci (dans mon script) mais il doit me manquer un paramètre ou je n'ai pas mit correctement la fonction.

Code:

Set somme = objWorkbook.WorksheetFunction.Sum(Sheets("extraction facture facto").Range("E:E"))

Merci d'avance pour votre aide

guigui69
02/06/2009, 23h20
SfJ5Rpw8

essai de préfixer ton sheets(... par : objWorkbook.

Voici mon script

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
30
srccsvfile = "**********************"
srcxlsfile = "**********************"
On Error Resume Next
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(srcxlsfile)
objExcel.DisplayAlerts = FALSE
objExcel.Visible = FALSE
Set somme = objWorkbook.WorksheetFunction.Sum(objWorkbook.sheets("extraction facture facto").Range("E:E"))
Set objWorksheet = objWorkbook.Worksheets("extraction facture facto")
  Const ForReading = 1, ForWriting = 2
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set oFile = fso.OpenTextFile(srccsvfile &"Facture-factor-V2-"&  Day(Now) &"-" & Month(Now)& "-" & Year(Now)  & ".csv", ForWriting, True)
	dim r,c ' r = ligne, c = cellule
   for each r in objWorksheet.range("A1").currentRegion.rows
      st = ""   
       For Each c in r.cells
	     st = st & c.value & ";"
	   next
	  oFile.Writeline st
   next
	oFile.close
	objExcel.Quit

If err = 0 Then
MsgBox "Fichier généré:"+srccsvfile+"Facture-factor-V2-"& Day(Now) &"-"& Month(Now) &"-"& Year(Now) &".csv"
Else
MsgBox "Error" & vbCrLf & _
err.Description
End If

J'ai modifier en suivant tes indications mais toujours l'erreur:

Cette Objet ne gere pas cette propriété ou cette méthode.

Merci

guigui69

03/06/2009, 11h21
ThierryAIM

WorksheetFunction s'applique à objExcel et non pas à objWorkbook ;)
et pas de Set

Code:

somme = objExcel.WorksheetFunction.Sum(objWorkbook.sheets(...

et ton Range est bizarre ... :?

Merci pour ton aide, le Range E:E c'est pour réaliser la somme de l'ensemble de la colonne E.

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
30
31
32
33
34
 
 
srccsvfile = "*********************"
srcxlsfile = "***************"
somme = "0"
On Error Resume Next
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(srcxlsfile)
objExcel.DisplayAlerts = FALSE
objExcel.Visible = FALSE
somme = objExcel.WorksheetFunction.Sum(objWorkbook.sheets("extraction facture facto").Range("E1:E5000"))
Set objWorksheet = objWorkbook.Worksheets("extraction facture facto")
  Const ForReading = 1, ForWriting = 2
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set oFile = fso.OpenTextFile(srccsvfile &"Facture-factor-V2-"&  Day(Now) &"-" & Month(Now)& "-" & Year(Now)  & ".csv", ForWriting, True)
	dim r,c ' r = ligne, c = cellule
   for each r in objWorksheet.range("A1").currentRegion.rows
      st = ""   
       For Each c in r.cells
	     st = st & c.value & ";"
	   next
	  oFile.Writeline st
   next
	oFile.close
	objExcel.Quit
 
 
If err = 0 Then
MsgBox "Fichier généré:"+srccsvfile+"Facture-factor-V2-"& Day(Now) &"-"& Month(Now) &"-"& Year(Now) &".csv, le montant de cette decade est de:..."
 
Else
MsgBox "Error" & vbCrLf & _
err.Description
End If

Voici mon script je voudrait affiché le résultat de la somme (somme) dans une message box, mais cela ne fonctionne pas.

J'ai essayer ceci:

Code:

1
2
 
MsgBox "Fichier généré:"+srccsvfile+"Facture-factor-V2-"& Day(Now) &"-"& Month(Now) &"-"& Year(Now) &".csv, le montant de cette decade est de:"+somme+"..."

Aurait-je mal placé mon code?

merci

guigui69

03/06/2009, 15h06
spantemonium
je suis justement en train de faire des sommes sous excel.

Je m'y suis pris comme ça :
Code:

1 2 tempTotal = "=SUM(A2:A8)" objExcel.Cells(A9).Value = tempTotal
Et c'est excel qui compte :)
03/06/2009, 16h35
guigui69

Merci pour ta réponse mais le calcul fonctionne correctement car si je fait

MsgBox objExcel.WorksheetFunction.Sum(objWorkbook.sheets("extraction facture facto").Range("E1:E5000"))

Cela fonctionne mais si je veut le rajouter un peu plus bas:

MsgBox "Fichier généré:"+srccsvfile+"Facture-factor-V2-"& Day(Now) &"-"& Month(Now) &"-"& Year(Now) &".csv, le montant de cette decade est de:ICI"

que ca soit somme ou directement la ligne ci-dessus cela ne fonctionne pas.

Pourquoi?

Merci

guigui69
03/06/2009, 18h15
spantemonium

essaie avec des & a la place des + pour voir

Si toujours le souci, essaie un CInt()