ecrire dans une feuille excel!Résolu

Question

Voila jai un pti souci! je voudrais en VB6 lire et ecrire des info contenues dans une feuille excel en connaissan le cellule!
Pour la lecture pas de souci! j'ai trouv&#233; ce code et sa marche super:

    'D&#233;claration des variables
   'Dim appExcel As Excel.Application 'Application Excel
    Dim wbExcel As Excel.Workbook 'Classeur Excel
    Dim wsExcel As Excel.Worksheet 'Feuille Excel
    
    'Ouverture de l'application
   Set appExcel = CreateObject("Excel.Application")
   ' Ouverture d'un fichier Excel
    Set wbExcel = appExcel.Workbooks.Open("C:\Classeur1.xls")
   ' wsExcel correspond &#224; la premi&#232;re feuille du fichier
    Set wsExcel = wbExcel.Worksheets(1)


 Dim somme As String
   somme = wsExcel.Cells(1, 1)

Par contre impossbile decrire ds la feuille!
j'ai trouv&#233; ce code mais sa compile pas!

'La propri&#233;t&#233; Range(zone) permet de s&#233;lectionner une zone. La variable zone est une chaine de caract&#232;re de la forme "B5:T20" (cellule du coin haut gauche et cellule bas droite s&#233;par&#233;e par le caract&#232;re ':')
sheet.Range(colHeader(2) & "4:" & colHeader(2) & "4").Select
'La chaine form&#233;e par colHeader(2) & "4:" & colHeader(2) & "4" donne "B4:B4" ce qui s&#233;lectionne une seule cellule
sheet.Selection.Value = somme

J'ai aucun attribut Selection alor jvoi pa tro commeent faire!
Si kk1 a une solution... merci

jrbleboss · Accepted Answer

dans ton projet tu rajoute comme reference "Microsoft Excel Object library"



Public xl as Excel.Application



private sub lire

Set XL = New Excel.Application

XL.Workbooks.Open ("chemin du fichier xls") ' la c'est si tu veux ouvrir un classeur particulier

XL.Sheets("ta feuille").Select 'selectionne ta feuille

ce que tu veux =  XL.cells(1,1)

XL.ActiveWorkbook.Close False ' ferme  le classeur sans enregistrer 

XL.Quit ' ferme excel

end sub


private sub ecrire


Set XL = New Excel.Application


XL.Workbooks.Open ("chemin du fichier xls") ' la c'est si tu veux ouvrir un classeur particulier

XL.Sheets("ta feuille").Select 'selectionne ta feuille

XL.cells(1,1) =  ce que tu veux


XL.ActiveWorkbook.Close False ' ferme  le classeur sans enregistrer 


XL.Quit ' ferme excel


end sub


JRB

cs_Xneo · Answer

G honte! j'ai fais 
"ce que tu veux =  XL.cells(1,1)"
mais j'ai meme pas pens&#233; faire le contraire pour l&#233;criture!
merci en tt cas!

jpleroisse · Answer

Bonjour,



Private Sub Command1_Click()

  Dim appExcel As Excel.Application 'Application Excel

    Dim wbExcel As Excel.Workbook 'Classeur Excel

    Dim wsExcel As Excel.Worksheet 'Feuille Excel

   

    'Ouverture de l'application

   Set appExcel = CreateObject("Excel.Application")

   ' Ouverture d'un fichier Excel

    Set wbExcel = appExcel.Workbooks.Open("C:\Classeur1.xls")

   ' wsExcel correspond &#224; la premi&#232;re feuille du fichier

    Set wsExcel = wbExcel.Worksheets(1)



Dim En_Colonne, En_Ligne

wsExcel.Cells(1, 1).Select

En_Colonne = ActiveCell.Column

En_Ligne = ActiveCell.Row + 1

While Not IsEmpty(ActiveCell.Value)

Cells(En_Ligne, En_Colonne).Activate

En_Ligne = En_Ligne + 1

Wend

ActiveCell.Offset(0, 0).Range("A1").Select

      ActiveCell.Value = Text1.Text

  ActiveCell.Offset(0, 1).Range("A1").Select

      ActiveCell.Value = Text2.Text

ActiveCell.Offset(0,2).Range("A1").Select

      ActiveCell.Value = Text3.Text

'Efface les TextBox pour une entr&#233;e suivante

Text1 = ""

Text2 = ""

Text3 = ""

 Dim somme As String

   somme = wsExcel.Cells(1, 1)

   Text4 = somme

wbExcel.Close

appExcel.Quit

End Sub



jpleroisse

jrbleboss · Answer

oui c'est sur mais cela arrive a tout le monde de ne pas voir des choses simples 


jplepoisse ton code est bien mais beaucoup plus long.


JRB

Ecrire dans une feuille excel!

4 réponses

Discussions similaires