Excel
Résolu
spv54
Messages postés
27
Date d'inscription
vendredi 26 mai 2006
Statut
Membre
Dernière intervention
21 septembre 2008
-
12 août 2006 à 07:02
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 - 12 août 2006 à 16:10
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 - 12 août 2006 à 16:10
1 réponse
mortalino
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
12 août 2006 à 16:10
12 août 2006 à 16:10
Salut,
pour ouvrir Excel :
Dans les déclarations :
Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.WorkSheet
Private Sub Command1() '** 1er bouton
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.WorkBooks.Open("C:\Chemin\Nom de ton fichier.xls")
Set xlSheet = xlBook.Sheets("Nom de ta feuille")
End Sub
Private Sub Command2()
xlSheet.Range("B10").Value = Me.Text1.Text 'c'est un exemple
xlSheet.Range("A10").Value = "Je met ce que je veux")
xlBook.Close True 'avec le true, il y a sauvegarde)
xlApp.Quit
Set xlApp = Nothing
Set xlBook = Nothing
Set xlSheet = Nothing
End Sub
@++
Mortalino
Le mystérieux chevalier, "Provençal, le Gaulois"
pour ouvrir Excel :
Dans les déclarations :
Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.WorkSheet
Private Sub Command1() '** 1er bouton
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.WorkBooks.Open("C:\Chemin\Nom de ton fichier.xls")
Set xlSheet = xlBook.Sheets("Nom de ta feuille")
End Sub
Private Sub Command2()
xlSheet.Range("B10").Value = Me.Text1.Text 'c'est un exemple
xlSheet.Range("A10").Value = "Je met ce que je veux")
xlBook.Close True 'avec le true, il y a sauvegarde)
xlApp.Quit
Set xlApp = Nothing
Set xlBook = Nothing
Set xlSheet = Nothing
End Sub
@++
Mortalino
Le mystérieux chevalier, "Provençal, le Gaulois"
