Liér les données d'une application vb avec un fichier excelRésolu

Question

salut les experts,
Je veux inserer les données des zones de texte d'une application faite par le visual basic dans un fichier excel par exemple:
 j'ai un champ Label nommé Date_Publication est une zone de texte nommée Texte1, une fois j'ai remplis ce champ de texte, je veux que l'information saisie doit êter inserer dans sa zone définie dans excel (le fichier execl est déjà existant dans  C:\file.xls

Merci d'avance

mortalino · Accepted Answer

Salut,

regarde avec ce code :

' *** référence : Microsoft Library Object 11.0 ou équivalent

Sub Command1_Click()
        Dim xlApp   As Excel.Application
        Dim xlBook  As WorkBook
        Dim xlSheet As WorkSheet
        Dim MaVar   As String

    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = False

    Set xlBook = xlApp.WorkBooks.Open("C:\Chemin\Nom fichier.xls")
    Set xlSheet = xlBook.Sheets("Nom feuille")

'Exemple utilisation : 
    xlSheet.Range("A1").Value = Text1.Text     'pour un textbox
    xlSheet.Range("A2").Value = Label1.Caption 'pour un Label
    MsgBox xlSheet.Range("A1").Value & " / " & xlSheet.Range("A2").Value

    xlBook.Close True                          'ou False, pour la sauvegarde
    xlApp.Quit

    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
End Sub

 --Mortalino-- Colorisation automatique 

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>

spootnic22 · Answer

salut,
merci infiniment pour cette réponse.

Liér les données d'une application vb avec un fichier excel

2 réponses

Votre réponse

Discussions similaires