références sur VB2008

Bonjour à vous,
Ayant cherché un peu partout, je ne trouve pas comment ajouter une référence sur VB2008; L'objectif étant de pouvoir créer un fichier excel avec VB2008. Lorsque je suis dans le menu "ajouter une référence", je sélectionne "Microsoft Excel 12.0 Object Library" mais rien ne se passe...

J'ai trouvé le code permettant de réaliser l'opération voulue :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim oExcel As Excel.Application Dim oWk As Workbook Set oExcel = CreateObject("Excel.Application") oExcel.Visible = False 'Masque l'application excel (valeur par défaut) Set oWk = oExcel.Workbooks.Add 'rajoute par exemple la date et heure actuelle en Feuil1 cellule A1 oWk.Sheets(1).Range("A1") = Now 'Sauve le classeur oExcel.DisplayAlerts = False ' Pour éviter des questions si classeur déjà existant oWk.SaveAs App.Path & "\MonClasseur.xls" oWk.Close False 'Ferme le classeur oExcel.Quit Set oWk = Nothing Set oExcel = Nothing 'libération mémoire..

---

Les objets comme "Excel.Application" sont soulignés indiquant qu'ils ne sont pas déclaré (la référence n'étant pas intégrée...?).
Pouvez vous m'orienter dans ma démarche ?

ajouter une référence permet d'utiliser les classes dans la dll
ajouter des imports en entete de fichier sert à ne pas avoir à taper les chemins des namespace pour utiliser les classes

la classe en question est dans un namespace et le code que tu as pris avait surement un imports qui va bien
ou alors tu peux taper As Microsoft.Excel.Application (enfin je sais pas exactement ou c'est mais y faut rajouter des mots devant)

Salut,
Tu peux ajouter les réferences Microsoft.Office.Interop a ton projet via les propriétés du projet,
Sinon

Citation:

---

Microsoft.Excel.Application (enfin je sais pas exactement ou c'est mais y faut rajouter des mots devant)

---

les mots devant je pense que ce sont

Code:

---

Microsoft.Office.Interop.Excel.Application

---

Salut

Je suis encore coincé.
Je suis donc allé dans les propriétés du projet et n'est pas trouvé la référence "Microsoft.Office.Interop" dans les références COM et .NET. J'ai plutôt ajouté la référence "Microsoft Excel 12.0 Object Library", je ne connaissais pas la bonne manip à faire pour ajouter les références auparavant.
Le fait d'ajouter cette référence permet au projet de reconnaitre "Microsoft.Office.Interop.Excel.Application". C'est deja ca.
Par contre dans le code, il ne reconnait toujours pas certains objets :

Citation:

---

Dim oExcel As Excel.Application
Dim oWk As Workbook
Set oExcel = CreateObject("Excel.Application")
oExcel.Visible = False 'Masque l'application excel (valeur par défaut)
Set oWk = oExcel.Workbooks.Add
'rajoute par exemple la date et heure actuelle en Feuil1 cellule A1
oWk.Sheets(1).Range("A1") = Now
'Sauve le classeur
oExcel.DisplayAlerts = False ' Pour éviter des questions si classeur déjà existant
oWk.SaveAs App.Path & "\MonClasseur.xls"
oWk.Close False 'Ferme le classeur
oExcel.Quit
Set oWk = Nothing
Set oExcel = Nothing 'libération mémoire..

---

Pouvez vous m'éclairer sur le chemin d'accès pour trouver la référence "Microsoft.Office.Interop" ou pour résoudre mes soucis ?

Je rajoute un détail :
Je viens de VBA Excel où je me débrouille...et veux apprendre VB2008. J'aimerais utiliser Excel pour toutes les opérations faciles à faire grace à un tableur (tri de données, manipulation, ...) d'ou ma question initiale.

Après avoir inséré la correction proposée par l'intellisense.

Code:

---

Imports Microsoft.Office.Interop

---

L'objet 'Owk' est reconnu, par contre 'App' n'est pas déclaré dans le code donné en exemple. La propriété path de l'objet App doit contenir le chemin du dossier de l'application.

Le code qui suit fonctionne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim oExcel As Excel.Application Dim oWk As Workbook oExcel = CreateObject("Excel.Application") oExcel.Visible = False 'Masque l'application excel (valeur par défaut) oWk = oExcel.Workbooks.Add oWk.SaveAs(Filename:="Test.xls") 'Ne fonctionnera pas si le fichier est déjà ouvert oWk.Sheets(1).cells.item(1, 1) = Now oExcel.DisplayAlerts = False ' Pour éviter des questions si classeur déjà existant oWk.Save() oWk.Close(False) 'Ferme le classeur oExcel.Quit() oWk = Nothing oExcel = Nothing 'libération mémoire..

---

Excuse moi Bob mais je dois pas avoir les connaissances pour te comprendre :
J'ai remplace mon code par le tiens, il y presque les memes problèmes : "Excel.application" et "Workbook" ne sont pas reconnus.
Je n'ai ajouté que la référence "Microsoft Excel 12.0 Object Library".
Je ne comprends pas si je dois ajouter au code "Imports Microsoft.Office.Interop" (où "Imports" n'est pas reconnu).
Merci de votre patience !

D'abord tu ajoutes une référence à Excel en allant dans le menu "Projet", puis "Ajouter une référence..." et en sélectionnant : "Microsoft.Office.Interop.Excel".

Le "Imports Microsoft.Office.Interop.Excel" doit se situer avant toute ligne de code et permet par exemple d'éviter de taper : Dim oWk As Microsoft.Office.Interop.Excel.Workbook.

Pour une application Console :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Imports Microsoft.Office.Interop.Excel Module Module1 Sub Main() Dim oExcel As Application Dim oWk As Workbook oExcel = CreateObject("Excel.Application") oExcel.Visible = False 'Masque l'application excel (valeur par défaut) oWk = oExcel.Workbooks.Add oWk.SaveAs(Filename:="Test.xls") 'Ne fonctionnera pas si le fichier est déjà ouvert oWk.Sheets(1).cells.item(1, 1) = Now oExcel.DisplayAlerts = False ' Pour éviter des questions si classeur déjà existant oWk.Save() oWk.Close(False) 'Ferme le classeur oExcel.Quit() oWk = Nothing oExcel = Nothing 'libération mémoire.. End Sub End Module

---

Citation:

---

Envoyé par toinou28

Je suis donc allé dans les propriétés du projet et n'est pas trouvé la référence "Microsoft.Office.Interop" dans les références COM et .NET. J'ai plutôt ajouté la référence "Microsoft Excel 12.0 Object Library"

---

Je ne trouve pas la référence que tu m'indique (ni dans .NEt ni dans COM), peux tu me donner son chemin d'accès stp?

As-tu installé Office sur ta machine?

bonsoir,
il semble que la DLL ne soit pas sur office XP et +
à télécharger :
http://www.microsoft.com/downloads/d...displaylang=en