ouvrir un fichier excel et écrire dedans

[enigien]

Bonsoir tout le monde
Je travaille sur un projet trés compliquer mais bon comme un débutant en programmation j'arrive à résoudre mes difficultés mais il me reste qu'un seul truc c'est lorsque j'ouvre un fichier excel j'arrive pas à écrire dedans j'ai essayé pas mal de fois mais j'arrive pas, en faite j'ai des champs textbox que je dois les envoyer dans un fichier excel, voici le code de l'ouverture : voici le code:
Private Sub CommandButton4_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
xlApp.SheetsInNewWorkbook = 1
Set xlBook = xlApp.Workbooks.Add
xlBook.SaveAs ("Mon Classeur.xls")
xlApp.Visible = True
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Name = "Rapport"
'transfert des données
Range("Rapport!A1").Value = TextBox1.Value
Range("Rapport!A2").Value = TextBox2.Value
Range("Rapport!A3").Value = TextBox3.Value
Range("Rapport!A4").Value = TextBox4.Value
xlApp.SheetsInNewWorkbook = 3
xlApp.Quit
End Sub

 

[Pierrot93]

Re : ouvrir un fichier excel et écrire dedans

Bonjour,

précise le classeur / la feuille sur laquelle tu veux écrire :

xlSheet.Range("Rapport!A1").Value = TextBox1.Value

A noter dans ton code, vois pas trop pourquoi créer un objet application.....
bonne journée
@+

 

[Vorens]

Re : ouvrir un fichier excel et écrire dedans

Salut,


Sa sent la composition internet / enregistreur ce code d'ou la difficulté rencontrée et le nombre de ligne pour si peut d'action. La synthaxe que tu recherche et comme l'a dit Pierrot est la suivante

Workbook("Mon Classeur.xls").sheets("Rapport").range("A1").value =.....

Edit: Si ton classeur / feuille ont leur nom en variable dans ton code c'est comme sa:$

Workbook(VariableNomClasseur).sheets(VariableNomFeuille).range("A1").value =.....

A ploush

 

[Vorens]

Re : ouvrir un fichier excel et écrire dedans

Re,


C'est bien ce que je me disais

[VBA] Création d'un nouveau classeur Excel... [Résolu] | CommentCaMarche


Les deux lignes suivantes fond égalemment le travail

Workbooks.Add.SaveAs ("toto")

Workbooks("toto").Sheets.Add.Name = "Rapport"

Meilleures salutations