Liaison de excel avec vb 6
[Résolu]
Signaler
mousphate
mortalino
- Messages postés
- 7
- Date d'inscription
- jeudi 14 décembre 2000
- Statut
- Membre
- Dernière intervention
- 23 février 2009
mortalino
- Messages postés
- 6786
- Date d'inscription
- vendredi 16 décembre 2005
- Statut
- Membre
- Dernière intervention
- 21 décembre 2011
A voir également:
- Liaison de excel avec vb 6
- Visual Basic / VB.NET : Générateur de calendriers excel sous vb 6 - CodeS SourceS - Guide
- Formule de Excel dans VB 6 ✓ - Forum - Visual Basic 6
- Macro publique sous excel 2003 VB 6.3 ✓ - Forum - Visual Basic 6
- Remplir cellules Exel a partir d une interface VB 6 ✓ - Forum - Visual Basic 6
- Importer une feuille Excel ou un fichier Texte dans une base Access avec VB 6 ✓ - Forum - Visual Basic 6
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
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