Liaison de excel avec vb 6
Résolu
mousphate
Messages postés
7
Date d'inscription
jeudi 14 décembre 2000
Statut
Membre
Dernière intervention
23 février 2009
-
7 juil. 2008 à 18:18
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 - 7 juil. 2008 à 18:23
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 - 7 juil. 2008 à 18:23
A voir également:
- Liaison de excel avec vb 6
- Vb net excel interop - Forum VB.NET
- Imports excel microsoft office interop excel vb net - Forum VB.NET
- Tous les codes vba excel - Conseils pratiques -Visual Basic / VB.NET
- Excel vba doevents - Conseils pratiques -Visual Basic / VB.NET
- Vb if - Conseils pratiques -Visual Basic / VB.NET
2 réponses
mortalino
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
17
7 juil. 2008 à 18:23
7 juil. 2008 à 18:23
Bonjour aussi ;)
Il faut aller dans les références de ton projet, et rajouter
Microsoft Excel Object Library
Ensuite, dans ton code, faut déclarer les objets Excel et Classeur :
Dim xlApp As New Excel.Application
Dim xlBook As Excel.WorkBook
' reférence le classeur;
Set xlBook = xlApp.WorkBooks.Open("C:\chemin\nom fichier.xls")
xlApp.Visible = true '(ou pas, si tu ne le souhaites pas)
xlBook.Sheets("nom feuille").Range("A1").Value = "ce que tu veux"
Msgbox xlBook.Sheets("nom feuille").Range("A1").Value
'etc...
xlBook.Close true ' ou false, c'est le parametre afin de savoir s'il faut sauvegarder les modifs
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothong
@++
le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA
Il faut aller dans les références de ton projet, et rajouter
Microsoft Excel Object Library
Ensuite, dans ton code, faut déclarer les objets Excel et Classeur :
Dim xlApp As New Excel.Application
Dim xlBook As Excel.WorkBook
' reférence le classeur;
Set xlBook = xlApp.WorkBooks.Open("C:\chemin\nom fichier.xls")
xlApp.Visible = true '(ou pas, si tu ne le souhaites pas)
xlBook.Sheets("nom feuille").Range("A1").Value = "ce que tu veux"
Msgbox xlBook.Sheets("nom feuille").Range("A1").Value
'etc...
xlBook.Close true ' ou false, c'est le parametre afin de savoir s'il faut sauvegarder les modifs
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothong
@++
le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA
bigfish_le vrai
Messages postés
1835
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
13
7 juil. 2008 à 18:23
7 juil. 2008 à 18:23
Pas bonjour a toi aussi,
oui c'est possible. Il y a plein d'exemples et de questions deja posees a ce sujet, veuillez faire une recherche svp
oui c'est possible. Il y a plein d'exemples et de questions deja posees a ce sujet, veuillez faire une recherche svp