Discussion :

[LePtitVever]

bonjour, j'ai une application vb6 qui ouvre un fichier excel au click d'un boutton dont le code est le suivant.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[LePtitVever]

C'est bon, j'ai trouver mon erreure
il faut mettre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Set ExcelDonnée = GetObject(, "Excel.application")
ExcelDonnée.Visible = True
AppActivate ExcelDonnée.Name
ExcelDonnée.Cells(ligne, 1).Value = Text3.Text

dans le code du deuxième boutton