Vb6 excel

[Résolu]
Signaler
Messages postés
36
Date d'inscription
mercredi 16 mars 2005
Statut
Membre
Dernière intervention
5 février 2009
-
Messages postés
36
Date d'inscription
mercredi 16 mars 2005
Statut
Membre
Dernière intervention
5 février 2009
-
salut a tous
je suis a la recherche d un programme source en vb ou on ecrit dans un text1.text VB et on envoie ce texte dans une cellule excel et inverse lecture d une cellue excel et ecriture dans un label
merci

4 réponses

Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
26
Bonjour,

Ne pas oublier dans Projet / Références de cocher la référence à Excel.



Private Sub Command1_Click()

Dim xlApp As Excel.Application

Dim wbk As Excel.Workbook

Dim sht As Excel.Worksheet



' Créer un objet Excel

' (ce qui équivaut à démarrer Excel à distance)

Set xlApp = New Excel.Application



With xlApp

' Rendre Excel visible

'.Visible = True



' Créer un nouveau classeur

Set wbk = .Workbooks.Add

'Set wbk = .Workbooks.Open("C:\Documents and Settings\Admin\Mes documents\Boulot\Absences\trimestre.xls")



' Instancier la feuille active dans le classeur

Set sht = wbk.ActiveSheet



' Ecrire quelques valeurs

With sht

.Range("A1").Value = Text1.Text

.Range("A2").Value = Text2.Text

.Range("A3").Value = Text3.Text

End With



' Sauvegarder et fermer le classeur

wbk.SaveAs "C:\Mes documents\test.xls"

wbk.Close



' Quitter Excel

.Quit

End With



' Libérer les variables objet

Set sht = Nothing

Set wbk = Nothing

Set xlApp = Nothing

MsgBox "Le fichier test.xls à été créé dans C:\Mes documents !"

End Sub

jpleroisse



Si une réponse vous convient, cliquez Réponse Acceptée.
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 112 internautes nous ont dit merci ce mois-ci

Messages postés
36
Date d'inscription
mercredi 16 mars 2005
Statut
Membre
Dernière intervention
5 février 2009

re bonjour la ref a cocher c est bie ocx
merci
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
26
Re,

La référence à cocher, c'est Microsoft Excel x.0 Object Library



jpleroisse
Messages postés
36
Date d'inscription
mercredi 16 mars 2005
Statut
Membre
Dernière intervention
5 février 2009

désolé pas cette ocx voici mon email [mailto:wrndid@tele2.fr wrndid@tele2.fr] sivous puvez me l'envoyer
merci