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

[Résolu]
Signaler
Messages postés
84
Date d'inscription
mardi 31 octobre 2006
Statut
Membre
Dernière intervention
30 janvier 2010
-
Messages postés
84
Date d'inscription
mardi 31 octobre 2006
Statut
Membre
Dernière intervention
30 janvier 2010
-
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

2 réponses

Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
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>
Messages postés
84
Date d'inscription
mardi 31 octobre 2006
Statut
Membre
Dernière intervention
30 janvier 2010

salut,
merci infiniment pour cette réponse.