random
10 mai 2005 à 10:44
tu peux parfaitement piloter excel à partir de vb
pour tester fais ceci
crée une form avec un bouton de commande
dans projet références coche la case microsoft excel librairie XX
dans le code tu bouton copie ceci
Private Sub Command1_Click()
Dim exc As New Excel.Application
Workbooks.Add
Sheets("Feuil1").Select
Sheets("Feuil1").Name = "mafeuille"
Range("A2").Select
ActiveCell.FormulaR1C1 = "1"
Range("A2").Select
ActiveCell.FormulaR1C1 = "2"
Range("B1").Select
ActiveCell.FormulaR1C1 = "3"
Range("B2").Select
ActiveCell.FormulaR1C1 = "4"
Range("B3").Select
ActiveCell.FormulaR1C1 = "=R[-2]C*R[-1]C"
Range("A3").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
ActiveWorkbook.SaveAs FileName:="C:\essaivb.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close
Set exc = Nothing
End Sub
examine le résultat sous excel classeur essaivb
pour connaitre les manips sous excel lance l'enregistreur de macro
et effectue tes traitements
remplace dans le coprs du sub ci dessus remplace le code par le code de ta macro