Ouvrir un doc Excel en VB

Question

Salut

je voudrais savoir comment on fait pour ouvrir un document Excel EXISTANT en VB pour ensuite le manipuler avec du code VB.

Si c'est possible d'avoir un bout de code pour l'exemple.

Merci

schouly · Answer

'Voici un bout de code d'un de mes programmes qui utilise Excel

Sub encoder()

dim file as string
dim maxi as integer
dim 0 as integer
'Active Excel
Set ex = CreateObject("excel.application")

maxi = 20
o = 1
'ouvre le fichier

file = App.Path & "fact_belge.xls"
ex.Workbooks.Open file

'encode des données
ex.range("F43").Value = fact3.Text7
ex.range("G43").Value = fact3.Text8
ex.range("H43").Value = fact3.Text9
ex.range("F44").Value = fact3.Text12
ex.range("G44").Value = fact3.Text11
ex.range("H44").Value = fact3.Text10
ex.range("F6").Value = fact2.Text2
ex.range("F7").Value = fact2.Text3
ex.range("F8").Value = fact2.Text4
ex.range("C" & 18 + o).Value = fact2.Text1
ex.range("D" & 18 + o).Value = fact2.Text5
ex.range("A" & 18 + o).Value = fact2.Text8
ex.range("G" & 18 + o).Value = fact2.Text9
ex.range("B" & 18 + o).Value = fact2.Text7

For i = 1 To maxi
    If fact3.Text1(i).Visible = False Then Exit For
    ex.range("A" & i + 20 + o).Value = fact3.Text1(i)
    ex.range("B" & i + 20 + o).Value = fact3.Text2(i)
    ex.range("E" & i + 20 + o).Value = fact3.Text3(i)
    ex.range("F" & i + 20 + o).Value = fact3.Text4(i)
    ex.range("G" & i + 20 + o).Value = fact3.Text5(i)
    ex.range("H" & i + 20 + o).Value = fact3.Text6(i)
Next

'réactive ton application
AppActivate App.Title

'Lance par exemple un formulaire
Impression.Show vbModal

'affiche excel qui était invisible
ex.Visible = True
'active excel
AppActivate ex.Name
'affiche l'apperçu avant impression en désactivant les commandes d'éditions (False)
ex.ActiveWindow.SelectedSheets.PrintPreview False

'imprime

ex.ActiveWindow.SelectedSheets.PrintOut Copies:=Impression.Text1

ex.Visible = False
AppActivate App.Title

'sauvegarde
filename = "D:Test" & Year(Date) & "" & fact2.Text11 & ".xls"
ex.ActiveWorkbook.saveAs filename
'quit excel
ex.quit

'Reinitialise la variable ex
Set ex = Nothing

End Sub

'pour + d'info schouly@skynet.be

Adrien

Ouvrir un doc Excel en VB

1 réponse

Discussions similaires