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
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
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 :
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
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
A +
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager