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
| Private Sub Cmdgo_Click()
CreationClasseur ' crée un classeur excell et y met des données
Set XlSheet = Nothing
End Sub
Sub CreationClasseur()
Set XlSheet = CreateObject("Excel.Application") ' crée une application Excell
XlSheet.Application.DisplayAlerts = False 'annule les messages
XlSheet.Application.Visible = True 'rend la fenêtre Excell visible
XlSheet.Workbooks.Add 'ajoute un classeur
'remplit la prèmière feuille de données
XlSheet.Worksheets(1).cells(1, 1).Value = "1 ere valeur"
XlSheet.Worksheets(1).cells(1, 2).Value = volt
----------------------------------------------
C'est ici que je bloque, je n arrive pas a prendre le classeur deja ouvert et y mettre mes nouvelle valeur
Private Sub Command1_Click()
????????
End Sub |
Partager