Recuperation de valeurs de cellules Excel dans Shape

[JF001]

Bonjour,

Je cherche la syntaxe dans VBA powerpoint qui va me permettre d'aller chercher la valeur d'une cellule d'un fichier excel et de l'attribuer à une shape textbox de ppt.

merci de votre aide

[Abdou_moujar]

Salut
D'abord il faut ajouter une référence à "Microsoft Excel xx object library" à partir du menu "Outils" puis "References" de l'interface VBA de PowerPoint(xx est le numéro de version d'Excel installé sur ta machine par exemple Excel 10 ou Excel 11).Ensuite dans un module ajoute le code suivant :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub SomeTest()
Dim sd As Slide
Dim shp As Shape
Dim oExcelApp As Excel.Application
Dim wbk As Workbook
Dim wks As WorkSheet
Set sd = ActivePresentation.Slides(1)
Set shp = sd.Shapes(1)
Set oExcelApp = New Excel.Application
Set wbk = oExcelApp.Workbooks.Open("C:\MonClasseur.xls")
Set wks = wbk.WorkSheets(1)
shp.TextFrame.TextRange.Text = wks.Range("D10").Value
wbk.Close
oExcelApp.Quit
Set oExcelApp = Nothing
End Sub

Bien sûr tu peux copier une plage de valeurs par concaténation de chaînes ou bien copier des objets Shape d'Excel dans des diapositives PowerPoint
A +