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
Bonjour 
je voudrais savoir ce qu'il faut que j'écrive comme code pour pouvoir ouvrir un doc excel a partir d'un bouton sous une form et pouvoir remplir d'autres cellules dans ce meme fichier excel que l'on vient d'ouvrir grace a un autre bouton sous une autre form.
et comment faire pour enregistrer ce doc.
j'espere que j'ai été assez clair pour que qqn arrive a me comprendre.

merci

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 17
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"
3
Rejoignez-nous