Discussion :

[toinou28]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Pol63]

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)

[RomainDotNet]

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Microsoft.Office.Interop.Excel.Application

Salut

[toinou28]

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 :

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.

[Bob Langlade]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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..

[toinou28]

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 !

[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?

[Bob Langlade]

As-tu installé Office sur ta machine?