Activate pour écrire dans excel
bonjour, j'ai une application vb6 qui ouvre un fichier excel au click d'un boutton dont le code est le suivant.
Code:
1
2
3
4
5
6
7
8
9
10
| Dim ExcelDonnée As Object
Private Sub Command1_Click()
Set ExcelDonnée = CreateObject("Excel.application")
ExcelDonnée.Visible = True
AppActivate ExcelDonnée.Name
ExcelDonnée.Workbooks.Open FileName:="C:\Documents and Settings\ATELIER\Bureau\Données de caméra.xls"
End Sub |
Et je voudrai que à l'appui d'un autre boutton je puisse écrire une chaine de caractère contenu dans un text box.
A savoir que en le mettant après l'ouvertur de mon fichier cela marche, mais je n'ai pas réussi en clickant sur un autre boutton.
Merci de votre aide.
