excel

Question

Salut a tous
Est ce que quelqu'un pourrait me renseigner pour savoir comment on fait pour integrer une feuille excel en VB.(une feuille de facture par exemple)
Ensuite comment on fait pour y ajouter des produits par exemple 
Merci bcoup


txiss

cs_salazar · Answer

Voici un exemple que j'utilise. 

Public Sub ChargementExcel()
    Dim PremiereLigne As Long
    Dim DerniereLigne As Long
    Dim Rang As Long
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim XlSheet As Excel.Worksheet
    
    Set xlApp = New Excel.Application
    Set xlBook = xlApp.Workbooks.Add
    Set XlSheet = xlBook.Worksheets(1)
    
    
    If FichierExcelPresent = True Then
        ' Chargement en m&#233;moire
        xlApp.Application.DisplayAlerts = False ' D&#233;sactive les messages d'Excel
        xlApp.Workbooks.Open FileName:=CheminExcel, Editable:=True, ReadOnly:=False ' Ouvre le fichier en m&#233;moire le fichier
        
        ' Compte nombre de titres
        Dim NombreLigne As Object
        Set NombreLigne = xlApp.Sheets(1).Cells(65536, 1).End(xlUp)
        DerniereLigne = NombreLigne.Cells.Row '- 7 - 26   '
        PremiereLigne = 8   ' Cf fichier Excel
        
        ' Affectation depuis la ligne 0
        For Rang = PremiereLigne To DerniereLigne
            Film(Rang - PremiereLigne).Titre = xlApp.Sheets(1).Cells(Rang, "A")
            Film(Rang - PremiereLigne).Duree = xlApp.Sheets(1).Cells(Rang, "B")
            Film(Rang - PremiereLigne).NbCD = xlApp.Sheets(1).Cells(Rang, "C")
            Film(Rang - PremiereLigne).DateDeSaisie = xlApp.Sheets(1).Cells(Rang, "E")
            Film(Rang - PremiereLigne).JaquetteNom = xlApp.Sheets(1).Cells(Rang, "H")
        Next Rang
    
                        
'        ' Ne sauvegarde pas
'        xlApp.Application.DisplayAlerts = False
'
'        ' On ferme tout pour &#233;viter les erreurs qui sont assez Zarb
'        xlBook.Close
'        xlApp.Quit
'
'        ' Supprime les objets
'        Set xlApp = Nothing
'        Set xlBook = Nothing
'        Set XlSheet = Nothing


    End If


End Sub

dj daddy · Answer

merci pour ton aide
mais je pas a koi  Film(Rang - PremiereLigne).Titre = xlApp.Sheets(1).Cells(Rang, "A")
correspont
est ce ke Film correspond a une fonction ou une procedure
Est ce ke tu pourrait etre plus clair et simple je debute a peine pour ce qui est d'excel en VB
Merci

txiss

cs_salazar · Answer

J'ignorai que tu d&#233;butais. Voici le code source qui r&#233;pondra &#224; ta question :
http://www.vbfrance.com/code.aspx?ID=6101

Pour info, en cas de probl&#232;me tu trouveras tout sur ce site. Et comme tu es d&#233;butant, forc&#233;ment d'autres ont d&#233;j&#224; pos&#233; la question ou on r&#233;pondu par un source.

Bonne continuation

dj daddy · Answer

Merci bcoup c cool de ta part
a+


txiss

Excel

4 réponses

Discussions similaires