Discussion :

[smarties38]

bonjour,

j'aimerai ouvrir un fichier excel depuis une macro dans powerpoint et lire certaines cellules.

j'ai trouvé un code pour ouvrir un fichier .xls mais apparemment le type Excel.Application pour définir une de mes variables n'est pas connues par vba powerpoint, comment puis-ja faire?

ci-dessous mon code qui ne fonctionne pas:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub ouvrir_fichier_xls()
'Déclaration des variables
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
 
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open("C:\documents and Settings\Céline\Bureau\stage\tests\test.xls")
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)
End Sub

[SfJ5Rpw8]

il faut rajouter la référence à excel au projet...

pour cela dans l'éditeur VBE... outils référence .. puis cocher la case "Microsoft Excel..."

[smarties38]

merci, je vais tester ca et je reviens

[smarties38]

ok ca marche!!!

merci beaucoup mais du coup j'ai besoin de refermer mon fichier à la fin de l'execution de la macro et j'ai testé ca:

Code :

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

Set wbExcel = appExcel.Workbooks.Close("C:\documents and Settings\Céline\Bureau\stage\tests\test.xls")

mais ca ne marche pas.

pourtant la même commande avec Open fonctionne, comment ca se fait?

[smarties38]

c bon le pb est résolu, il suffit d'écrire Workbooks.Close et ca marche!